Misha Brukman | 5b160f1 | 2004-08-11 14:16:34 +0000 | [diff] [blame^] | 1 | %a_str = internal constant [8 x sbyte] c"a = %d\0A\00" |
| 2 | %b_str = internal constant [8 x sbyte] c"b = %d\0A\00" |
| 3 | ;; binary ops: arith |
| 4 | %add_str = internal constant [12 x sbyte] c"a + b = %d\0A\00" |
| 5 | %sub_str = internal constant [12 x sbyte] c"a - b = %d\0A\00" |
| 6 | %mul_str = internal constant [12 x sbyte] c"a * b = %d\0A\00" |
| 7 | %div_str = internal constant [12 x sbyte] c"b / a = %d\0A\00" |
| 8 | %rem_str = internal constant [13 x sbyte] c"b \% a = %d\0A\00" |
| 9 | ;; binary ops: setcc |
| 10 | %lt_str = internal constant [12 x sbyte] c"a < b = %d\0A\00" |
| 11 | %le_str = internal constant [13 x sbyte] c"a <= b = %d\0A\00" |
| 12 | %gt_str = internal constant [12 x sbyte] c"a > b = %d\0A\00" |
| 13 | %ge_str = internal constant [13 x sbyte] c"a >= b = %d\0A\00" |
| 14 | %eq_str = internal constant [13 x sbyte] c"a == b = %d\0A\00" |
| 15 | %ne_str = internal constant [13 x sbyte] c"a != b = %d\0A\00" |
| 16 | ;; logical |
| 17 | %and_str = internal constant [12 x sbyte] c"a & b = %d\0A\00" |
| 18 | %or_str = internal constant [12 x sbyte] c"a | b = %d\0A\00" |
| 19 | %xor_str = internal constant [12 x sbyte] c"a ^ b = %d\0A\00" |
| 20 | %shl_str = internal constant [13 x sbyte] c"b << a = %d\0A\00" |
| 21 | %shr_str = internal constant [13 x sbyte] c"b >> a = %d\0A\00" |
| 22 | |
| 23 | declare int %printf(sbyte*, ...) |
| 24 | %A = global int 2 |
| 25 | %B = global int 5 |
| 26 | |
| 27 | int %main() { |
| 28 | ;; main vars |
| 29 | %a = load int* %A |
| 30 | %b = load int* %B |
| 31 | |
| 32 | %a_s = getelementptr [8 x sbyte]* %a_str, long 0, long 0 |
| 33 | %b_s = getelementptr [8 x sbyte]* %b_str, long 0, long 0 |
| 34 | |
| 35 | call int (sbyte*, ...)* %printf(sbyte* %a_s, int %a) |
| 36 | call int (sbyte*, ...)* %printf(sbyte* %b_s, int %b) |
| 37 | |
| 38 | ;; arithmetic |
| 39 | %add_r = add int %a, %b |
| 40 | %sub_r = sub int %a, %b |
| 41 | %mul_r = mul int %a, %b |
| 42 | %div_r = div int %b, %a |
| 43 | %rem_r = rem int %b, %a |
| 44 | |
| 45 | %add_s = getelementptr [12 x sbyte]* %add_str, long 0, long 0 |
| 46 | %sub_s = getelementptr [12 x sbyte]* %sub_str, long 0, long 0 |
| 47 | %mul_s = getelementptr [12 x sbyte]* %mul_str, long 0, long 0 |
| 48 | %div_s = getelementptr [12 x sbyte]* %div_str, long 0, long 0 |
| 49 | %rem_s = getelementptr [13 x sbyte]* %rem_str, long 0, long 0 |
| 50 | |
| 51 | call int (sbyte*, ...)* %printf(sbyte* %add_s, int %add_r) |
| 52 | call int (sbyte*, ...)* %printf(sbyte* %sub_s, int %sub_r) |
| 53 | call int (sbyte*, ...)* %printf(sbyte* %mul_s, int %mul_r) |
| 54 | call int (sbyte*, ...)* %printf(sbyte* %div_s, int %div_r) |
| 55 | call int (sbyte*, ...)* %printf(sbyte* %rem_s, int %rem_r) |
| 56 | |
| 57 | ;; setcc |
| 58 | %lt_r = setlt int %a, %b |
| 59 | %le_r = setle int %a, %b |
| 60 | %gt_r = setgt int %a, %b |
| 61 | %ge_r = setge int %a, %b |
| 62 | %eq_r = seteq int %a, %b |
| 63 | %ne_r = setne int %a, %b |
| 64 | |
| 65 | %lt_s = getelementptr [12 x sbyte]* %lt_str, long 0, long 0 |
| 66 | %le_s = getelementptr [13 x sbyte]* %le_str, long 0, long 0 |
| 67 | %gt_s = getelementptr [12 x sbyte]* %gt_str, long 0, long 0 |
| 68 | %ge_s = getelementptr [13 x sbyte]* %ge_str, long 0, long 0 |
| 69 | %eq_s = getelementptr [13 x sbyte]* %eq_str, long 0, long 0 |
| 70 | %ne_s = getelementptr [13 x sbyte]* %ne_str, long 0, long 0 |
| 71 | |
| 72 | call int (sbyte*, ...)* %printf(sbyte* %lt_s, bool %lt_r) |
| 73 | call int (sbyte*, ...)* %printf(sbyte* %le_s, bool %le_r) |
| 74 | call int (sbyte*, ...)* %printf(sbyte* %gt_s, bool %gt_r) |
| 75 | call int (sbyte*, ...)* %printf(sbyte* %ge_s, bool %ge_r) |
| 76 | call int (sbyte*, ...)* %printf(sbyte* %eq_s, bool %eq_r) |
| 77 | call int (sbyte*, ...)* %printf(sbyte* %ne_s, bool %ne_r) |
| 78 | |
| 79 | ;; logical |
| 80 | %and_r = and int %a, %b |
| 81 | %or_r = or int %a, %b |
| 82 | %xor_r = xor int %a, %b |
| 83 | %u = cast int %a to ubyte |
| 84 | %shl_r = shl int %b, ubyte %u |
| 85 | %shr_r = shr int %b, ubyte %u |
| 86 | |
| 87 | %and_s = getelementptr [12 x sbyte]* %and_str, long 0, long 0 |
| 88 | %or_s = getelementptr [12 x sbyte]* %or_str, long 0, long 0 |
| 89 | %xor_s = getelementptr [12 x sbyte]* %xor_str, long 0, long 0 |
| 90 | %shl_s = getelementptr [13 x sbyte]* %shl_str, long 0, long 0 |
| 91 | %shr_s = getelementptr [13 x sbyte]* %shr_str, long 0, long 0 |
| 92 | |
| 93 | call int (sbyte*, ...)* %printf(sbyte* %and_s, int %and_r) |
| 94 | call int (sbyte*, ...)* %printf(sbyte* %or_s, int %or_r) |
| 95 | call int (sbyte*, ...)* %printf(sbyte* %xor_s, int %xor_r) |
| 96 | call int (sbyte*, ...)* %printf(sbyte* %shl_s, int %shl_r) |
| 97 | call int (sbyte*, ...)* %printf(sbyte* %shr_s, int %shr_r) |
| 98 | |
| 99 | ret int 0 |
| 100 | } |