test/loop.ssa

   1 # simple looping program
   2 # sums all integers from 100 to 0
   3
   4 export
   5 function $test() {
   6 @start
   7
   8 @loop
   9         %s  =w phi @start   0, @loop %s1
  10         %n  =w phi @start 100, @loop %n1
  11         %s1 =w add %s, %n
  12         %n1 =w sub %n, 1
  13         jnz %n1, @loop, @end
  14
  15 @end
  16         storew %s1, $a
  17         ret
  18 }
  19
  20 # >>> driver
  21 # extern void test(void);
  22 # int a;
  23 # int main() { test(); return !(a == 5050); }
  24 # <<<