From: Luke Lau <luke_lau@icloud.com>
Date: Tue, 30 Jul 2019 22:57:23 +0000 (+0100)
Subject: Fix starting off with the wrong stack index
X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=commitdiff_plain;h=f4ac36dfdebc05a60aa88c5d345d8baac2393147

Fix starting off with the wrong stack index

And thus fix botched backtraces
---

diff --git a/codegen.scm b/codegen.scm
index 52df26e..7a12fc2 100644
--- a/codegen.scm
+++ b/codegen.scm
@@ -541,7 +541,7 @@
 
     (emit "movq %rsp, %rbp")            ; set up the base pointer
     
-    (codegen-expr xform-prog wordsize '())
+    (codegen-expr xform-prog (- wordsize) '())
 
 					; exit syscall
     (emit "mov %rax, %rdi")