[Guile-commits] 02/05: Fix emit-receive* for many locals

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 362907810bbe9a20cf5097363d959cb67db67b36
Author: Andy Wingo <address@hidden>
Date:   Sat Dec 26 15:11:01 2015 +0100

    Fix emit-receive* for many locals
    
    * module/system/vm/assembler.scm (emit-receive*): Fix to use FP-relative
      move instead of SP-relative move.
---
 module/system/vm/assembler.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 311cf3a..8d9b90c 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -842,7 +842,7 @@ later by the linker."
       (emit-receive asm dst proc nlocals)
       (begin
         (emit-receive-values asm proc #t 1)
-        (emit-mov* asm dst (1+ proc))
+        (emit-fmov* asm dst (1+ proc))
         (emit-reset-frame asm nlocals))))
 
 (define (emit-text asm instructions)