big
This commit is contained in:
12
play/t.ssa
Normal file
12
play/t.ssa
Normal file
@@ -0,0 +1,12 @@
|
||||
type :scm = {l 2}
|
||||
export
|
||||
function w $main () {
|
||||
@start
|
||||
%x0 =l call $GC_malloc (l 16)
|
||||
%.3 =l add %x0, 8
|
||||
storel 10, %x0
|
||||
storel 14, %.3
|
||||
%x1 =l call $scm_write (l %x0)
|
||||
%x2 =l call $scm_write (l 18)
|
||||
ret %x2
|
||||
}
|
||||
Reference in New Issue
Block a user