use MOVDDUP for double-2 broadcast to eliminate a %copy

diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index 2668379b3733987e947c57c5132bce044f7552e4..084ce9eef3dabb73a4925f9a82fd6dec882821ff 100644 (file)
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -593,8 +593,7 @@ M:: x86 %broadcast-vector ( dst src rep -- )
             dst dst { 0 0 0 0 } SHUFPS
         ] }
         { double-2-rep   [
-            dst src double-2-rep %copy
-            dst dst UNPCKLPD
+            dst src MOVDDUP
         ] }
         { longlong-2-rep [
             dst src longlong-2-rep %copy