implement export control

21 files changed, 22 insertions, 0 deletions

diff --git a/test/abi1.ssa b/test/abi1.ssa
index 69cce44..049f10e 100644
--- a/test/abi1.ssa
+++ b/test/abi1.ssa
@@ -20,6 +20,7 @@ function $alpha(l %p, w %l, l %n) {
 	ret
 }
 
+export
 function $test() {
 @start
 	%p =l alloc4 17
diff --git a/test/abi2.ssa b/test/abi2.ssa
index b82c80c..42a3bae 100644
--- a/test/abi2.ssa
+++ b/test/abi2.ssa
@@ -1,5 +1,6 @@
 type :fps = { s, b, s }
 
+export
 function s $sum(:fps %p) {
 @start
 	%f1 =s load %p
diff --git a/test/abi3.ssa b/test/abi3.ssa
index 608d1db..35cade8 100644
--- a/test/abi3.ssa
+++ b/test/abi3.ssa
@@ -2,6 +2,7 @@ type :four = {l, b, w}
 
 data $z = { w 0 }
 
+export
 function $test() {
  @start
 	%a  =w loadw $z
diff --git a/test/abi4.ssa b/test/abi4.ssa
index 4c3d89b..844d985 100644
--- a/test/abi4.ssa
+++ b/test/abi4.ssa
@@ -18,6 +18,7 @@ function $alpha(l %p, w %l, l %n) {
 	ret
 }
 
+export
 function :mem $test() {
 @start
 	%p =l alloc4 17
diff --git a/test/abi5.ssa b/test/abi5.ssa
index 4c5eaea..7899035 100644
--- a/test/abi5.ssa
+++ b/test/abi5.ssa
@@ -18,6 +18,7 @@ data $fmt6 = { b "t6: %s\n", b 0 }
 data $fmt7 = { b "t7: %f %f\n", b 0 }
 data $fmt8 = { b "t8: %d %d %d %d\n", b 0 }
 
+export
 function $test() {
 @start
 	%r1 =:st1 call $t1()
diff --git a/test/align.ssa b/test/align.ssa
index 84d1fb9..49f1183 100644
--- a/test/align.ssa
+++ b/test/align.ssa
@@ -1,3 +1,4 @@
+export
 function $test() {
 @start
 	%x =l alloc16 16
diff --git a/test/collatz.ssa b/test/collatz.ssa
index 373ecac..0a593b1 100644
--- a/test/collatz.ssa
+++ b/test/collatz.ssa
@@ -3,6 +3,7 @@
 # we use a fast local array to
 # memoize small collatz numbers
 
+export
 function $test() {
 @start
 	%mem =l alloc4 4000
diff --git a/test/cprime.ssa b/test/cprime.ssa
index 1ca60e1..8fadef3 100644
--- a/test/cprime.ssa
+++ b/test/cprime.ssa
@@ -2,6 +2,7 @@
 # compiler from the C program
 # following in comments
 
+export
 function w $main() {
 @start
 	%v0 =l alloc8 4
diff --git a/test/cup.ssa b/test/cup.ssa
index 013394f..b53c86e 100644
--- a/test/cup.ssa
+++ b/test/cup.ssa
@@ -1,5 +1,6 @@
 # counts up from -1988 to 1991
 
+export
 function $test() {
 @start
 @loop
diff --git a/test/dark.ssa b/test/dark.ssa
index 5046af3..373b1b1 100644
--- a/test/dark.ssa
+++ b/test/dark.ssa
@@ -6,6 +6,7 @@ type :magic = align 1 { 0 }
 
 data $ret = { l 0 }
 
+export
 function $test(:magic %p) {
 @start
 	%av =w loadw $a
diff --git a/test/double.ssa b/test/double.ssa
index d885d28..ac6c4c5 100644
--- a/test/double.ssa
+++ b/test/double.ssa
@@ -1,3 +1,4 @@
+export
 function $test() {
 @start
 	%x1 =d copy d_0.1
diff --git a/test/echo.ssa b/test/echo.ssa
index d3c8a25..6671a6a 100644
--- a/test/echo.ssa
+++ b/test/echo.ssa
@@ -1,3 +1,4 @@
+export
 function w $main(w %argc, l %argv) {
 @start
 	%fmt =l alloc8 8
diff --git a/test/eucl.ssa b/test/eucl.ssa
index f50fd2c..838c1b8 100644
--- a/test/eucl.ssa
+++ b/test/eucl.ssa
@@ -3,6 +3,7 @@
 # ssa program because of the
 # swap of b and a
 
+export
 function $test() {
 @start
 
diff --git a/test/euclc.ssa b/test/euclc.ssa
index c76db2f..3449234 100644
--- a/test/euclc.ssa
+++ b/test/euclc.ssa
@@ -1,3 +1,4 @@
+export
 function w $test() {
 @l0
 	%a =l alloc4 4
diff --git a/test/fpcnv.ssa b/test/fpcnv.ssa
index 5fd3be9..06d2478 100644
--- a/test/fpcnv.ssa
+++ b/test/fpcnv.ssa
@@ -1,5 +1,6 @@
 # floating point casts and conversions
 
+export
 function s $fneg(s %f) {
 @fneg
 	%b0 =w cast %f
@@ -8,6 +9,7 @@ function s $fneg(s %f) {
 	ret %rs
 }
 
+export
 function d $ftrunc(d %f) {
 @ftrunc
 	%l0 =l ftosi %f
diff --git a/test/loop.ssa b/test/loop.ssa
index c8c4ee0..98914d9 100644
--- a/test/loop.ssa
+++ b/test/loop.ssa
@@ -1,6 +1,7 @@
 # simple looping program
 # sums all integers from 100 to 0
 
+export
 function $test() {
 @start
 
diff --git a/test/mandel.ssa b/test/mandel.ssa
index efefeb3..67d960a 100644
--- a/test/mandel.ssa
+++ b/test/mandel.ssa
@@ -29,6 +29,7 @@ function w $mandel(d %x, d %y) {
 	ret 0
 }
 
+export
 function w $main() {
 @main
 @loopy
diff --git a/test/max.ssa b/test/max.ssa
index 547e9d4..27fa8ca 100644
--- a/test/max.ssa
+++ b/test/max.ssa
@@ -6,6 +6,7 @@
 
 data $arr = { b 10, b -60, b 10, b 100, b 200, b 0 }
 
+export
 function $test() {
 @start
 @loop
diff --git a/test/prime.ssa b/test/prime.ssa
index 12d0273..2273e1d 100644
--- a/test/prime.ssa
+++ b/test/prime.ssa
@@ -1,6 +1,7 @@
 # find the 10,001st prime
 # store it in a
 
+export
 function $test() {
 @start
 @loop
diff --git a/test/puts10.ssa b/test/puts10.ssa
index 1dcf227..8c6ed5e 100644
--- a/test/puts10.ssa
+++ b/test/puts10.ssa
@@ -1,3 +1,4 @@
+export
 function $main() {
 @start
 	%y  =l alloc4 4
diff --git a/test/sum.ssa b/test/sum.ssa
index 266054e..08ba8c0 100644
--- a/test/sum.ssa
+++ b/test/sum.ssa
@@ -1,5 +1,6 @@
 # Simple test for addressing modes.
 
+export
 function w $sum(l %arr, w %num) {
 @start
 @loop