diff options
Diffstat (limited to 'lisc/test/prime.ssa')
-rw-r--r-- | lisc/test/prime.ssa | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/lisc/test/prime.ssa b/lisc/test/prime.ssa deleted file mode 100644 index 12d0273..0000000 --- a/lisc/test/prime.ssa +++ /dev/null @@ -1,32 +0,0 @@ -# find the 10,001st prime -# store it in a - -function $test() { -@start -@loop - %n =w phi @start 5, @tloop %n, @yes %n1 - %p =w phi @start 13, @tloop %p1, @yes %p1 - %p1 =w add %p, 2 -@tloop - %t =w phi @loop 3, @next %t1 - %r =w rem %p, %t - jnz %r, @next, @loop -@next - %t1 =w add 2, %t - %tsq =w mul %t1, %t1 - %c0 =w csgtw %tsq, %p - jnz %c0, @yes, @tloop -@yes - %n1 =w add 1, %n - %c1 =w ceqw 10001, %n1 - jnz %c1, @end, @loop -@end - storew %p, $a - ret -} - -# >>> driver -# extern void test(void); -# int a; -# int main() { test(); return !(a == 104743); } -# <<< |