Changeset 7877

Timestamp:

Dec 10, 2007, 8:40:19 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

A few more vinsns, including some single-float ones.

File:

• branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp (modified) (2 diffs)

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

@@ -3552 +3552 @@
   (btl (:$ub bit) (:%l int)))
 
+;; might be able to use al/ah here
+(define-x8632-vinsn set-c-flag-if-variable-logbitp (()
+                                                    ((bit :imm)
+                                                     (int :imm))
+                                                    ((temp0 :u8)
+                                                     (temp1 :u8)))
+  (movl (:$l 31) (:%l temp1))
+  (movl (:%l bit) (:%l temp0))
+  (sarl (:$ub x8632::fixnumshift) (:%l temp0))
+  (addl (:$b x8632::fixnumshift) (:%l temp0))
+  (rcmpl (:%l temp0) (:%l temp1))
+  (cmoval (:%l temp1) (:%l temp0))
+  (btl (:%l temp0) (:%l int)))
+
 (define-x8632-vinsn multiply-immediate (((dest :imm))
                                         ((src :imm)
@@ -3639 +3653 @@
   (movl (:%l temp) (:@ (:%seg :rcontext) x8632::tcr.next-tsp)))
 
+(define-x8632-vinsn (temp-push-single-float :push :word :csp)
+    (()
+     ((f :single-float)))
+  (movd (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%mmx x8632::stack-temp))
+  (subl (:$b 8) (:@ (:%seg :rcontext) x8632::tcr.foreign-sp))
+  (movl (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%l x8632::ra0))
+  (movd (:%mmx x8632::stack-temp) (:@ (:%l x8632::ra0)))
+  (movss (:%xmm f) (:@ 4 (:%l x8632::ra0))))
+
+(define-x8632-vinsn (temp-pop-single-float :pop :word :csp)
+    (((f :single-float))
+     ())
+  (movl (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%l x8632::ra0))
+  (movss (:@ 4 (:%q x8664::ra0)) (:%xmm f))
+  (addl (:$b (* 2 x8632::dnode-size)) (:@ (:%seg :rcontext) x8632::tcr.foreign-sp)))
+
+(define-x8632-vinsn (temp-push-double-float :push :word :csp)
+    (()
+     ((f :double-float)))
+  (movd (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%mmx x8632::stack-temp))
+  (subl (:$b 16) (:@ (:%seg :rcontext) x8632::tcr.foreign-sp))
+  (movl (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%l x8632::ra0))
+  (movd (:%mmx x8632::stack-temp) (:@ (:%l x8632::ra0)))
+  (movsd (:%xmm f) (:@ 8 (:%l x8632::ra0))))
+
+(define-x8632-vinsn (temp-pop-double-float :pop :word :csp)
+    (((f :double-float))
+     ())
+  (movl (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%l x8632::ra0))
+  (movsd (:@ 8 (:%l x8632::ra0)) (:%xmm f))
+  (addl (:$b 16) (:@ (:%seg :rcontext) x8632::tcr.foreign-sp)))
+
 (queue-fixup
  (fixup-x86-vinsn-templates