@@ -409,8 +409,8 @@ let cvtop = oper (IntOp.cvtop, FloatOp.cvtop, SimdOp.cvtop)
409409let ternop = SimdOp. ternop
410410
411411(* Temporary wart here while we finalize the names of SIMD loads and extends. *)
412- let memop ?( type_in_name = true ) name {ty; align; offset; _} sz =
413- ( if type_in_name then value_type ty ^ " ." else " " ) ^ name ^
412+ let memop name {ty; align; offset; _} sz =
413+ value_type ty ^ " ." ^ name ^
414414 (if offset = 0l then " " else " offset=" ^ nat32 offset) ^
415415 (if 1 lsl align = sz then " " else " align=" ^ nat (1 lsl align))
416416
@@ -424,18 +424,18 @@ let simd_loadop (op : simd_loadop) =
424424 match op.sz with
425425 | None -> memop " load" op (size op.ty)
426426 | Some (sz , pack_simd ) ->
427- let prefix, suffix, ext =
427+ let suffix =
428428 (match sz, pack_simd with
429- | Pack64 , Pack8x8 ext -> " i16x8 " , " 8x8" , extension ext
430- | Pack64 , Pack16x4 ext -> " i32x4 " , " 16x4" , extension ext
431- | Pack64 , Pack32x2 ext -> " i64x2 " , " 32x2" , extension ext
432- | Pack8 , PackSplat -> " v8x16 " , " _splat " , " "
433- | Pack16 , PackSplat -> " v16x8 " , " _splat " , " "
434- | Pack32 , PackSplat -> " v32x4 " , " _splat " , " "
435- | Pack64 , PackSplat -> " v64x2 " , " _splat " , " "
429+ | Pack64 , Pack8x8 ext -> " 8x8" ^ extension ext
430+ | Pack64 , Pack16x4 ext -> " 16x4" ^ extension ext
431+ | Pack64 , Pack32x2 ext -> " 32x2" ^ extension ext
432+ | Pack8 , PackSplat -> " 8_splat "
433+ | Pack16 , PackSplat -> " 16_splat "
434+ | Pack32 , PackSplat -> " 32_splat "
435+ | Pack64 , PackSplat -> " 64_splat "
436436 | _ -> assert false
437437 ) in
438- memop ~type_in_name: false (prefix ^ " . load" ^ suffix ^ ext ) op (packed_size sz)
438+ memop ( " load" ^ suffix) op (packed_size sz)
439439
440440let storeop op =
441441 match op.sz with
0 commit comments