Skip to content

Commit

Permalink
Fix SIMD tests
Browse files Browse the repository at this point in the history
  • Loading branch information
rtjoa committed Jan 29, 2025
1 parent c4be5ae commit a89ecb9
Show file tree
Hide file tree
Showing 4 changed files with 24 additions and 24 deletions.
12 changes: 6 additions & 6 deletions flambda-backend/tests/simd/arrays_u.ml
Original file line number Diff line number Diff line change
Expand Up @@ -11,12 +11,12 @@ CR-someday mslater: with layout polymorphism, the tests could be functorized.
[@@@ocaml.warning "-unused-type-declaration"]
[@@@ocaml.warning "-unused-module"]

type int8x16 = int8x16#
type int16x8 = int16x8#
type int32x4 = int32x4#
type int64x2 = int64x2#
type float32x4 = float32x4#
type float64x2 = float64x2#
type nonrec int8x16 = int8x16#
type nonrec int16x8 = int16x8#
type nonrec int32x4 = int32x4#
type nonrec int64x2 = int64x2#
type nonrec float32x4 = float32x4#
type nonrec float64x2 = float64x2#

external int8x16_of_int64s : int64 -> int64 -> int8x16 = "" "vec128_of_int64s" [@@noalloc] [@@unboxed]
external int8x16_low_int64 : int8x16 -> int64 = "" "vec128_low_int64" [@@noalloc] [@@unboxed]
Expand Down
12 changes: 6 additions & 6 deletions flambda-backend/tests/simd/basic_u.ml
Original file line number Diff line number Diff line change
Expand Up @@ -37,12 +37,12 @@ let () =

(* Unboxed *)

type int8x16 = int8x16#
type int16x8 = int16x8#
type int32x4 = int32x4#
type int64x2 = int64x2#
type float32x4 = float32x4#
type float64x2 = float64x2#
type nonrec int8x16 = int8x16#
type nonrec int16x8 = int16x8#
type nonrec int32x4 = int32x4#
type nonrec int64x2 = int64x2#
type nonrec float32x4 = float32x4#
type nonrec float64x2 = float64x2#

external int64x2_of_int64s : int64 -> int64 -> int64x2 = "" "vec128_of_int64s" [@@noalloc] [@@unboxed]
external int64x2_low_int64 : int64x2 -> int64 = "" "vec128_low_int64" [@@noalloc] [@@unboxed]
Expand Down
12 changes: 6 additions & 6 deletions flambda-backend/tests/simd/consts_u.ml
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@ CR-someday mslater: with layout polymorphism, the tests could be functorized.

[@@@ocaml.warning "-unused-module"]

type int8x16 = int8x16#
type int16x8 = int16x8#
type int32x4 = int32x4#
type int64x2 = int64x2#
type float32x4 = float32x4#
type float64x2 = float64x2#
type nonrec int8x16 = int8x16#
type nonrec int16x8 = int16x8#
type nonrec int32x4 = int32x4#
type nonrec int64x2 = int64x2#
type nonrec float32x4 = float32x4#
type nonrec float64x2 = float64x2#

let eq lv hv l h =
if l <> lv then Printf.printf "%016Lx <> %016Lx\n" lv l;
Expand Down
12 changes: 6 additions & 6 deletions flambda-backend/tests/simd/ops_u.ml
Original file line number Diff line number Diff line change
Expand Up @@ -10,12 +10,12 @@ CR-someday mslater: with layout polymorphism, the tests could be functorized.
[@@@ocaml.warning "-unused-value-declaration"]
[@@@ocaml.warning "-unused-module"]

type int8x16 = int8x16#
type int16x8 = int16x8#
type int32x4 = int32x4#
type int64x2 = int64x2#
type float32x4 = float32x4#
type float64x2 = float64x2#
type nonrec int8x16 = int8x16#
type nonrec int16x8 = int16x8#
type nonrec int32x4 = int32x4#
type nonrec int64x2 = int64x2#
type nonrec float32x4 = float32x4#
type nonrec float64x2 = float64x2#

let failmsg = ref (fun () -> ())

Expand Down

0 comments on commit a89ecb9

Please sign in to comment.