summary refs log tree commit diff
path: root/lisc/test
diff options
context:
space:
mode:
authorQuentin Carbonneaux <quentin.carbonneaux@yale.edu>2016-02-15 22:06:29 -0500
committerQuentin Carbonneaux <quentin.carbonneaux@yale.edu>2016-02-15 22:06:29 -0500
commit2cfccce68099b3037471d3c6c34e8e6dbc899409 (patch)
treefcd85a0c37760ded23b5b4c9d967d88fa1589b3f /lisc/test
parentb7dd7edbd5d6f821ffb30da2987d0666a1903145 (diff)
downloadroux-2cfccce68099b3037471d3c6c34e8e6dbc899409.tar.gz
use arguments in mandelbrot test
Diffstat (limited to 'lisc/test')
-rw-r--r--lisc/test/mandel.ssa15
1 files changed, 2 insertions, 13 deletions
diff --git a/lisc/test/mandel.ssa b/lisc/test/mandel.ssa
index ca3f647..7aaf311 100644
--- a/lisc/test/mandel.ssa
+++ b/lisc/test/mandel.ssa
@@ -1,12 +1,8 @@
 # Print the Mandelbrot set on the
 # terminal line output.
 
-# function w $mandel(d %x, d %y) {
-function w $mandel() {
+function w $mandel(d %x, d %y) {
 @mandel
-	%x =d loadd $x
-	%y =d loadd $y
-
 	%cr =d sub %y, d_0.5
 	%ci =d copy %x
 @loop
@@ -39,10 +35,7 @@ function w $main() {
 	%y =d phi @main d_-1, @loopy1 %y1
 @loopx
 	%x =d phi @loopy d_-1, @loopx1 %x1
-	# %i =w call $mandel(d %x, d %y)
-	stored %x, $x
-	stored %y, $y
-	%i =w call $mandel()
+	%i =w call $mandel(d %x, d %y)
 	jnz %i, @out, @in
 @in
 	%r0 =w call $putchar(w 42)   # '*'
@@ -62,7 +55,3 @@ function w $main() {
 @ret
 	ret 0
 }
-
-# ABI not implemented, yet.
-data $x = { l 0 }
-data $y = { l 0 }