From 4afb46f8599854dd36af25576ec4b7ab1c39745f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 21 Oct 2015 15:02:08 +0200 Subject: [PATCH] Minor assembler cleanups * module/system/vm/assembler.scm (shuffling-assembler): Minor renames. --- module/system/vm/assembler.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index bad298d0d..d50ab13b5 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -691,13 +691,13 @@ later by the linker." (emit asm 1 0 c) (emit-drop asm 2))))) (('X8_S12_S12 '<- 'X8_C24) - #'(lambda (asm dst a c) + #'(lambda (asm dst a const) (cond ((< (logior dst a) (ash 1 12)) - (emit asm dst a c)) + (emit asm dst a const)) (else (emit-push asm a) - (emit asm 0 0 c) + (emit asm 0 0 const) (emit-pop asm dst))))) (('X8_S12_C12 '<-)