compiler.cfg.intrinsics.simd: mod shuffle indices for shuffle-2-vectors-imm intrinsic...

diff --git a/basis/compiler/cfg/intrinsics/simd/simd.factor b/basis/compiler/cfg/intrinsics/simd/simd.factor
index c4a2d41c91d43ededb61d13bc70efbb467ce12cc..b18eb9ded41eec897a482958244dba62028bd3df 100644 (file)
--- a/basis/compiler/cfg/intrinsics/simd/simd.factor
+++ b/basis/compiler/cfg/intrinsics/simd/simd.factor
@@ -278,7 +278,7 @@ PREDICATE: fixnum-vector-rep < int-vector-rep
 : ^shuffle-2-vectors-imm ( src1 src2 shuffle rep -- dst )
     [ rep-length 0 pad-tail ] keep {
         { double-2-rep [| src1 src2 shuffle rep |
-            shuffle first2 :> ( i j )
+            shuffle first2 [ 4 mod ] bi@ :> ( i j )
             {
                 { [ i j [ 2 < ] both? ] [
                     src1 shuffle rep ^shuffle-vector-imm