test/euclc.ssa

   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 # <<<