This commit is contained in:
15
play/t.ssa
15
play/t.ssa
@@ -1,15 +0,0 @@
|
||||
type :scm = {l 2}
|
||||
export
|
||||
function w $main () {
|
||||
@start
|
||||
%x0 =l call $GC_malloc (l 16)
|
||||
%.4 =l add %x0, 8
|
||||
storel 10, %x0
|
||||
storel 14, %.4
|
||||
%x1 =l call $scm_write (l %x0)
|
||||
%.5 =l mul 22, 18
|
||||
%.6 =l and %.5, 18446744073709551613
|
||||
%x2 =l or %.6, 2
|
||||
%x3 =l call $scm_write (l %x2)
|
||||
ret %x3
|
||||
}
|
||||
Reference in New Issue
Block a user