 
 M: x86 %broadcast-vector ( dst src rep -- )
     {
-        { float-4-rep [ [ MOVAPS ] [ drop dup 0 SHUFPS ] 2bi ] }
-        { double-2-rep [ [ MOVAPD ] [ drop dup 0 SHUFPD ] 2bi ] }
+        { float-4-rep [ [ MOVSS ] [ drop dup 0 SHUFPS ] 2bi ] }
+        { double-2-rep [ [ MOVSD ] [ drop dup UNPCKLPD ] 2bi ] }
     } case ;
 
 M:: x86 %gather-vector-4 ( dst src1 src2 src3 src4 rep -- )

                dst src1 MOVSS
                dst src2 UNPCKLPS
                src3 src4 UNPCKLPS
                dst src3 HEX: 44 SHUFPS
            ]
        }
    } case ;

        {
            double-2-rep
            [
                dst src1 MOVSD
                dst src2 UNPCKLPD
            ]
        }
    } case ;
