example/closure.scm

@@ -0,0 +1,15 @@
+(define (adder x)
+  (lambda (y)
+    (+ x y)))
+
+((adder 3) 4)
+
+
+
+(define (adder x)
+  (list (lambda (self y)
+          (+ (nth self 1) y))
+        x))
+
+(let ((closure (adder 3)))
+  ((nth closure 0) closure 4))

example/t.s

@@ -0,0 +1,70 @@
+.text
+zerop:
+	pushq %rbp
+	movq %rsp, %rbp
+	cmpl $0, %edi
+	jnz .Lbb2
+	movl $1, %eax
+	jmp .Lbb3
+.Lbb2:
+	movl $0, %eax
+.Lbb3:
+	leave
+	ret
+.type zerop, @function
+.size zerop, .-zerop
+/* end function zerop */
+
+.text
+factorial:
+	pushq %rbp
+	movq %rsp, %rbp
+	subq $8, %rsp
+	pushq %rbx
+	movq %rdi, %rbx
+	callq zerop
+	movq %rbx, %rdi
+	cmpl $0, %eax
+	jnz .Lbb6
+	movq %rdi, %rbx
+	subq $1, %rdi
+	callq factorial
+	movq %rbx, %rdi
+	imulq %rdi, %rax
+	jmp .Lbb7
+.Lbb6:
+	movl $1, %eax
+.Lbb7:
+	popq %rbx
+	leave
+	ret
+.type factorial, @function
+.size factorial, .-factorial
+/* end function factorial */
+
+.data
+.balign 8
+fstr:
+	.ascii "fac 3 = %d\n"
+	.byte 0
+/* end data */
+
+.text
+.globl main
+main:
+	pushq %rbp
+	movq %rsp, %rbp
+	movl $3, %edi
+	callq factorial
+	movq %rax, %rsi
+	leaq fstr(%rip), %rdi
+	movl $0, %eax
+	callq printf
+	movl $0, %eax
+	leave
+	ret
+.type main, @function
+.size main, .-main
+/* end function main */
+
+.section .note.GNU-stack,"",@progbits

example/t.scm

@@ -0,0 +1,16 @@
+(define (factorial n)
+  (if (zero? n)
+      1
+      (* n (factorial (- n 1)))))
+
+
+;;; ANF
+
+(define (factorial n)
+  (let ((r₁ (zero? n)))
+    (if r₁
+        1
+        (let ((r₂ (- n 1))
+              (r₃ (factorial r₂))
+              (r₄ (* n r₃)))
+          r₄))))

example/t.ssa

@@ -0,0 +1,30 @@
+function l $zerop (l %n) {
+@start
+	jnz %n, @b1, @b2
+@b1
+	ret 0
+@b2
+	ret 1
+}
+
+function l $factorial (l %n) {
+@start
+	%r1 =l call $zerop (l %n)
+	jnz %r1, @b1, @b2
+@b1
+	ret 1
+@b2
+	%r2 =l sub %n, 1
+	%r3 =l call $factorial (l %r2)
+	%r4 =l mul %n, %r3
+	ret %r4
+}
+
+data $fstr = { b "fac 3 = %d\n", b 0 }
+
+export function w $main () {
+@start
+	%r =l call $factorial (l 3)
+	call $printf (l $fstr, ..., l %r)
+	ret 0
+}