implement v128_splat instruction

2023-09-04 19:18:09 -06:00
parent c6e0bfea89
commit daa52f0c40
5 changed files with 51 additions and 3 deletions
@@ -522,6 +522,15 @@ getInstrType _ (IReinterpretF BS32) = return $ F32 ==> I32
 getInstrType _ (IReinterpretF BS64) = return $ F64 ==> I64
 getInstrType _ (FReinterpretI BS32) = return $ I32 ==> F32
 getInstrType _ (FReinterpretI BS64) = return $ I64 ==> F64
+getInstrType _ (V128Splat shape) = do
+    let vt = case shape of
+            I8x16 -> I32
+            I16x8 -> I32
+            I32x4 -> I32
+            I64x2 -> I64
+            F32x4 -> F32
+            F64x2 -> F64
+    return $ vt ==> V128


 replace :: (Eq a) => a -> a -> [a] -> [a]