diff options
author | Andy Wingo <wingo@pobox.com> | 2015-10-21 15:02:08 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-10-21 15:02:08 +0200 |
commit | 4afb46f8599854dd36af25576ec4b7ab1c39745f (patch) | |
tree | 1d0c9bc844e39cfc338a4e37ab2430896126359c | |
parent | 70c317ab5173e26d9f2a9b8b81a9441ef3ef7008 (diff) | |
download | guile-4afb46f8599854dd36af25576ec4b7ab1c39745f.tar.gz |
Minor assembler cleanups
* module/system/vm/assembler.scm (shuffling-assembler): Minor renames.
-rw-r--r-- | module/system/vm/assembler.scm | 6 |
1 files 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 '<-) |