guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 07/27: Don't emit redundant reset-frame before return


From: Andy Wingo
Subject: [Guile-commits] 07/27: Don't emit redundant reset-frame before return
Date: Wed, 11 Nov 2015 11:39:08 +0000

wingo pushed a commit to branch master
in repository guile.

commit 7c9e477b82377834d126dcc6294922b8de9722bd
Author: Andy Wingo <address@hidden>
Date:   Wed Oct 28 11:00:05 2015 +0000

    Don't emit redundant reset-frame before return
    
    * module/language/cps/compile-bytecode.scm (compile-function): Don't
      emit reset-frame before return-values.
---
 module/language/cps/compile-bytecode.scm |    2 --
 1 files changed, 0 insertions(+), 2 deletions(-)

diff --git a/module/language/cps/compile-bytecode.scm 
b/module/language/cps/compile-bytecode.scm
index 838fd4d..a313da7 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -123,7 +123,6 @@
                    (lookup-parallel-moves label allocation))
          (emit-tail-call-label asm (1+ (length args)) k))
         (($ $values ())
-         (emit-reset-frame asm 1)
          (emit-return-values asm 1))
         (($ $values (arg))
          (if (maybe-slot arg)
@@ -137,7 +136,6 @@
          (for-each (match-lambda
                     ((src . dst) (emit-mov asm (from-sp dst) (from-sp src))))
                    (lookup-parallel-moves label allocation))
-         (emit-reset-frame asm (1+ (length args)))
          (emit-return-values asm (1+ (length args))))
         (($ $primcall 'return (arg))
          (emit-return asm (from-sp (slot arg))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]