Save call-saved register before modifying.

Author: dvanhorn

langs/hoax/compile.rkt

@@ -18,9 +18,11 @@
         (Extern 'raise_error)
         (Global 'entry)
         (Label 'entry)
+	(Push rbx)    ; save callee-saved register
         (Mov rbx rdi) ; recv heap pointer
         (compile-e e '())
-        (Ret)
+	(Pop rbx)     ; restore callee-save register
+	(Ret)
         (Label 'raise_error_align)
         pad-stack
         (Call 'raise_error)))

langs/hustle/compile.rkt

@@ -18,8 +18,10 @@
         (Extern 'raise_error)
         (Global 'entry)
         (Label 'entry)
+	(Push rbx)    ; save callee-saved register
         (Mov rbx rdi) ; recv heap pointer
         (compile-e e '())
+	(Pop rbx)     ; restore callee-save register
         (Ret)
         (Label 'raise_error_align)
         pad-stack

langs/iniquity/compile.rkt

@@ -17,8 +17,10 @@
      (prog (externs)
            (Global 'entry)
            (Label 'entry)
-           (Mov rbx rdi)   ; recv heap pointer
+           (Push rbx)    ; save callee-saved register	   
+           (Mov rbx rdi) ; recv heap pointer
            (compile-e e '())
+           (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)
            (Label 'raise_error_align)

langs/jig/compile.rkt

@@ -17,8 +17,10 @@
      (prog (externs)
            (Global 'entry)
            (Label 'entry)
+           (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
            (compile-e e '() #t)
+           (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)
            (Label 'raise_error_align)

langs/knock/compile.rkt

@@ -17,8 +17,10 @@
      (prog (externs)
            (Global 'entry)
            (Label 'entry)
+           (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
            (compile-e e '() #t)
+           (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)
            (Label 'raise_error_align)

langs/loot/compile.rkt

@@ -17,10 +17,12 @@
      (prog (externs)
            (Global 'entry)
            (Label 'entry)
+           (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
            (compile-defines-values ds)
            (compile-e e (reverse (define-ids ds)) #t)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
+           (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)
            (compile-lambda-defines (lambdas p))

langs/mountebank/compile.rkt

@@ -24,11 +24,13 @@
      (prog (externs)
            (Global 'entry)
            (Label 'entry)
+           (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
            (init-symbol-table p)
            (compile-defines-values ds)
            (compile-e e (reverse (define-ids ds)) #t)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
+           (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)
            (compile-lambda-defines (lambdas p))

langs/mug/compile.rkt

@@ -24,11 +24,13 @@
      (prog (externs)
            (Global 'entry)
            (Label 'entry)
+           (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
            (init-symbol-table p)
            (compile-defines-values ds)
            (compile-e e (reverse (define-ids ds)) #t)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
+           (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)
            (compile-lambda-defines (lambdas p))

langs/neerdowell/compile.rkt

@@ -24,11 +24,13 @@
      (prog (externs)
            (Global 'entry)
            (Label 'entry)
+           (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
            (init-symbol-table p)
            (compile-defines-values ds)
            (compile-e e (reverse (define-ids ds)) #t)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
+           (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)
            (compile-lambda-defines (lambdas p))