mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-11-13 06:06:27 +00:00
69ccadd753
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@32115 91177308-0d34-0410-b5e6-96231b3b80d8
77 lines
3.0 KiB
LLVM
77 lines
3.0 KiB
LLVM
; RUN: llvm-upgrade < %s | llvm-as | llc
|
|
|
|
%a_str = internal constant [8 x sbyte] c"a = %f\0A\00"
|
|
%b_str = internal constant [8 x sbyte] c"b = %f\0A\00"
|
|
;; binary ops: arith
|
|
%add_str = internal constant [12 x sbyte] c"a + b = %f\0A\00"
|
|
%sub_str = internal constant [12 x sbyte] c"a - b = %f\0A\00"
|
|
%mul_str = internal constant [12 x sbyte] c"a * b = %f\0A\00"
|
|
%div_str = internal constant [12 x sbyte] c"b / a = %f\0A\00"
|
|
%rem_str = internal constant [13 x sbyte] c"b %% a = %f\0A\00"
|
|
;; binary ops: setcc
|
|
%lt_str = internal constant [12 x sbyte] c"a < b = %d\0A\00"
|
|
%le_str = internal constant [13 x sbyte] c"a <= b = %d\0A\00"
|
|
%gt_str = internal constant [12 x sbyte] c"a > b = %d\0A\00"
|
|
%ge_str = internal constant [13 x sbyte] c"a >= b = %d\0A\00"
|
|
%eq_str = internal constant [13 x sbyte] c"a == b = %d\0A\00"
|
|
%ne_str = internal constant [13 x sbyte] c"a != b = %d\0A\00"
|
|
|
|
declare int %printf(sbyte*, ...)
|
|
%A = global double 2.0
|
|
%B = global double 5.0
|
|
|
|
int %main() {
|
|
;; main vars
|
|
%a = load double* %A
|
|
%b = load double* %B
|
|
|
|
%a_s = getelementptr [8 x sbyte]* %a_str, long 0, long 0
|
|
%b_s = getelementptr [8 x sbyte]* %b_str, long 0, long 0
|
|
|
|
call int (sbyte*, ...)* %printf(sbyte* %a_s, double %a)
|
|
call int (sbyte*, ...)* %printf(sbyte* %b_s, double %b)
|
|
|
|
;; arithmetic
|
|
%add_r = add double %a, %b
|
|
%sub_r = sub double %a, %b
|
|
%mul_r = mul double %a, %b
|
|
%div_r = div double %b, %a
|
|
%rem_r = rem double %b, %a
|
|
|
|
%add_s = getelementptr [12 x sbyte]* %add_str, long 0, long 0
|
|
%sub_s = getelementptr [12 x sbyte]* %sub_str, long 0, long 0
|
|
%mul_s = getelementptr [12 x sbyte]* %mul_str, long 0, long 0
|
|
%div_s = getelementptr [12 x sbyte]* %div_str, long 0, long 0
|
|
%rem_s = getelementptr [13 x sbyte]* %rem_str, long 0, long 0
|
|
|
|
call int (sbyte*, ...)* %printf(sbyte* %add_s, double %add_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %sub_s, double %sub_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %mul_s, double %mul_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %div_s, double %div_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %rem_s, double %rem_r)
|
|
|
|
;; setcc
|
|
%lt_r = setlt double %a, %b
|
|
%le_r = setle double %a, %b
|
|
%gt_r = setgt double %a, %b
|
|
%ge_r = setge double %a, %b
|
|
%eq_r = seteq double %a, %b
|
|
%ne_r = setne double %a, %b
|
|
|
|
%lt_s = getelementptr [12 x sbyte]* %lt_str, long 0, long 0
|
|
%le_s = getelementptr [13 x sbyte]* %le_str, long 0, long 0
|
|
%gt_s = getelementptr [12 x sbyte]* %gt_str, long 0, long 0
|
|
%ge_s = getelementptr [13 x sbyte]* %ge_str, long 0, long 0
|
|
%eq_s = getelementptr [13 x sbyte]* %eq_str, long 0, long 0
|
|
%ne_s = getelementptr [13 x sbyte]* %ne_str, long 0, long 0
|
|
|
|
call int (sbyte*, ...)* %printf(sbyte* %lt_s, bool %lt_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %le_s, bool %le_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %gt_s, bool %gt_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %ge_s, bool %ge_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %eq_s, bool %eq_r)
|
|
call int (sbyte*, ...)* %printf(sbyte* %ne_s, bool %ne_r)
|
|
|
|
ret int 0
|
|
}
|