f16/f128,u|i128, basic vector support.

This commit is contained in:
gingerBill
2016-08-10 10:00:57 +01:00
parent cff5e54ec6
commit c930841f83
11 changed files with 733 additions and 263 deletions
+47 -1
View File
@@ -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
View File
@@ -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
View File
@@ -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");
*/
}