Changeset 13446

Timestamp:

Feb 9, 2010, 8:34:22 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

misc-set-s32, misc-set-u32: scaled-idx can be either a node or
immediate register.

File:

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

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

@@ -2197 +2197 @@
                                    ((val :u32)
                                     (v :lisp)
-                                    (scaled-idx :s32))
+                                    (scaled-idx :imm))
                                    ())
   (movl (:%l val) (:@ x8632::misc-data-offset (:%l v) (:%l scaled-idx))))
@@ -2211 +2211 @@
                                    ((val :s32)
                                     (v :lisp)
-                                    (scaled-idx :s32))
+                                    (scaled-idx :imm))
                                    ())
   (movl (:%l val) (:@ x8632::misc-data-offset (:%l v) (:%l scaled-idx))))