aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorgingerBill <ginger.bill.22@gmail.com>2016-08-14 12:22:31 +0100
committergingerBill <ginger.bill.22@gmail.com>2016-08-14 12:22:31 +0100
commitee002364120a773753d37cf5575baa6e86d0502c (patch)
treed96feebc57be31d385909a0b9e4df2c0aef50a6b /examples
parentc10b46af9feb76a9839efa292c5288ec4684055e (diff)
expr as type; {N}bool is still causing problems
Diffstat (limited to 'examples')
-rw-r--r--examples/basic.odin82
-rw-r--r--examples/main.ll427
-rw-r--r--examples/main.odin85
3 files changed, 368 insertions, 226 deletions
diff --git a/examples/basic.odin b/examples/basic.odin
index e0863188a..ea22ca663 100644
--- a/examples/basic.odin
+++ b/examples/basic.odin
@@ -2,7 +2,7 @@ putchar :: proc(c: i32) -> i32 #foreign
print_string :: proc(s: string) {
for i := 0; i < len(s); i++ {
- putchar(cast(i32)s[i]);
+ putchar(s[i] as i32);
}
}
@@ -15,15 +15,15 @@ byte_reverse :: proc(b: []byte) {
encode_rune :: proc(r : rune) -> ([4]byte, int) {
buf : [4]byte;
- i := cast(u32)r;
+ i := r as u32;
mask : byte : 0x3f;
if i <= 1<<7-1 {
- buf[0] = cast(byte)r;
+ buf[0] = r as byte;
return buf, 1;
}
if i <= 1<<11-1 {
- buf[0] = 0xc0 | cast(byte)(r>>6);
- buf[1] = 0x80 | cast(byte)(r)&mask;
+ buf[0] = (0xc0 | r>>6) as byte;
+ buf[1] = (0x80 | r) as byte & mask;
return buf, 2;
}
@@ -34,22 +34,22 @@ encode_rune :: proc(r : rune) -> ([4]byte, int) {
}
if i <= 1<<16-1 {
- buf[0] = 0xe0 | cast(byte)(r>>12);
- buf[1] = 0x80 | cast(byte)(r>>6)&mask;
- buf[2] = 0x80 | cast(byte)(r)&mask;
+ buf[0] = (0xe0 | r>>12) as byte ;
+ buf[1] = (0x80 | r>>6) as byte & mask;
+ buf[2] = (0x80 | r) as byte & mask;
return buf, 3;
}
- buf[0] = 0xf0 | cast(byte)(r>>18);
- buf[1] = 0x80 | cast(byte)(r>>12)&mask;
- buf[2] = 0x80 | cast(byte)(r>>6)&mask;
- buf[3] = 0x80 | cast(byte)(r)&mask;
+ buf[0] = (0xf0 | r>>18) as byte;
+ buf[1] = (0x80 | r>>12) as byte & mask;
+ buf[2] = (0x80 | r>>6) as byte & mask;
+ buf[3] = (0x80 | r) as byte & mask;
return buf, 4;
}
print_rune :: proc(r : rune) {
buf, n := encode_rune(r);
- str := cast(string)buf[:n];
+ str := buf[:n] as string;
print_string(str);
}
@@ -59,7 +59,7 @@ print_int :: proc(i : int) {
print_int_base :: proc(i, base : int) {
NUM_TO_CHAR_TABLE :: "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@$";
- buf: [21]byte;
+ buf: [65]byte;
len := 0;
negative := false;
if i < 0 {
@@ -82,5 +82,57 @@ print_int_base :: proc(i, base : int) {
}
byte_reverse(buf[:len]);
- print_string(cast(string)buf[:len]);
+ print_string(buf[:len] as string);
}
+
+print_uint :: proc(i : uint) {
+ print_uint_base(i, 10);
+}
+print_uint_base :: proc(i, base : uint) {
+ NUM_TO_CHAR_TABLE :: "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@$";
+
+ buf: [65]byte;
+ len := 0;
+ negative := false;
+ if i < 0 {
+ negative = true;
+ i = -i;
+ }
+ if i == 0 {
+ buf[len] = '0';
+ len++;
+ }
+ for i > 0 {
+ buf[len] = NUM_TO_CHAR_TABLE[i % base];
+ len++;
+ i /= base;
+ }
+
+ if negative {
+ buf[len] = '-';
+ len++;
+ }
+
+ byte_reverse(buf[:len]);
+ print_string(buf[:len] as string);
+}
+
+
+// f64
+
+
+print_f64 :: proc(f : f64) {
+ buf: [128]byte;
+
+ if f == 0 {
+ value : u64;
+
+ } else {
+ if f < 0 {
+ print_rune('-');
+ }
+ print_rune('0');
+ }
+
+}
+
diff --git a/examples/main.ll b/examples/main.ll
index 9985d0d68..463373712 100644
--- a/examples/main.ll
+++ b/examples/main.ll
@@ -4,142 +4,62 @@
declare void @llvm.memmove.p0i8.p0i8.i64(i8*, i8*, i64, i32, i1)
-%main.Vec2 = type <2 x float>
-define void @exec(i64 ()* %p) {
-"entry - 0":
- %0 = alloca i64 ()*, align 8 ; p
- store i64 ()* zeroinitializer, i64 ()** %0
- store i64 ()* %p, i64 ()** %0
- %1 = load i64 ()*, i64 ()** %0
- %2 = call i64 %1()
- call void @print_int(i64 %2)
- call void @print_rune(i32 10)
- ret void
-}
-
define void @main() {
"entry - 0":
- %0 = alloca i64, align 8 ; i
- store i64 zeroinitializer, i64* %0
- store i64 123, i64* %0
- %1 = load i64, i64* %0
- call void @print_int(i64 %1)
- call void @print_rune(i32 128149)
- call void @print_rune(i32 10)
- %2 = alloca %main.Vec2, align 2 ; v
- store %main.Vec2 zeroinitializer, %main.Vec2* %2
- %3 = alloca %main.Vec2, align 2
- store %main.Vec2 zeroinitializer, %main.Vec2* %3
- %4 = getelementptr inbounds %main.Vec2, %main.Vec2* %3, i64 0, i32 0
- store float 0x3ff0000000000000, float* %4
- %5 = getelementptr inbounds %main.Vec2, %main.Vec2* %3, i64 0, i32 1
- store float 0x4000000000000000, float* %5
- %6 = load %main.Vec2, %main.Vec2* %3
- store %main.Vec2 %6, %main.Vec2* %2
- %7 = alloca [4 x i64], align 8 ; a
- store [4 x i64] zeroinitializer, [4 x i64]* %7
- %8 = alloca [4 x i64], align 8
- store [4 x i64] zeroinitializer, [4 x i64]* %8
- %9 = load i64, i64* %0
- %10 = getelementptr inbounds [4 x i64], [4 x i64]* %8, i64 0, i32 0
- store i64 %9, i64* %10
- %11 = getelementptr inbounds [4 x i64], [4 x i64]* %8, i64 0, i32 1
- store i64 2, i64* %11
- %12 = getelementptr inbounds [4 x i64], [4 x i64]* %8, i64 0, i32 2
- store i64 3, i64* %12
- %13 = getelementptr inbounds [4 x i64], [4 x i64]* %8, i64 0, i32 3
- store i64 7, i64* %13
- %14 = load [4 x i64], [4 x i64]* %8
- store [4 x i64] %14, [4 x i64]* %7
- %15 = alloca [4 x i64], align 8 ; e
- store [4 x i64] zeroinitializer, [4 x i64]* %15
- %16 = alloca [4 x i64], align 8
- store [4 x i64] zeroinitializer, [4 x i64]* %16
- %17 = load i64, i64* %0
- %18 = getelementptr inbounds [4 x i64], [4 x i64]* %16, i64 0, i32 0
- store i64 %17, i64* %18
- %19 = getelementptr inbounds [4 x i64], [4 x i64]* %16, i64 0, i32 1
- store i64 2, i64* %19
- %20 = getelementptr inbounds [4 x i64], [4 x i64]* %16, i64 0, i32 2
- store i64 3, i64* %20
- %21 = getelementptr inbounds [4 x i64], [4 x i64]* %16, i64 0, i32 3
- store i64 7, i64* %21
- %22 = load [4 x i64], [4 x i64]* %16
- store [4 x i64] %22, [4 x i64]* %15
- %23 = alloca {i64*, i64, i64}, align 8 ; s
- store {i64*, i64, i64} zeroinitializer, {i64*, i64, i64}* %23
- %24 = alloca {i64*, i64, i64}, align 8
- store {i64*, i64, i64} zeroinitializer, {i64*, i64, i64}* %24
- %25 = alloca [4 x i64], align 8
- store [4 x i64] zeroinitializer, [4 x i64]* %25
- %26 = load i64, i64* %0
- %27 = getelementptr inbounds [4 x i64], [4 x i64]* %25, i64 0, i32 0
- store i64 %26, i64* %27
- %28 = getelementptr inbounds [4 x i64], [4 x i64]* %25, i64 0, i32 1
- store i64 2, i64* %28
- %29 = getelementptr inbounds [4 x i64], [4 x i64]* %25, i64 0, i32 2
- store i64 3, i64* %29
- %30 = getelementptr inbounds [4 x i64], [4 x i64]* %25, i64 0, i32 3
- store i64 7, i64* %30
- %31 = getelementptr inbounds [4 x i64], [4 x i64]* %25, i64 0, i32 0
- %32 = getelementptr inbounds {i64*, i64, i64}, {i64*, i64, i64}* %24, i64 0, i32 0
- store i64* %31, i64** %32
- %33 = getelementptr inbounds {i64*, i64, i64}, {i64*, i64, i64}* %24, i64 0, i32 1
- store i64 4, i64* %33
- %34 = getelementptr inbounds {i64*, i64, i64}, {i64*, i64, i64}* %24, i64 0, i32 2
- store i64 4, i64* %34
- %35 = load {i64*, i64, i64}, {i64*, i64, i64}* %24
- store {i64*, i64, i64} %35, {i64*, i64, i64}* %23
- %36 = alloca i64, align 8 ; i
- store i64 zeroinitializer, i64* %36
- store i64 0, i64* %36
- br label %"for.loop - 2"
-
-"for.body - 1":
- %37 = getelementptr inbounds [4 x i64], [4 x i64]* %7, i64 0, i64 0
- %38 = load i64, i64* %36
- %39 = getelementptr i64, i64* %37, i64 %38
- %40 = load i64, i64* %39
- call void @print_int(i64 %40)
- %41 = getelementptr inbounds [2 x i8], [2 x i8]* @.str0, i64 0, i64 0
- %42 = alloca %.string, align 8
- store %.string zeroinitializer, %.string* %42
- %43 = getelementptr inbounds %.string, %.string* %42, i64 0, i32 0
- %44 = getelementptr inbounds %.string, %.string* %42, i64 0, i32 1
- store i8* %41, i8** %43
- store i64 2, i64* %44
- %45 = load %.string, %.string* %42
- call void @print_string(%.string %45)
- br label %"for.post - 3"
-
-"for.loop - 2":
- %46 = load i64, i64* %36
- %47 = icmp slt i64 %46, 4
- br i1 %47, label %"for.body - 1", label %"for.done - 4"
-
-"for.post - 3":
- %48 = load i64, i64* %36
- %49 = add i64 %48, 1
- store i64 %49, i64* %36
- br label %"for.loop - 2"
-
-"for.done - 4":
- call void @print_rune(i32 10)
- call void @exec(i64 ()* @main$0)
+ %0 = alloca <8 x float>, align 4 ; a
+ store <8 x float> zeroinitializer, <8 x float>* %0
+ %1 = alloca <8 x float>, align 4 ; b
+ store <8 x float> zeroinitializer, <8 x float>* %1
+ %2 = alloca <8 x float>, align 4
+ store <8 x float> zeroinitializer, <8 x float>* %2
+ %3 = load <8 x float>, <8 x float>* %2
+ %4 = insertelement <8 x float> %3, float 0x3ff0000000000000, i64 0
+ %5 = insertelement <8 x float> %4, float 0x4000000000000000, i64 1
+ %6 = insertelement <8 x float> %5, float 0x4008000000000000, i64 2
+ %7 = insertelement <8 x float> %6, float 0x4010000000000000, i64 3
+ %8 = alloca <8 x float>, align 4
+ store <8 x float> zeroinitializer, <8 x float>* %8
+ %9 = load <8 x float>, <8 x float>* %8
+ %10 = insertelement <8 x float> %9, float 0x3ff0000000000000, i64 0
+ %11 = insertelement <8 x float> %10, float 0x4000000000000000, i64 1
+ %12 = insertelement <8 x float> %11, float 0x4008000000000000, i64 2
+ %13 = insertelement <8 x float> %12, float 0x4010000000000000, i64 3
+ store <8 x float> %7, <8 x float>* %0
+ store <8 x float> %13, <8 x float>* %1
+ %14 = alloca <8 x i1>, align 1 ; c
+ store <8 x i1> zeroinitializer, <8 x i1>* %14
+ %15 = load <8 x float>, <8 x float>* %0
+ %16 = load <8 x float>, <8 x float>* %1
+ %17 = fcmp oeq <8 x float> %15, %16
+ store <8 x i1> %17, <8 x i1>* %14
+ %18 = alloca <32 x i1>, align 1 ; x
+ store <32 x i1> zeroinitializer, <32 x i1>* %18
+ %19 = alloca <32 x i1>, align 1
+ store <32 x i1> zeroinitializer, <32 x i1>* %19
+ %20 = load <32 x i1>, <32 x i1>* %19
+ %21 = insertelement <32 x i1> %20, i1 true, i64 0
+ %22 = insertelement <32 x i1> %21, i1 false, i64 1
+ %23 = insertelement <32 x i1> %22, i1 true, i64 2
+ store <32 x i1> %23, <32 x i1>* %18
+ %24 = alloca i32, align 4 ; d
+ store i32 zeroinitializer, i32* %24
+ %25 = alloca i32*, align 8
+ store i32* zeroinitializer, i32** %25
+ %26 = getelementptr inbounds <32 x i1>, <32 x i1>* %18, i64 0, i32 0
+ %27 = getelementptr i1, i1* %26, i64 0
+ %28 = getelementptr inbounds i1, i1* %27
+ %29 = bitcast i1* %28 to i32*
+ store i32* %29, i32** %25
+ %30 = load i32*, i32** %25
+ %31 = getelementptr i32, i32* %30
+ %32 = load i32, i32* %31
+ store i32 %32, i32* %24
+ %33 = load i32, i32* %24
+ %34 = zext i32 %33 to i64
+ call void @print_int_base(i64 %34, i64 2)
ret void
}
-define i64 @main$0() {
-"entry - 0":
- %0 = alloca i64, align 8 ; i
- store i64 zeroinitializer, i64* %0
- store i64 1337, i64* %0
- call void @print_rune(i32 128149)
- call void @print_rune(i32 10)
- %1 = load i64, i64* %0
- ret i64 %1
-}
-
declare i32 @putchar(i32 %c) ; foreign procedure
define void @print_string(%.string %s) {
@@ -281,15 +201,15 @@ define {[4 x i8], i64} @encode_rune(i32 %r) {
%18 = getelementptr i8, i8* %17, i64 0
%19 = load i32, i32* %0
%20 = lshr i32 %19, 6
- %21 = trunc i32 %20 to i8
- %22 = or i8 192, %21
+ %21 = or i32 192, %20
+ %22 = trunc i32 %21 to i8
store i8 %22, i8* %18
%23 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
%24 = getelementptr i8, i8* %23, i64 1
%25 = load i32, i32* %0
- %26 = trunc i32 %25 to i8
- %27 = and i8 %26, 63
- %28 = or i8 128, %27
+ %26 = or i32 128, %25
+ %27 = trunc i32 %26 to i8
+ %28 = and i8 %27, 63
store i8 %28, i8* %24
%29 = alloca {[4 x i8], i64}, align 8
store {[4 x i8], i64} zeroinitializer, {[4 x i8], i64}* %29
@@ -330,23 +250,23 @@ define {[4 x i8], i64} @encode_rune(i32 %r) {
%43 = getelementptr i8, i8* %42, i64 0
%44 = load i32, i32* %0
%45 = lshr i32 %44, 12
- %46 = trunc i32 %45 to i8
- %47 = or i8 224, %46
+ %46 = or i32 224, %45
+ %47 = trunc i32 %46 to i8
store i8 %47, i8* %43
%48 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
%49 = getelementptr i8, i8* %48, i64 1
%50 = load i32, i32* %0
%51 = lshr i32 %50, 6
- %52 = trunc i32 %51 to i8
- %53 = and i8 %52, 63
- %54 = or i8 128, %53
+ %52 = or i32 128, %51
+ %53 = trunc i32 %52 to i8
+ %54 = and i8 %53, 63
store i8 %54, i8* %49
%55 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
%56 = getelementptr i8, i8* %55, i64 2
%57 = load i32, i32* %0
- %58 = trunc i32 %57 to i8
- %59 = and i8 %58, 63
- %60 = or i8 128, %59
+ %58 = or i32 128, %57
+ %59 = trunc i32 %58 to i8
+ %60 = and i8 %59, 63
store i8 %60, i8* %56
%61 = alloca {[4 x i8], i64}, align 8
store {[4 x i8], i64} zeroinitializer, {[4 x i8], i64}* %61
@@ -363,31 +283,31 @@ define {[4 x i8], i64} @encode_rune(i32 %r) {
%67 = getelementptr i8, i8* %66, i64 0
%68 = load i32, i32* %0
%69 = lshr i32 %68, 18
- %70 = trunc i32 %69 to i8
- %71 = or i8 240, %70
+ %70 = or i32 240, %69
+ %71 = trunc i32 %70 to i8
store i8 %71, i8* %67
%72 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
%73 = getelementptr i8, i8* %72, i64 1
%74 = load i32, i32* %0
%75 = lshr i32 %74, 12
- %76 = trunc i32 %75 to i8
- %77 = and i8 %76, 63
- %78 = or i8 128, %77
+ %76 = or i32 128, %75
+ %77 = trunc i32 %76 to i8
+ %78 = and i8 %77, 63
store i8 %78, i8* %73
%79 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
%80 = getelementptr i8, i8* %79, i64 2
%81 = load i32, i32* %0
%82 = lshr i32 %81, 6
- %83 = trunc i32 %82 to i8
- %84 = and i8 %83, 63
- %85 = or i8 128, %84
+ %83 = or i32 128, %82
+ %84 = trunc i32 %83 to i8
+ %85 = and i8 %84, 63
store i8 %85, i8* %80
%86 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
%87 = getelementptr i8, i8* %86, i64 3
%88 = load i32, i32* %0
- %89 = trunc i32 %88 to i8
- %90 = and i8 %89, 63
- %91 = or i8 128, %90
+ %89 = or i32 128, %88
+ %90 = trunc i32 %89 to i8
+ %91 = and i8 %90, 63
store i8 %91, i8* %87
%92 = alloca {[4 x i8], i64}, align 8
store {[4 x i8], i64} zeroinitializer, {[4 x i8], i64}* %92
@@ -469,8 +389,8 @@ define void @print_int_base(i64 %i, i64 %base) {
%1 = alloca i64, align 8 ; base
store i64 zeroinitializer, i64* %1
store i64 %base, i64* %1
- %2 = alloca [21 x i8], align 1 ; buf
- store [21 x i8] zeroinitializer, [21 x i8]* %2
+ %2 = alloca [65 x i8], align 1 ; buf
+ store [65 x i8] zeroinitializer, [65 x i8]* %2
%3 = alloca i64, align 8 ; len
store i64 zeroinitializer, i64* %3
store i64 0, i64* %3
@@ -494,7 +414,7 @@ define void @print_int_base(i64 %i, i64 %base) {
br i1 %10, label %"if.then - 3", label %"if.done - 4"
"if.then - 3":
- %11 = getelementptr inbounds [21 x i8], [21 x i8]* %2, i64 0, i64 0
+ %11 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
%12 = load i64, i64* %3
%13 = getelementptr i8, i8* %11, i64 %12
store i8 48, i8* %13
@@ -507,10 +427,10 @@ define void @print_int_base(i64 %i, i64 %base) {
br label %"for.loop - 6"
"for.body - 5":
- %16 = getelementptr inbounds [21 x i8], [21 x i8]* %2, i64 0, i64 0
+ %16 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
%17 = load i64, i64* %3
%18 = getelementptr i8, i8* %16, i64 %17
- %19 = getelementptr inbounds [64 x i8], [64 x i8]* @.str1, i64 0, i64 0
+ %19 = getelementptr inbounds [64 x i8], [64 x i8]* @.str0, i64 0, i64 0
%20 = load i64, i64* %1
%21 = load i64, i64* %0
%22 = srem i64 %21, %20
@@ -536,7 +456,149 @@ define void @print_int_base(i64 %i, i64 %base) {
br i1 %32, label %"if.then - 8", label %"if.done - 9"
"if.then - 8":
- %33 = getelementptr inbounds [21 x i8], [21 x i8]* %2, i64 0, i64 0
+ %33 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
+ %34 = load i64, i64* %3
+ %35 = getelementptr i8, i8* %33, i64 %34
+ store i8 45, i8* %35
+ %36 = load i64, i64* %3
+ %37 = add i64 %36, 1
+ store i64 %37, i64* %3
+ br label %"if.done - 9"
+
+"if.done - 9":
+ %38 = load i64, i64* %3
+ %39 = sub i64 %38, 0
+ %40 = sub i64 65, 0
+ %41 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
+ %42 = getelementptr i8, i8* %41, i64 0
+ %43 = alloca {i8*, i64, i64}, align 8
+ store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %43
+ %44 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %43, i64 0, i32 0
+ store i8* %42, i8** %44
+ %45 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %43, i64 0, i32 1
+ store i64 %39, i64* %45
+ %46 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %43, i64 0, i32 2
+ store i64 %40, i64* %46
+ %47 = load {i8*, i64, i64}, {i8*, i64, i64}* %43
+ call void @byte_reverse({i8*, i64, i64} %47)
+ %48 = load i64, i64* %3
+ %49 = sub i64 %48, 0
+ %50 = sub i64 65, 0
+ %51 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
+ %52 = getelementptr i8, i8* %51, i64 0
+ %53 = alloca {i8*, i64, i64}, align 8
+ store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %53
+ %54 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %53, i64 0, i32 0
+ store i8* %52, i8** %54
+ %55 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %53, i64 0, i32 1
+ store i64 %49, i64* %55
+ %56 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %53, i64 0, i32 2
+ store i64 %50, i64* %56
+ %57 = load {i8*, i64, i64}, {i8*, i64, i64}* %53
+ %58 = alloca {i8*, i64, i64}, align 8
+ store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %58
+ store {i8*, i64, i64} %57, {i8*, i64, i64}* %58
+ %59 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %58, i64 0, i32 0
+ %60 = load i8*, i8** %59
+ %61 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %58, i64 0, i32 1
+ %62 = load i64, i64* %61
+ %63 = alloca %.string, align 8
+ store %.string zeroinitializer, %.string* %63
+ %64 = getelementptr inbounds %.string, %.string* %63, i64 0, i32 0
+ %65 = getelementptr inbounds %.string, %.string* %63, i64 0, i32 1
+ store i8* %60, i8** %64
+ store i64 %62, i64* %65
+ %66 = load %.string, %.string* %63
+ call void @print_string(%.string %66)
+ ret void
+}
+
+define void @print_uint(i64 %i) {
+"entry - 0":
+ %0 = alloca i64, align 8 ; i
+ store i64 zeroinitializer, i64* %0
+ store i64 %i, i64* %0
+ %1 = load i64, i64* %0
+ call void @print_uint_base(i64 %1, i64 10)
+ ret void
+}
+
+define void @print_uint_base(i64 %i, i64 %base) {
+"entry - 0":
+ %0 = alloca i64, align 8 ; i
+ store i64 zeroinitializer, i64* %0
+ store i64 %i, i64* %0
+ %1 = alloca i64, align 8 ; base
+ store i64 zeroinitializer, i64* %1
+ store i64 %base, i64* %1
+ %2 = alloca [65 x i8], align 1 ; buf
+ store [65 x i8] zeroinitializer, [65 x i8]* %2
+ %3 = alloca i64, align 8 ; len
+ store i64 zeroinitializer, i64* %3
+ store i64 0, i64* %3
+ %4 = alloca i1, align 1 ; negative
+ store i1 zeroinitializer, i1* %4
+ store i1 false, i1* %4
+ %5 = load i64, i64* %0
+ %6 = icmp ult i64 %5, 0
+ br i1 %6, label %"if.then - 1", label %"if.done - 2"
+
+"if.then - 1":
+ store i1 true, i1* %4
+ %7 = load i64, i64* %0
+ %8 = sub i64 0, %7
+ store i64 %8, i64* %0
+ br label %"if.done - 2"
+
+"if.done - 2":
+ %9 = load i64, i64* %0
+ %10 = icmp eq i64 %9, 0
+ br i1 %10, label %"if.then - 3", label %"if.done - 4"
+
+"if.then - 3":
+ %11 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
+ %12 = load i64, i64* %3
+ %13 = getelementptr i8, i8* %11, i64 %12
+ store i8 48, i8* %13
+ %14 = load i64, i64* %3
+ %15 = add i64 %14, 1
+ store i64 %15, i64* %3
+ br label %"if.done - 4"
+
+"if.done - 4":
+ br label %"for.loop - 6"
+
+"for.body - 5":
+ %16 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
+ %17 = load i64, i64* %3
+ %18 = getelementptr i8, i8* %16, i64 %17
+ %19 = getelementptr inbounds [64 x i8], [64 x i8]* @.str1, i64 0, i64 0
+ %20 = load i64, i64* %1
+ %21 = load i64, i64* %0
+ %22 = urem i64 %21, %20
+ %23 = getelementptr i8, i8* %19, i64 %22
+ %24 = load i8, i8* %23
+ store i8 %24, i8* %18
+ %25 = load i64, i64* %3
+ %26 = add i64 %25, 1
+ store i64 %26, i64* %3
+ %27 = load i64, i64* %1
+ %28 = load i64, i64* %0
+ %29 = udiv i64 %28, %27
+ store i64 %29, i64* %0
+ br label %"for.loop - 6"
+
+"for.loop - 6":
+ %30 = load i64, i64* %0
+ %31 = icmp ugt i64 %30, 0
+ br i1 %31, label %"for.body - 5", label %"for.done - 7"
+
+"for.done - 7":
+ %32 = load i1, i1* %4
+ br i1 %32, label %"if.then - 8", label %"if.done - 9"
+
+"if.then - 8":
+ %33 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
%34 = load i64, i64* %3
%35 = getelementptr i8, i8* %33, i64 %34
store i8 45, i8* %35
@@ -548,8 +610,8 @@ define void @print_int_base(i64 %i, i64 %base) {
"if.done - 9":
%38 = load i64, i64* %3
%39 = sub i64 %38, 0
- %40 = sub i64 21, 0
- %41 = getelementptr inbounds [21 x i8], [21 x i8]* %2, i64 0, i64 0
+ %40 = sub i64 65, 0
+ %41 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
%42 = getelementptr i8, i8* %41, i64 0
%43 = alloca {i8*, i64, i64}, align 8
store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %43
@@ -563,8 +625,8 @@ define void @print_int_base(i64 %i, i64 %base) {
call void @byte_reverse({i8*, i64, i64} %47)
%48 = load i64, i64* %3
%49 = sub i64 %48, 0
- %50 = sub i64 21, 0
- %51 = getelementptr inbounds [21 x i8], [21 x i8]* %2, i64 0, i64 0
+ %50 = sub i64 65, 0
+ %51 = getelementptr inbounds [65 x i8], [65 x i8]* %2, i64 0, i64 0
%52 = getelementptr i8, i8* %51, i64 0
%53 = alloca {i8*, i64, i64}, align 8
store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %53
@@ -593,5 +655,38 @@ define void @print_int_base(i64 %i, i64 %base) {
ret void
}
-@.str0 = global [2 x i8] c"\2C\20"
+define void @print_f64(double %f) {
+"entry - 0":
+ %0 = alloca double, align 8 ; f
+ store double zeroinitializer, double* %0
+ store double %f, double* %0
+ %1 = alloca [128 x i8], align 1 ; buf
+ store [128 x i8] zeroinitializer, [128 x i8]* %1
+ %2 = load double, double* %0
+ %3 = fcmp oeq double %2, 0x0000000000000000
+ br i1 %3, label %"if.then - 1", label %"if.else - 2"
+
+"if.then - 1":
+ %4 = alloca i64, align 8 ; value
+ store i64 zeroinitializer, i64* %4
+ br label %"if.done - 5"
+
+"if.else - 2":
+ %5 = load double, double* %0
+ %6 = fcmp olt double %5, 0x0000000000000000
+ br i1 %6, label %"if.then - 3", label %"if.done - 4"
+
+"if.then - 3":
+ call void @print_rune(i32 45)
+ br label %"if.done - 4"
+
+"if.done - 4":
+ call void @print_rune(i32 48)
+ br label %"if.done - 5"
+
+"if.done - 5":
+ ret void
+}
+
+@.str0 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
@.str1 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
diff --git a/examples/main.odin b/examples/main.odin
index 35807a47c..851724773 100644
--- a/examples/main.odin
+++ b/examples/main.odin
@@ -2,53 +2,48 @@ import "basic"
TWO_HEARTS :: '💕';
-
-exec :: proc(p : proc() -> int) {
- print_int(p());
- print_rune('\n');
-}
-
main :: proc() {
- i := 123;
- print_int(i);
- print_rune(TWO_HEARTS);
- print_rune('\n');
-
- type Vec2: {2}f32;
-
- v := Vec2{1, 2};
- a := [4] int{i, 2, 3, 7};
- e := [..]int{i, 2, 3, 7};
- s := [] int{i, 2, 3, 7};
-
- for i := 0; i < len(a); i++ {
- print_int(a[i]);
- print_string(", ");
- }
- print_rune('\n');
-
- exec(proc() -> int {
- i : int = 1337;
- print_rune('💕');
- print_rune('\n');
- return i;
- });
+ a, b := {8}f32{1, 2, 3, 4}, {8}f32{1, 2, 3, 4};
+ c := a == b;
+ x := {32}bool{true, false, true};
+ d := ((^x[0]) as ^u32)^;
+ print_int_base(d as int, 2);
+ // print_string("\n");
+ // print_int(x[0] as int);
+ // print_int(x[1] as int);
+ // print_int(x[2] as int);
+ // print_string("\n");
+
+ // for i := 0; false && i < len(x); i++ {
+ // v := x[i];
+ // print_int(v);
+ // print_string("\n");
+ // }
+
+ // for i := 0; i < len(c); i++ {
+ // if i > 0 {
+ // print_string("\n");
+ // }
+ // print_int(a[i] as int);
+ // print_string(" == ");
+ // print_int(b[i] as int);
+ // print_string(" => ");
+ // print_int(c[i] as int);
+ // }
+ // print_rune('\n');
}
/*
-if false {
- print_string("Chinese - 你好世界\n");
- print_string("Dutch - Hello wereld\n");
- print_string("English - Hello world\n");
- print_string("French - Bonjour monde\n");
- print_string("German - Hallo Welt\n");
- print_string("Greek - γειά σου κόσμος\n");
- print_string("Italian - Ciao mondo\n");
- print_string("Japanese - こんにちは世界\n");
- print_string("Korean - 여보세요 세계\n");
- print_string("Portuguese - Olá mundo\n");
- print_string("Russian - Здравствулте мир\n");
- print_string("Spanish - Hola mundo\n");
-}
+"Chinese - 你好世界\n"
+"Dutch - Hello wereld\n"
+"English - Hello world\n"
+"French - Bonjour monde\n"
+"German - Hallo Welt\n"
+"Greek - γειά σου κόσμος\n"
+"Italian - Ciao mondo\n"
+"Japanese - こんにちは世界\n"
+"Korean - 여보세요 세계\n"
+"Portuguese - Olá mundo\n"
+"Russian - Здравствулте мир\n"
+"Spanish - Hola mundo\n"
*/
-