[Openmcl-cvs-notifications] r11282 - /trunk/source/compiler/X86/X8664/x8664-vinsns.lisp

[gb at clozure.com]

Author: gb
Date: Sat Nov  1 19:49:52 2008
New Revision: 11282

Log:
MISC-REF-C-SINGLE-FLOAT: shift constant index by 2, not by word-shift.

Modified:
    trunk/source/compiler/X86/X8664/x8664-vinsns.lisp

Modified: trunk/source/compiler/X86/X8664/x8664-vinsns.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/X86/X8664/x8664-vinsns.lisp (original)
+++ trunk/source/compiler/X86/X8664/x8664-vinsns.lisp Sat Nov  1 19:49:52 2=
008
@@ -191,7 +191,7 @@
                                               ((v :lisp)
                                                (idx :s32const)) ; sic
                                               ())
-  (movss (:@ (:apply + x8664::misc-data-offset (:apply ash idx x8664::word=
-shift)) (:%q v)) (:%xmm dest)))
+  (movss (:@ (:apply + x8664::misc-data-offset (:apply ash idx 2)) (:%q v)=
) (:%xmm dest)))
 =

 (define-x8664-vinsn misc-ref-c-u8  (((dest :u64))
 				     ((v :lisp)