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

[rme at clozure.com]

Author: rme
Date: Sat Nov 21 21:36:06 2009
New Revision: 13221

Log:
Use movss in vinsn MISC-SET-C-SINGLE-FLOAT.

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 21 21:36:06 2=
009
@@ -4347,7 +4347,7 @@
 (define-x8664-vinsn misc-set-c-single-float (((val :single-float))
 					     ((v :lisp)
 					      (idx :u32const)))
-  (movsd (:%xmm val) (:@ (:apply + x8664::misc-data-offset (:apply ash idx=
 2))(:%q v))))
+  (movss (:%xmm val) (:@ (:apply + x8664::misc-data-offset (:apply ash idx=
 2)) (:%q v))))
 =

 (define-x8664-vinsn array-data-vector-ref (((dest :lisp))
 					   ((header :lisp)))