diff options
Diffstat (limited to 'lisc/test/eucl.ssa')
-rw-r--r-- | lisc/test/eucl.ssa | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/lisc/test/eucl.ssa b/lisc/test/eucl.ssa deleted file mode 100644 index f50fd2c..0000000 --- a/lisc/test/eucl.ssa +++ /dev/null @@ -1,24 +0,0 @@ -# euclide's algorithm in ssa -# it is a fairly interesting -# ssa program because of the -# swap of b and a - -function $test() { -@start - -@loop - %a =w phi @start 380, @loop %r - %b =w phi @start 747, @loop %a - %r =w rem %b, %a - jnz %r, @loop, @end - -@end - storew %a, $a - ret -} - -# >>> driver -# extern void test(void); -# int a; -# int main() { test(); return !(a == 1); } -# <<< |