mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Fix emit-receive* for many locals

Browse source 
* module/system/vm/assembler.scm (emit-receive*): Fix to use FP-relative
  move instead of SP-relative move.
This commit is contained in:
Andy Wingo 2015-12-26 15:11:01 +01:00
parent 9e1c07bda6
commit 362907810b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/assembler.scm
View file

@ -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)