steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cpu.x86: tweak SIMD intrinsics

db4
Slava Pestov 2009-09-08 22:34:01 -05:00
parent 15d85c1c4f
commit cd5133b233
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/cpu/x86/x86.factor
View File

@ -251,8 +251,8 @@ M:: x86 %unbox-vector ( dst src rep -- )
M: x86 %broadcast-vector ( dst src rep -- ) M: x86 %broadcast-vector ( dst src rep -- )
{ {
{ float-4-rep [ [ MOVAPS ] [ drop dup 0 SHUFPS ] 2bi ] } { float-4-rep [ [ MOVSS ] [ drop dup 0 SHUFPS ] 2bi ] }
{ double-2-rep [ [ MOVAPD ] [ drop dup 0 SHUFPD ] 2bi ] } { double-2-rep [ [ MOVSD ] [ drop dup UNPCKLPD ] 2bi ] }
} case ; } case ;
M:: x86 %gather-vector-4 ( dst src1 src2 src3 src4 rep -- ) M:: x86 %gather-vector-4 ( dst src1 src2 src3 src4 rep -- )
@ -263,7 +263,7 @@ M:: x86 %gather-vector-4 ( dst src1 src2 src3 src4 rep -- )
dst src1 MOVSS dst src1 MOVSS
dst src2 UNPCKLPS dst src2 UNPCKLPS
src3 src4 UNPCKLPS src3 src4 UNPCKLPS
dst src3 HEX: 44 SHUFPS dst src3 MOVLHPS
] ]
} }
} case ; } case ;
@ -273,8 +273,8 @@ M:: x86 %gather-vector-2 ( dst src1 src2 rep -- )
{ {
double-2-rep double-2-rep
[ [
dst src1 MOVAPD dst src1 MOVSD
dst src2 0 SHUFPD dst src2 UNPCKLPD
] ]
} }
} case ; } case ;