Implement i64x2.bitmask (WebAssembly#368)

This was accepted into this proposal in WebAssembly#410.

Author: ngzhian

interpreter/binary/decode.ml

@@ -372,6 +372,7 @@ let simd_prefix s =
   | 0xb9l -> i32x4_max_u
   | 0xbal -> i32x4_dot_i16x8_s
   | 0xc1l -> i64x2_neg
+  | 0xc4l -> i64x2_bitmask
   | 0xcbl -> i64x2_shl
   | 0xccl -> i64x2_shr_s
   | 0xcdl -> i64x2_shr_u

interpreter/binary/encode.ml

@@ -601,6 +601,7 @@ let encode m =
       | SimdBitmask Simd.I8x16 -> simd_op 0x64l
       | SimdBitmask Simd.I16x8 -> simd_op 0x84l
       | SimdBitmask Simd.I32x4 -> simd_op 0xa4l
+      | SimdBitmask Simd.I64x2 -> simd_op 0xc4l
       | SimdBitmask (_) -> assert false
 
       | _ -> assert false

interpreter/exec/eval_simd.ml

@@ -221,6 +221,7 @@ module SimdOp (SXX : Simd.S) (Value : ValueType with type t = SXX.t) = struct
     | Simd.I8x16 -> SXX.I8x16.bitmask
     | Simd.I16x8 -> SXX.I16x8.bitmask
     | Simd.I32x4 -> SXX.I32x4.bitmask
+    | Simd.I64x2 -> SXX.I64x2.bitmask
     | _ -> assert false
     in I32 (f (of_value 1 v))
 

interpreter/syntax/operators.ml

@@ -379,6 +379,7 @@ let i64x2_mul = Binary (V128 V128Op.(I64x2 Mul))
 let i64x2_shl = SimdShift V128Op.(I64x2 Shl)
 let i64x2_shr_s = SimdShift V128Op.(I64x2 ShrS)
 let i64x2_shr_u = SimdShift V128Op.(I64x2 ShrU)
+let i64x2_bitmask = SimdBitmask Simd.I64x2
 
 let f32x4_splat = Convert (V128 V128Op.(F32x4 Splat))
 let f32x4_extract_lane imm = SimdExtract (V128Op.F32x4 (ZX, imm))

interpreter/text/arrange.ml

@@ -394,6 +394,7 @@ struct
     | Simd.I8x16 -> "i8x16.bitmask"
     | Simd.I16x8 -> "i16x8.bitmask"
     | Simd.I32x4 -> "i32x4.bitmask"
+    | Simd.I64x2 -> "i64x2.bitmask"
     | _ -> assert false
 
 end

interpreter/text/lexer.mll

@@ -532,8 +532,7 @@ rule token = parse
     { only ["i8x16"; "i16x8"; "i32x4"] s lexbuf;
       UNARY (simd_int_op s i8x16_all_true i16x8_all_true i32x4_all_true unreachable) }
   | (simd_int_shape as s)".bitmask"
-    { only ["i8x16"; "i16x8"; "i32x4"] s lexbuf;
-      UNARY (simd_int_op s i8x16_bitmask i16x8_bitmask i32x4_bitmask unreachable) }
+    { UNARY (simd_int_op s i8x16_bitmask i16x8_bitmask i32x4_bitmask i64x2_bitmask) }
   | (simd_int_shape as s)".shl"
     { SHIFT (simd_int_op s i8x16_shl i16x8_shl i32x4_shl i64x2_shl) }
   | (simd_int_shape as s)".shr_s"

test/core/simd/simd_boolean.wast

@@ -12,6 +12,8 @@
   (func (export "i32x4.any_true") (param $0 v128) (result i32) (i32x4.any_true (local.get $0)))
   (func (export "i32x4.all_true") (param $0 v128) (result i32) (i32x4.all_true (local.get $0)))
   (func (export "i32x4.bitmask") (param $0 v128) (result i32) (i32x4.bitmask (local.get $0)))
+
+  (func (export "i64x2.bitmask") (param $0 v128) (result i32) (i64x2.bitmask (local.get $0)))
 )
 
 ;; i8x16
@@ -156,6 +158,11 @@
 (assert_return (invoke "i32x4.bitmask" (v128.const i32x4 -1 0 1 0xF))
                                         (i32.const 0x00000001))
 
+(assert_return (invoke "i64x2.bitmask" (v128.const i64x2 0xFFFFFFFF_FFFFFFFF 0xFFFFFFFF_FFFFFFFF))
+                                        (i32.const 0x00000003))
+(assert_return (invoke "i64x2.bitmask" (v128.const i64x2 -1 0xF))
+                                        (i32.const 0x00000001))
+
 ;; Combination
 
 (module (memory 1)