mirror of
https://github.com/Ed94/Odin.git
synced 2026-07-28 10:20:05 +00:00
f16/f128,u|i128, basic vector support.
This commit is contained in:
+47
-1
@@ -14,7 +14,53 @@ string_byte_reverse :: proc(s: string) {
|
||||
}
|
||||
}
|
||||
|
||||
print_int :: proc(i, base: int) {
|
||||
encode_rune :: proc(buf : []u8, r : rune) -> int {
|
||||
i := cast(u32)r;
|
||||
mask : u8 : 0x3f;
|
||||
if i <= 1<<7-1 {
|
||||
buf[0] = cast(u8)r;
|
||||
return 1;
|
||||
}
|
||||
if i <= 1<<11-1 {
|
||||
buf[0] = 0xc0 | cast(u8)(r>>6);
|
||||
buf[1] = 0x80 | cast(u8)(r)&mask;
|
||||
return 2;
|
||||
}
|
||||
|
||||
// Invalid or Surrogate range
|
||||
if i > 0x0010ffff ||
|
||||
(i >= 0xd800 && i <= 0xdfff) {
|
||||
r = 0xfffd;
|
||||
|
||||
buf[0] = 0xe0 | cast(u8)(r>>12);
|
||||
buf[1] = 0x80 | cast(u8)(r>>6)&mask;
|
||||
buf[2] = 0x80 | cast(u8)(r)&mask;
|
||||
return 3;
|
||||
}
|
||||
|
||||
if i <= 1<<16-1 {
|
||||
buf[0] = 0xe0 | cast(u8)(r>>12);
|
||||
buf[1] = 0x80 | cast(u8)(r>>6)&mask;
|
||||
buf[2] = 0x80 | cast(u8)(r)&mask;
|
||||
return 3;
|
||||
}
|
||||
|
||||
buf[0] = 0xf0 | cast(u8)(r>>18);
|
||||
buf[1] = 0x80 | cast(u8)(r>>12)&mask;
|
||||
buf[2] = 0x80 | cast(u8)(r>>6)&mask;
|
||||
buf[3] = 0x80 | cast(u8)(r)&mask;
|
||||
return 4;
|
||||
}
|
||||
|
||||
print_rune :: proc(r : rune) {
|
||||
buf : [4]u8;
|
||||
n := encode_rune(buf[:], r);
|
||||
str := cast(string)buf[:n];
|
||||
|
||||
print_string(str);
|
||||
}
|
||||
|
||||
print_int :: proc(i, base : int) {
|
||||
NUM_TO_CHAR_TABLE :: "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@$";
|
||||
|
||||
buf: [21]u8;
|
||||
|
||||
+256
-171
@@ -1,145 +1,19 @@
|
||||
%-string = type {i8*, i64} ; Basic_string
|
||||
%.string = type {i8*, i64} ; Basic_string
|
||||
|
||||
%-rawptr = type i8* ; Basic_rawptr
|
||||
%.rawptr = type i8* ; Basic_rawptr
|
||||
|
||||
define void @main() {
|
||||
"entry - 0":
|
||||
%0 = alloca i64, align 8 ; a
|
||||
store i64 zeroinitializer, i64* %0
|
||||
%1 = getelementptr inbounds [6 x i8], [6 x i8]* @.str0, i64 0, i64 0
|
||||
%2 = getelementptr i8, i8* %1, i64 1
|
||||
%3 = load i8, i8* %2
|
||||
%4 = zext i8 %3 to i64
|
||||
store i64 %4, i64* %0
|
||||
%5 = load i64, i64* %0
|
||||
call void @print_int(i64 %5, i64 10)
|
||||
%6 = getelementptr inbounds [1 x i8], [1 x i8]* @.str1, i64 0, i64 0
|
||||
%7 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %7
|
||||
%8 = getelementptr inbounds %-string, %-string* %7, i64 0, i32 0
|
||||
%9 = getelementptr inbounds %-string, %-string* %7, i64 0, i32 1
|
||||
store i8* %6, i8** %8
|
||||
store i64 1, i64* %9
|
||||
%10 = load %-string, %-string* %7
|
||||
call void @print_string(%-string %10)
|
||||
%11 = getelementptr inbounds [23 x i8], [23 x i8]* @.str2, i64 0, i64 0
|
||||
%12 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %12
|
||||
%13 = getelementptr inbounds %-string, %-string* %12, i64 0, i32 0
|
||||
%14 = getelementptr inbounds %-string, %-string* %12, i64 0, i32 1
|
||||
store i8* %11, i8** %13
|
||||
store i64 23, i64* %14
|
||||
%15 = load %-string, %-string* %12
|
||||
call void @print_string(%-string %15)
|
||||
%16 = getelementptr inbounds [21 x i8], [21 x i8]* @.str3, i64 0, i64 0
|
||||
%17 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %17
|
||||
%18 = getelementptr inbounds %-string, %-string* %17, i64 0, i32 0
|
||||
%19 = getelementptr inbounds %-string, %-string* %17, i64 0, i32 1
|
||||
store i8* %16, i8** %18
|
||||
store i64 21, i64* %19
|
||||
%20 = load %-string, %-string* %17
|
||||
call void @print_string(%-string %20)
|
||||
%21 = getelementptr inbounds [22 x i8], [22 x i8]* @.str4, i64 0, i64 0
|
||||
%22 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %22
|
||||
%23 = getelementptr inbounds %-string, %-string* %22, i64 0, i32 0
|
||||
%24 = getelementptr inbounds %-string, %-string* %22, i64 0, i32 1
|
||||
store i8* %21, i8** %23
|
||||
store i64 22, i64* %24
|
||||
%25 = load %-string, %-string* %22
|
||||
call void @print_string(%-string %25)
|
||||
%26 = getelementptr inbounds [23 x i8], [23 x i8]* @.str5, i64 0, i64 0
|
||||
%27 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %27
|
||||
%28 = getelementptr inbounds %-string, %-string* %27, i64 0, i32 0
|
||||
%29 = getelementptr inbounds %-string, %-string* %27, i64 0, i32 1
|
||||
store i8* %26, i8** %28
|
||||
store i64 23, i64* %29
|
||||
%30 = load %-string, %-string* %27
|
||||
call void @print_string(%-string %30)
|
||||
%31 = getelementptr inbounds [20 x i8], [20 x i8]* @.str6, i64 0, i64 0
|
||||
%32 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %32
|
||||
%33 = getelementptr inbounds %-string, %-string* %32, i64 0, i32 0
|
||||
%34 = getelementptr inbounds %-string, %-string* %32, i64 0, i32 1
|
||||
store i8* %31, i8** %33
|
||||
store i64 20, i64* %34
|
||||
%35 = load %-string, %-string* %32
|
||||
call void @print_string(%-string %35)
|
||||
%36 = getelementptr inbounds [37 x i8], [37 x i8]* @.str7, i64 0, i64 0
|
||||
%37 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %37
|
||||
%38 = getelementptr inbounds %-string, %-string* %37, i64 0, i32 0
|
||||
%39 = getelementptr inbounds %-string, %-string* %37, i64 0, i32 1
|
||||
store i8* %36, i8** %38
|
||||
store i64 37, i64* %39
|
||||
%40 = load %-string, %-string* %37
|
||||
call void @print_string(%-string %40)
|
||||
%41 = getelementptr inbounds [21 x i8], [21 x i8]* @.str8, 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 21, i64* %44
|
||||
%45 = load %-string, %-string* %42
|
||||
call void @print_string(%-string %45)
|
||||
%46 = getelementptr inbounds [33 x i8], [33 x i8]* @.str9, i64 0, i64 0
|
||||
%47 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %47
|
||||
%48 = getelementptr inbounds %-string, %-string* %47, i64 0, i32 0
|
||||
%49 = getelementptr inbounds %-string, %-string* %47, i64 0, i32 1
|
||||
store i8* %46, i8** %48
|
||||
store i64 33, i64* %49
|
||||
%50 = load %-string, %-string* %47
|
||||
call void @print_string(%-string %50)
|
||||
%51 = getelementptr inbounds [29 x i8], [29 x i8]* @.stra, i64 0, i64 0
|
||||
%52 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %52
|
||||
%53 = getelementptr inbounds %-string, %-string* %52, i64 0, i32 0
|
||||
%54 = getelementptr inbounds %-string, %-string* %52, i64 0, i32 1
|
||||
store i8* %51, i8** %53
|
||||
store i64 29, i64* %54
|
||||
%55 = load %-string, %-string* %52
|
||||
call void @print_string(%-string %55)
|
||||
%56 = getelementptr inbounds [24 x i8], [24 x i8]* @.strb, i64 0, i64 0
|
||||
%57 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %57
|
||||
%58 = getelementptr inbounds %-string, %-string* %57, i64 0, i32 0
|
||||
%59 = getelementptr inbounds %-string, %-string* %57, i64 0, i32 1
|
||||
store i8* %56, i8** %58
|
||||
store i64 24, i64* %59
|
||||
%60 = load %-string, %-string* %57
|
||||
call void @print_string(%-string %60)
|
||||
%61 = getelementptr inbounds [42 x i8], [42 x i8]* @.strc, i64 0, i64 0
|
||||
%62 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %62
|
||||
%63 = getelementptr inbounds %-string, %-string* %62, i64 0, i32 0
|
||||
%64 = getelementptr inbounds %-string, %-string* %62, i64 0, i32 1
|
||||
store i8* %61, i8** %63
|
||||
store i64 42, i64* %64
|
||||
%65 = load %-string, %-string* %62
|
||||
call void @print_string(%-string %65)
|
||||
%66 = getelementptr inbounds [21 x i8], [21 x i8]* @.strd, i64 0, i64 0
|
||||
%67 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %67
|
||||
%68 = getelementptr inbounds %-string, %-string* %67, i64 0, i32 0
|
||||
%69 = getelementptr inbounds %-string, %-string* %67, i64 0, i32 1
|
||||
store i8* %66, i8** %68
|
||||
store i64 21, i64* %69
|
||||
%70 = load %-string, %-string* %67
|
||||
call void @print_string(%-string %70)
|
||||
ret void
|
||||
}
|
||||
|
||||
declare i32 @putchar(i32 %c) ; foreign procedure
|
||||
|
||||
define void @print_string(%-string %s) {
|
||||
define void @print_string(%.string %s) {
|
||||
"entry - 0":
|
||||
%0 = alloca %-string, align 8 ; s
|
||||
store %-string zeroinitializer, %-string* %0
|
||||
store %-string %s, %-string* %0
|
||||
%0 = alloca %.string, align 8 ; s
|
||||
store %.string zeroinitializer, %.string* %0
|
||||
store %.string %s, %.string* %0
|
||||
%1 = alloca i64, align 8 ; i
|
||||
store i64 zeroinitializer, i64* %1
|
||||
store i64 0, i64* %1
|
||||
@@ -148,7 +22,7 @@ define void @print_string(%-string %s) {
|
||||
"for.body - 1":
|
||||
%2 = alloca i32, align 4 ; c
|
||||
store i32 zeroinitializer, i32* %2
|
||||
%3 = getelementptr inbounds %-string, %-string* %0, i64 0, i32 0
|
||||
%3 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 0
|
||||
%4 = load i8*, i8** %3
|
||||
%5 = load i64, i64* %1
|
||||
%6 = getelementptr i8, i8* %4, i64 %5
|
||||
@@ -161,7 +35,7 @@ define void @print_string(%-string %s) {
|
||||
|
||||
"for.loop - 2":
|
||||
%11 = load i64, i64* %1
|
||||
%12 = getelementptr inbounds %-string, %-string* %0, i64 0, i32 1
|
||||
%12 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 1
|
||||
%13 = load i64, i64* %12
|
||||
%14 = icmp slt i64 %11, %13
|
||||
br i1 %14, label %"for.body - 1", label %"for.done - 4"
|
||||
@@ -176,14 +50,14 @@ define void @print_string(%-string %s) {
|
||||
ret void
|
||||
}
|
||||
|
||||
define void @string_byte_reverse(%-string %s) {
|
||||
define void @string_byte_reverse(%.string %s) {
|
||||
"entry - 0":
|
||||
%0 = alloca %-string, align 8 ; s
|
||||
store %-string zeroinitializer, %-string* %0
|
||||
store %-string %s, %-string* %0
|
||||
%0 = alloca %.string, align 8 ; s
|
||||
store %.string zeroinitializer, %.string* %0
|
||||
store %.string %s, %.string* %0
|
||||
%1 = alloca i64, align 8 ; n
|
||||
store i64 zeroinitializer, i64* %1
|
||||
%2 = getelementptr inbounds %-string, %-string* %0, i64 0, i32 1
|
||||
%2 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 1
|
||||
%3 = load i64, i64* %2
|
||||
store i64 %3, i64* %1
|
||||
%4 = alloca i64, align 8 ; i
|
||||
@@ -192,18 +66,18 @@ define void @string_byte_reverse(%-string %s) {
|
||||
br label %"for.loop - 2"
|
||||
|
||||
"for.body - 1":
|
||||
%5 = getelementptr inbounds %-string, %-string* %0, i64 0, i32 0
|
||||
%5 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 0
|
||||
%6 = load i8*, i8** %5
|
||||
%7 = load i64, i64* %4
|
||||
%8 = getelementptr i8, i8* %6, i64 %7
|
||||
%9 = getelementptr inbounds %-string, %-string* %0, i64 0, i32 0
|
||||
%9 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 0
|
||||
%10 = load i8*, i8** %9
|
||||
%11 = load i64, i64* %4
|
||||
%12 = load i64, i64* %1
|
||||
%13 = sub i64 %12, 1
|
||||
%14 = sub i64 %13, %11
|
||||
%15 = getelementptr i8, i8* %10, i64 %14
|
||||
%16 = getelementptr inbounds %-string, %-string* %0, i64 0, i32 0
|
||||
%16 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 0
|
||||
%17 = load i8*, i8** %16
|
||||
%18 = load i64, i64* %4
|
||||
%19 = load i64, i64* %1
|
||||
@@ -211,7 +85,7 @@ define void @string_byte_reverse(%-string %s) {
|
||||
%21 = sub i64 %20, %18
|
||||
%22 = getelementptr i8, i8* %17, i64 %21
|
||||
%23 = load i8, i8* %22
|
||||
%24 = getelementptr inbounds %-string, %-string* %0, i64 0, i32 0
|
||||
%24 = getelementptr inbounds %.string, %.string* %0, i64 0, i32 0
|
||||
%25 = load i8*, i8** %24
|
||||
%26 = load i64, i64* %4
|
||||
%27 = getelementptr i8, i8* %25, i64 %26
|
||||
@@ -237,6 +111,231 @@ define void @string_byte_reverse(%-string %s) {
|
||||
ret void
|
||||
}
|
||||
|
||||
define i64 @encode_rune({i8*, i64, i64} %buf, i32 %r) {
|
||||
"entry - 0":
|
||||
%0 = alloca {i8*, i64, i64}, align 8 ; buf
|
||||
store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %0
|
||||
store {i8*, i64, i64} %buf, {i8*, i64, i64}* %0
|
||||
%1 = alloca i32, align 4 ; r
|
||||
store i32 zeroinitializer, i32* %1
|
||||
store i32 %r, i32* %1
|
||||
%2 = alloca i32, align 4 ; i
|
||||
store i32 zeroinitializer, i32* %2
|
||||
%3 = load i32, i32* %1
|
||||
store i32 %3, i32* %2
|
||||
%4 = load i32, i32* %2
|
||||
%5 = icmp ule i32 %4, 127
|
||||
br i1 %5, label %"if.then - 1", label %"if.done - 2"
|
||||
|
||||
"if.then - 1":
|
||||
%6 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%7 = load i8*, i8** %6
|
||||
%8 = getelementptr i8, i8* %7, i64 0
|
||||
%9 = load i32, i32* %1
|
||||
%10 = trunc i32 %9 to i8
|
||||
store i8 %10, i8* %8
|
||||
ret i64 1
|
||||
|
||||
"if.done - 2":
|
||||
%11 = load i32, i32* %2
|
||||
%12 = icmp ule i32 %11, 2047
|
||||
br i1 %12, label %"if.then - 3", label %"if.done - 4"
|
||||
|
||||
"if.then - 3":
|
||||
%13 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%14 = load i8*, i8** %13
|
||||
%15 = getelementptr i8, i8* %14, i64 0
|
||||
%16 = load i32, i32* %1
|
||||
%17 = lshr i32 %16, 6
|
||||
%18 = trunc i32 %17 to i8
|
||||
%19 = or i8 192, %18
|
||||
store i8 %19, i8* %15
|
||||
%20 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%21 = load i8*, i8** %20
|
||||
%22 = getelementptr i8, i8* %21, i64 1
|
||||
%23 = load i32, i32* %1
|
||||
%24 = trunc i32 %23 to i8
|
||||
%25 = and i8 %24, 63
|
||||
%26 = or i8 128, %25
|
||||
store i8 %26, i8* %22
|
||||
ret i64 2
|
||||
|
||||
"if.done - 4":
|
||||
%27 = load i32, i32* %2
|
||||
%28 = icmp ugt i32 %27, 1114111
|
||||
br i1 %28, label %"if.then - 5", label %"cmp-or - 6"
|
||||
|
||||
"if.then - 5":
|
||||
store i32 65533, i32* %1
|
||||
%29 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%30 = load i8*, i8** %29
|
||||
%31 = getelementptr i8, i8* %30, i64 0
|
||||
%32 = load i32, i32* %1
|
||||
%33 = lshr i32 %32, 12
|
||||
%34 = trunc i32 %33 to i8
|
||||
%35 = or i8 224, %34
|
||||
store i8 %35, i8* %31
|
||||
%36 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%37 = load i8*, i8** %36
|
||||
%38 = getelementptr i8, i8* %37, i64 1
|
||||
%39 = load i32, i32* %1
|
||||
%40 = lshr i32 %39, 6
|
||||
%41 = trunc i32 %40 to i8
|
||||
%42 = and i8 %41, 63
|
||||
%43 = or i8 128, %42
|
||||
store i8 %43, i8* %38
|
||||
%44 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%45 = load i8*, i8** %44
|
||||
%46 = getelementptr i8, i8* %45, i64 2
|
||||
%47 = load i32, i32* %1
|
||||
%48 = trunc i32 %47 to i8
|
||||
%49 = and i8 %48, 63
|
||||
%50 = or i8 128, %49
|
||||
store i8 %50, i8* %46
|
||||
ret i64 3
|
||||
|
||||
"cmp-or - 6":
|
||||
%51 = load i32, i32* %2
|
||||
%52 = icmp uge i32 %51, 55296
|
||||
br i1 %52, label %"cmp-and - 7", label %"if.done - 8"
|
||||
|
||||
"cmp-and - 7":
|
||||
%53 = load i32, i32* %2
|
||||
%54 = icmp ule i32 %53, 57343
|
||||
br i1 %54, label %"if.then - 5", label %"if.done - 8"
|
||||
|
||||
"if.done - 8":
|
||||
%55 = load i32, i32* %2
|
||||
%56 = icmp ule i32 %55, 65535
|
||||
br i1 %56, label %"if.then - 9", label %"if.done - 10"
|
||||
|
||||
"if.then - 9":
|
||||
%57 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%58 = load i8*, i8** %57
|
||||
%59 = getelementptr i8, i8* %58, i64 0
|
||||
%60 = load i32, i32* %1
|
||||
%61 = lshr i32 %60, 12
|
||||
%62 = trunc i32 %61 to i8
|
||||
%63 = or i8 224, %62
|
||||
store i8 %63, i8* %59
|
||||
%64 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%65 = load i8*, i8** %64
|
||||
%66 = getelementptr i8, i8* %65, i64 1
|
||||
%67 = load i32, i32* %1
|
||||
%68 = lshr i32 %67, 6
|
||||
%69 = trunc i32 %68 to i8
|
||||
%70 = and i8 %69, 63
|
||||
%71 = or i8 128, %70
|
||||
store i8 %71, i8* %66
|
||||
%72 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%73 = load i8*, i8** %72
|
||||
%74 = getelementptr i8, i8* %73, i64 2
|
||||
%75 = load i32, i32* %1
|
||||
%76 = trunc i32 %75 to i8
|
||||
%77 = and i8 %76, 63
|
||||
%78 = or i8 128, %77
|
||||
store i8 %78, i8* %74
|
||||
ret i64 3
|
||||
|
||||
"if.done - 10":
|
||||
%79 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%80 = load i8*, i8** %79
|
||||
%81 = getelementptr i8, i8* %80, i64 0
|
||||
%82 = load i32, i32* %1
|
||||
%83 = lshr i32 %82, 18
|
||||
%84 = trunc i32 %83 to i8
|
||||
%85 = or i8 240, %84
|
||||
store i8 %85, i8* %81
|
||||
%86 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%87 = load i8*, i8** %86
|
||||
%88 = getelementptr i8, i8* %87, i64 1
|
||||
%89 = load i32, i32* %1
|
||||
%90 = lshr i32 %89, 12
|
||||
%91 = trunc i32 %90 to i8
|
||||
%92 = and i8 %91, 63
|
||||
%93 = or i8 128, %92
|
||||
store i8 %93, i8* %88
|
||||
%94 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%95 = load i8*, i8** %94
|
||||
%96 = getelementptr i8, i8* %95, i64 2
|
||||
%97 = load i32, i32* %1
|
||||
%98 = lshr i32 %97, 6
|
||||
%99 = trunc i32 %98 to i8
|
||||
%100 = and i8 %99, 63
|
||||
%101 = or i8 128, %100
|
||||
store i8 %101, i8* %96
|
||||
%102 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %0, i64 0, i32 0
|
||||
%103 = load i8*, i8** %102
|
||||
%104 = getelementptr i8, i8* %103, i64 3
|
||||
%105 = load i32, i32* %1
|
||||
%106 = trunc i32 %105 to i8
|
||||
%107 = and i8 %106, 63
|
||||
%108 = or i8 128, %107
|
||||
store i8 %108, i8* %104
|
||||
ret i64 4
|
||||
}
|
||||
|
||||
define void @print_rune(i32 %r) {
|
||||
"entry - 0":
|
||||
%0 = alloca i32, align 4 ; r
|
||||
store i32 zeroinitializer, i32* %0
|
||||
store i32 %r, i32* %0
|
||||
%1 = alloca [4 x i8], align 1 ; buf
|
||||
store [4 x i8] zeroinitializer, [4 x i8]* %1
|
||||
%2 = alloca i64, align 8 ; n
|
||||
store i64 zeroinitializer, i64* %2
|
||||
%3 = sub i64 4, 0
|
||||
%4 = sub i64 4, 0
|
||||
%5 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
|
||||
%6 = getelementptr i8, i8* %5, i64 0
|
||||
%7 = alloca {i8*, i64, i64}, align 8
|
||||
store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %7
|
||||
%8 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %7, i64 0, i32 0
|
||||
store i8* %6, i8** %8
|
||||
%9 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %7, i64 0, i32 1
|
||||
store i64 %3, i64* %9
|
||||
%10 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %7, i64 0, i32 2
|
||||
store i64 %4, i64* %10
|
||||
%11 = load {i8*, i64, i64}, {i8*, i64, i64}* %7
|
||||
%12 = load i32, i32* %0
|
||||
%13 = call i64 @encode_rune({i8*, i64, i64} %11, i32 %12)
|
||||
store i64 %13, i64* %2
|
||||
%14 = alloca %.string, align 8 ; str
|
||||
store %.string zeroinitializer, %.string* %14
|
||||
%15 = load i64, i64* %2
|
||||
%16 = sub i64 %15, 0
|
||||
%17 = sub i64 4, 0
|
||||
%18 = getelementptr inbounds [4 x i8], [4 x i8]* %1, i64 0, i64 0
|
||||
%19 = getelementptr i8, i8* %18, i64 0
|
||||
%20 = alloca {i8*, i64, i64}, align 8
|
||||
store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %20
|
||||
%21 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %20, i64 0, i32 0
|
||||
store i8* %19, i8** %21
|
||||
%22 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %20, i64 0, i32 1
|
||||
store i64 %16, i64* %22
|
||||
%23 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %20, i64 0, i32 2
|
||||
store i64 %17, i64* %23
|
||||
%24 = load {i8*, i64, i64}, {i8*, i64, i64}* %20
|
||||
%25 = alloca {i8*, i64, i64}, align 8
|
||||
store {i8*, i64, i64} zeroinitializer, {i8*, i64, i64}* %25
|
||||
store {i8*, i64, i64} %24, {i8*, i64, i64}* %25
|
||||
%26 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %25, i64 0, i32 0
|
||||
%27 = load i8*, i8** %26
|
||||
%28 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %25, i64 0, i32 1
|
||||
%29 = load i64, i64* %28
|
||||
%30 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %30
|
||||
%31 = getelementptr inbounds %.string, %.string* %30, i64 0, i32 0
|
||||
%32 = getelementptr inbounds %.string, %.string* %30, i64 0, i32 1
|
||||
store i8* %27, i8** %31
|
||||
store i64 %29, i64* %32
|
||||
%33 = load %.string, %.string* %30
|
||||
store %.string %33, %.string* %14
|
||||
%34 = load %.string, %.string* %14
|
||||
call void @print_string(%.string %34)
|
||||
ret void
|
||||
}
|
||||
|
||||
define void @print_int(i64 %i, i64 %base) {
|
||||
"entry - 0":
|
||||
%0 = alloca i64, align 8 ; i
|
||||
@@ -285,7 +384,7 @@ define void @print_int(i64 %i, i64 %base) {
|
||||
"for.body - 5":
|
||||
%16 = alloca i8, align 1 ; c
|
||||
store i8 zeroinitializer, i8* %16
|
||||
%17 = getelementptr inbounds [64 x i8], [64 x i8]* @.stre, i64 0, i64 0
|
||||
%17 = getelementptr inbounds [64 x i8], [64 x i8]* @.str0, i64 0, i64 0
|
||||
%18 = load i64, i64* %1
|
||||
%19 = load i64, i64* %0
|
||||
%20 = srem i64 %19, %18
|
||||
@@ -329,8 +428,8 @@ define void @print_int(i64 %i, i64 %base) {
|
||||
br label %"if.done - 10"
|
||||
|
||||
"if.done - 10":
|
||||
%40 = alloca %-string, align 8 ; str
|
||||
store %-string zeroinitializer, %-string* %40
|
||||
%40 = alloca %.string, align 8 ; str
|
||||
store %.string zeroinitializer, %.string* %40
|
||||
%41 = load i64, i64* %3
|
||||
%42 = sub i64 %41, 0
|
||||
%43 = sub i64 21, 0
|
||||
@@ -352,33 +451,19 @@ define void @print_int(i64 %i, i64 %base) {
|
||||
%53 = load i8*, i8** %52
|
||||
%54 = getelementptr inbounds {i8*, i64, i64}, {i8*, i64, i64}* %51, i64 0, i32 1
|
||||
%55 = load i64, i64* %54
|
||||
%56 = alloca %-string, align 8
|
||||
store %-string zeroinitializer, %-string* %56
|
||||
%57 = getelementptr inbounds %-string, %-string* %56, i64 0, i32 0
|
||||
%58 = getelementptr inbounds %-string, %-string* %56, i64 0, i32 1
|
||||
%56 = alloca %.string, align 8
|
||||
store %.string zeroinitializer, %.string* %56
|
||||
%57 = getelementptr inbounds %.string, %.string* %56, i64 0, i32 0
|
||||
%58 = getelementptr inbounds %.string, %.string* %56, i64 0, i32 1
|
||||
store i8* %53, i8** %57
|
||||
store i64 %55, i64* %58
|
||||
%59 = load %-string, %-string* %56
|
||||
store %-string %59, %-string* %40
|
||||
%60 = load %-string, %-string* %40
|
||||
call void @string_byte_reverse(%-string %60)
|
||||
%61 = load %-string, %-string* %40
|
||||
call void @print_string(%-string %61)
|
||||
%59 = load %.string, %.string* %56
|
||||
store %.string %59, %.string* %40
|
||||
%60 = load %.string, %.string* %40
|
||||
call void @string_byte_reverse(%.string %60)
|
||||
%61 = load %.string, %.string* %40
|
||||
call void @print_string(%.string %61)
|
||||
ret void
|
||||
}
|
||||
|
||||
@.str0 = global [6 x i8] c"Hello\0A"
|
||||
@.str1 = global [1 x i8] c"\0A"
|
||||
@.str2 = global [23 x i8] c"Chinese\20-\20\E4\BD\A0\E5\A5\BD\E4\B8\96\E7\95\8C\0A"
|
||||
@.str3 = global [21 x i8] c"Dutch\20-\20Hello\20wereld\0A"
|
||||
@.str4 = global [22 x i8] c"English\20-\20Hello\20world\0A"
|
||||
@.str5 = global [23 x i8] c"French\20-\20Bonjour\20monde\0A"
|
||||
@.str6 = global [20 x i8] c"German\20-\20Hallo\20Welt\0A"
|
||||
@.str7 = global [37 x i8] c"Greek\20-\20\CE\B3\CE\B5\CE\B9\CE\AC\20\CF\83\CE\BF\CF\85\20\CE\BA\CF\8C\CF\83\CE\BC\CE\BF\CF\82\0A"
|
||||
@.str8 = global [21 x i8] c"Italian\20-\20Ciao\20mondo\0A"
|
||||
@.str9 = global [33 x i8] c"Japanese\20-\20\E3\81\93\E3\82\93\E3\81\AB\E3\81\A1\E3\81\AF\E4\B8\96\E7\95\8C\0A"
|
||||
@.stra = global [29 x i8] c"Korean\20-\20\EC\97\AC\EB\B3\B4\EC\84\B8\EC\9A\94\20\EC\84\B8\EA\B3\84\0A"
|
||||
@.strb = global [24 x i8] c"Portuguese\20-\20Ol\C3\A1\20mundo\0A"
|
||||
@.strc = global [42 x i8] c"Russian\20-\20\D0\97\D0\B4\D1\80\D0\B0\D0\B2\D1\81\D1\82\D0\B2\D1\83\D0\BB\D1\82\D0\B5\20\D0\BC\D0\B8\D1\80\0A"
|
||||
@.strd = global [21 x i8] c"Spanish\20-\20Hola\20mundo\0A"
|
||||
@.stre = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
|
||||
@.str0 = global [64 x i8] c"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\40$"
|
||||
|
||||
+16
-15
@@ -1,20 +1,21 @@
|
||||
import "basic"
|
||||
|
||||
main :: proc() {
|
||||
a := cast(int)"Hello\n"[1];
|
||||
print_int(a, 10);
|
||||
print_string("\n");
|
||||
TWO_HEARTS :: '💕';
|
||||
|
||||
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");
|
||||
main :: proc() {
|
||||
/*
|
||||
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");
|
||||
print_string("Russian - Здравствулте мир\n");
|
||||
print_string("Spanish - Hola mundo\n");
|
||||
*/
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user