euclc.ssa (425B)
1 export 2 function w $test() { 3 @l0 4 %a =l alloc4 4 5 %b =l alloc4 4 6 %r =l alloc4 4 7 storew 747, %a 8 storew 380, %b 9 @l1 10 %t4 =w loadw %b 11 jnz %t4, @l2, @l3 12 @l2 13 %t7 =w loadw %a 14 %t8 =w loadw %b 15 %t6 =w rem %t7, %t8 16 storew %t6, %r 17 %t10 =w loadw %b 18 storew %t10, %a 19 %t12 =w loadw %r 20 storew %t12, %b 21 jmp @l1 22 @l3 23 %t13 =w loadw %a 24 ret %t13 25 } 26 27 # >>> driver 28 # extern int test(void); 29 # int main() { return !(test() == 1); } 30 # <<<