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

compiler.cfg.intrinsics.simd: remove a case in sign-bit-mask that is probably unused

db4
Björn Lindqvist 2014-06-07 14:39:19 +02:00
parent 906f796094
commit 644dac1fc0
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/compiler/cfg/intrinsics/simd/simd.factor
View File

@ -35,10 +35,6 @@ IN: compiler.cfg.intrinsics.simd
0x8000,0000 0x8000,0000 0x8000,0000 0x8000,0000
0x8000,0000 0x8000,0000 0x8000,0000 0x8000,0000
} underlying>> ] } } underlying>> ] }
{ longlong-2-rep [ ulonglong-array{
0x8000,0000,0000,0000
0x8000,0000,0000,0000
} underlying>> ] }
} case ; } case ;
: ^load-neg-zero-vector ( rep -- dst ) : ^load-neg-zero-vector ( rep -- dst )
@ -164,7 +160,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
: ^(sum-vector-2) ( src rep -- dst ) : ^(sum-vector-2) ( src rep -- dst )
{ {
[ dupd ^^horizontal-add-vector ] [ dupd ^^horizontal-add-vector ]
[| src rep | [| src rep |
src src rep ^^merge-vector-head :> head src src rep ^^merge-vector-head :> head
src src rep ^^merge-vector-tail :> tail src src rep ^^merge-vector-tail :> tail
head tail rep ^^add-vector head tail rep ^^add-vector
@ -177,7 +173,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
[ dupd ^^horizontal-add-vector ] [ dupd ^^horizontal-add-vector ]
[ dupd ^^horizontal-add-vector ] bi [ dupd ^^horizontal-add-vector ] bi
] ]
[| src rep | [| src rep |
src src rep ^^merge-vector-head :> head src src rep ^^merge-vector-head :> head
src src rep ^^merge-vector-tail :> tail src src rep ^^merge-vector-tail :> tail
head tail rep ^^add-vector :> src' head tail rep ^^add-vector :> src'
@ -196,7 +192,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
[ dupd ^^horizontal-add-vector ] [ dupd ^^horizontal-add-vector ]
[ dupd ^^horizontal-add-vector ] tri [ dupd ^^horizontal-add-vector ] tri
] ]
[| src rep | [| src rep |
src src rep ^^merge-vector-head :> head src src rep ^^merge-vector-head :> head
src src rep ^^merge-vector-tail :> tail src src rep ^^merge-vector-tail :> tail
head tail rep ^^add-vector :> src' head tail rep ^^add-vector :> src'
@ -223,7 +219,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
[ dupd ^^horizontal-add-vector ] [ dupd ^^horizontal-add-vector ]
} cleave } cleave
] ]
[| src rep | [| src rep |
src src rep ^^merge-vector-head :> head src src rep ^^merge-vector-head :> head
src src rep ^^merge-vector-tail :> tail src src rep ^^merge-vector-tail :> tail
head tail rep ^^add-vector :> src' head tail rep ^^add-vector :> src'