1.0.29.44: Complex float improvements

[sbcl.git] / src / compiler / x86-64 / insts.lisp

diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp
index 927ce8d..1f3cc0b 100644 (file)
--- a/src/compiler/x86-64/insts.lisp
+++ b/src/compiler/x86-64/insts.lisp
@@ -1681,6 +1681,8 @@
         :float)
        (#.*double-sc-names*
         :double)
+       (#.*complex-sc-names*
+        :complex)
        (t
         (error "can't tell the size of ~S ~S" thing (sc-name (tn-sc thing))))))
     (ea
@@ -3150,6 +3152,10 @@
   (define-regular-sse-inst subps    nil  #x5c)
   (define-regular-sse-inst subsd    #xf2 #x5c)
   (define-regular-sse-inst subss    #xf3 #x5c)
+  (define-regular-sse-inst unpckhpd #x66 #x15)
+  (define-regular-sse-inst unpckhps nil  #x15)
+  (define-regular-sse-inst unpcklpd #x66 #x14)
+  (define-regular-sse-inst unpcklps nil  #x14)
   ;; integer arithmetic
   (define-regular-sse-inst paddb    #x66 #xfc)
   (define-regular-sse-inst paddw    #x66 #xfd)