Changeset 11467

Timestamp:

Dec 7, 2008, 9:51:19 AM (12 years ago)

Author:

rme

Message:

MEM-REF-C-BIT-FIXNUM, MEM-SET-C-BIT-VARIABLE-VALUE: fix typos.

File:

• trunk/source/compiler/X86/X8632/x8632-vinsns.lisp (modified) (2 diffs)

trunk/source/compiler/X86/X8632/x8632-vinsns.lisp

@@ -3128 +3128 @@
   ((:pred = 0 (:apply ash offset -5))
    (btrl (:$ub (:apply logand 31 offset))
-        (:@  (:%q src))))
+        (:@  (:%l src))))
   ((:not (:pred = 0 (:apply ash offset -5)))
    (btrl (:$ub (:apply logand 31 offset))
-         (:@ (:apply ash (:apply ash offset -5) 4) (:%q src))))
+         (:@ (:apply ash (:apply ash offset -5) 4) (:%l src))))
   (jmp :done)
   :set
   ((:pred = 0 (:apply ash offset -5))
    (btsl (:$ub (:apply logand 31 offset))
-         (:@  (:%q src))))
+         (:@  (:%l src))))
   ((:not (:pred = 0 (:apply ash offset -5)))
    (btsl (:$ub (:apply logand 31 offset))
-         (:@ (:apply ash (:apply ash offset -5) 2) (:%q src))))
+         (:@ (:apply ash (:apply ash offset -5) 2) (:%l src))))
   :done)
 
@@ -3783 +3783 @@
   ((:not (:pred = 0 (:apply ash offset -5)))
    (btl (:$ub (:apply logand 31 offset))
-        (:@ (:apply ash (:apply ash offset -5) 2) (:%q src))))
-  (movl (:$l x8664::fixnumone) (:%l temp))
+        (:@ (:apply ash (:apply ash offset -5) 2) (:%l src))))
+  (movl (:$l x8632::fixnumone) (:%l temp))
   (movl (:$l 0) (:%l dest))
   (cmovbl (:%l temp) (:%l dest)))