From 6deb301f3eeec3061da7fb72996023187b98463f Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Sat, 5 Mar 2016 08:19:04 -0500
Subject: new abi test, driver is to do

---
 lisc/test/abi3.ssa | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 lisc/test/abi3.ssa

(limited to 'lisc/test/abi3.ssa')

diff --git a/lisc/test/abi3.ssa b/lisc/test/abi3.ssa
new file mode 100644
index 0000000..0755783
--- /dev/null
+++ b/lisc/test/abi3.ssa
@@ -0,0 +1,31 @@
+
+# l is for long word (64bits)
+# w is for word      (32bits)
+# h is for half word (16bits)
+# b is for byte      (8bits)
+
+type :four = {l, b, w}
+
+function $test() {
+ @start
+	%y  =w copy 0
+
+	%s  =l alloc8 16   # allocate a :four struct
+	%s1 =l add %s, 12  # get address of the w
+	storel 3, %s       # set the l
+	storew 4, %s1      # set the w
+
+	# function call with the above :four
+	# struct as first argument and 5 int
+	# arguments
+
+	%f  =l copy $F
+	%x  =w call %f(w %y, w 1, w 2, :four %s, w 5, w 6)
+
+	# store the result in the
+	# global variable a
+
+	%x1 =w add %y, %x
+	storew %x1, $a
+	ret
+}
-- 
cgit 1.4.1