Changeset 9587 for branches

Timestamp:

May 23, 2008, 8:44:45 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

New vinsns fp-stack-to-single, fp-stack-to-double.

File:

• branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp (modified) (1 diff)

branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

@@ -1379 +1379 @@
   (cvtsd2ss (:%xmm src) (:%xmm dest)))
 
+;;; these two clobber unboxed0, unboxed1 in tcr
+;;; (There's no way to move a value from the x87 stack to an xmm register,
+;;; so we have to go through memory.)
+(define-x8632-vinsn fp-stack-to-single (((dest :single-float))
+                                        ())
+  (fstps (:@ (:%seg :rcontext) x8632::tcr.unboxed0))
+  (movss (:@ (:%seg :rcontext) x8632::tcr.unboxed0) (:%xmm dest)))
+
+(define-x8632-vinsn fp-stack-to-double (((dest :double-float))
+                                        ())
+  (fstpl (:@ (:%seg :rcontext) x8632::tcr.unboxed0))
+  (movsd (:@ (:%seg :rcontext) x8632::tcr.unboxed0) (:%xmm dest)))
+
 (define-x8632-vinsn fitvals (()
                              ((n :u16const))