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