callGCC

play/t.anf

@@ -1,4 +1,4 @@
 ;;; -*- mode:scheme -*-
 
-(let ((x0 (prim:write 4))) x0)
+(let ((x0 (prim:+ 2 4)) (x1 (prim:write x0))) x1)
 

play/t.s

@@ -3,7 +3,7 @@
 main:
 	pushq %rbp
 	movq %rsp, %rbp
-	movl $18, %edi
+	movl $30, %edi
 	callq scm_write
 	leave
 	ret
@@ -11,4 +11,4 @@ main:
 .size main, .-main
 /* end function main */
 
-.section .note.GNU-stack,"",@progbits
+.section .note.GNU-stack,"",@progbits

play/t.scm

@@ -1 +1 @@
-(prim:write 4)
+(prim:write (prim:+ 2 4))

play/t.ssa

@@ -1,6 +1,9 @@
 export
 function w $main () {
 @start
-    %x0 =l call $scm_write (l 18)
-    ret %x0
+    %.2 =l add 10, 18
+    %.3 =l and %.2, 18446744073709551613
+    %x0 =l or %.3, 2
+    %x1 =l call $scm_write (l %x0)
+    ret %x1
 }