17 lines
332 B
Plaintext
17 lines
332 B
Plaintext
export
|
|
function w $main () {
|
|
@start
|
|
%x0 =l call $GC_malloc (l 16)
|
|
%.4 =l add %x0, 8
|
|
storel 18, %x0
|
|
storel 10, %.4
|
|
%.5 =l add %x0, 8
|
|
%x1 =l loadl %.5
|
|
%.6 =l shr 14, 2
|
|
%.7 =l shr %x1, 2
|
|
%.8 =l mul %.6, %.7
|
|
%.9 =l shl %.8, 2
|
|
%x2 =l add %.9, 2
|
|
%x3 =l call $scm_write (l %x2)
|
|
ret %x3
|
|
} |