guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 11/12: Minor assembler cleanups


From: Andy Wingo
Subject: [Guile-commits] 11/12: Minor assembler cleanups
Date: Wed, 21 Oct 2015 13:13:33 +0000

wingo pushed a commit to branch master
in repository guile.

commit 4afb46f8599854dd36af25576ec4b7ab1c39745f
Author: Andy Wingo <address@hidden>
Date:   Wed Oct 21 15:02:08 2015 +0200

    Minor assembler cleanups
    
    * module/system/vm/assembler.scm (shuffling-assembler): Minor renames.
---
 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 bad298d..d50ab13 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 '<-)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]