mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

Minor assembler cleanups

Browse source 
* module/system/vm/assembler.scm (shuffling-assembler): Minor renames.
This commit is contained in:
Andy Wingo 2015-10-21 15:02:08 +02:00
parent 70c317ab51
commit 4afb46f859
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -691,13 +691,13 @@ later by the linker."
(emit asm 1 0 c) (emit asm 1 0 c)
(emit-drop asm 2))))) (emit-drop asm 2)))))
(('X8_S12_S12 '<- 'X8_C24) (('X8_S12_S12 '<- 'X8_C24)
#'(lambda (asm dst a c) #'(lambda (asm dst a const)
(cond (cond
((< (logior dst a) (ash 1 12)) ((< (logior dst a) (ash 1 12))
(emit asm dst a c)) (emit asm dst a const))
(else (else
(emit-push asm a) (emit-push asm a)
(emit asm 0 0 c) (emit asm 0 0 const)
(emit-pop asm dst))))) (emit-pop asm dst)))))
(('X8_S12_C12 '<-) (('X8_S12_C12 '<-)