15 lines
315 B
Plaintext
15 lines
315 B
Plaintext
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
|
|
} |