reset test

Author: TheNumbat

ocaml/testsuite/tests/mixed-blocks/constructor_args.ml

@@ -38,7 +38,7 @@ type t =
   | Mixed8 of float * int32# * float# * int64# * float#
   | Mixed9 of float * float# * float32#
   | Mixed10 of float * float32# * float# * int64# * float#
-  | Mixed11 of float * int32# * float32# * float# * int64# * float#
+  | Mixed11 of float * int32# * float32# * float# * int64# * nativeint#
   | Uniform2 of float * float
 
 type t_ext = ..
@@ -54,7 +54,7 @@ type t_ext +=
   | Ext_mixed8 of float * int32# * float# * int64# * float#
   | Ext_mixed9 of float * float# * float32#
   | Ext_mixed10 of float * float32# * float# * int64# * float#
-  | Ext_mixed11 of float * int32# * float32# * float# * int64# * float#
+  | Ext_mixed11 of float * int32# * float32# * float# * int64# * nativeint#
 
 let sprintf = Printf.sprintf
 
@@ -91,9 +91,9 @@ let to_string = function
         x1 (Float_u.to_float (Float32_u.to_float x2)) (Float_u.to_float x3)
         (Int64_u.to_int x4) (Float_u.to_float x5)
   | Mixed11 (x1, x2, x3, x4, x5, x6) ->
-      sprintf "Mixed11 (%f, %i, %f, %f, %i, %f)"
+      sprintf "Mixed11 (%f, %i, %f, %f, %i, %i)"
         x1 (Int32_u.to_int x2) (Float_u.to_float (Float32_u.to_float x3))
-        (Float_u.to_float x4) (Int64_u.to_int x5) (Float_u.to_float x6)
+        (Float_u.to_float x4) (Int64_u.to_int x5) (Nativeint_u.to_int x6)
   | Uniform2 (x1, x2) -> sprintf "Uniform2 (%f, %f)" x1 x2
 
 let ext_to_string = function
@@ -127,9 +127,9 @@ let ext_to_string = function
         x1 (Float_u.to_float (Float32_u.to_float x2)) (Float_u.to_float x3)
         (Int64_u.to_int x4) (Float_u.to_float x5)
   | Ext_mixed11 (x1, x2, x3, x4, x5, x6) ->
-      sprintf "Ext_mixed11 (%f, %i, %f, %f, %i, %f)"
+      sprintf "Ext_mixed11 (%f, %i, %f, %f, %i, %i)"
         x1 (Int32_u.to_int x2) (Float_u.to_float (Float32_u.to_float x3))
-        (Float_u.to_float x4) (Int64_u.to_int x5) (Float_u.to_float x6)
+        (Float_u.to_float x4) (Int64_u.to_int x5) (Nativeint_u.to_int x6)
   | _ -> "<ext>"
 
 let print t = print_endline ("  " ^ to_string t)
@@ -176,7 +176,7 @@ let construct_and_destruct uf uf' f f' i i32 i64 i_n f32 =
   let Mixed8 (f, i32, uf, i64, uf') = Mixed8 (f, i32, uf, i64, uf') in
   let Mixed9 (f, uf, f32) = Mixed9 (f, uf, f32) in
   let Mixed10 (f, f32, uf, i64, uf') = Mixed10 (f, f32, uf, i64, uf') in
-  let Mixed11 (f, i32, f32, uf, i64, uf') = Mixed11 (f, i32, f32, uf, i64, uf') in
+  let Mixed11 (f, i32, f32, uf, i64, i_n) = Mixed11 (f, i32, f32, uf, i64, i_n) in
   let Ext_mixed1 uf = Ext_mixed1 uf in
   let Ext_mixed2 (f, uf) = Ext_mixed2 (f, uf) in
   let Ext_mixed3 (f, uf, uf') = Ext_mixed3 (f, uf, uf') in
@@ -187,7 +187,7 @@ let construct_and_destruct uf uf' f f' i i32 i64 i_n f32 =
   let Ext_mixed8 (f, i32, uf, i64, uf') = Ext_mixed8 (f, i32, uf, i64, uf') in
   let Ext_mixed9 (f, uf, f32) = Ext_mixed9 (f, uf, f32) in
   let Ext_mixed10 (f, f32, uf, i64, uf') = Ext_mixed10 (f, f32, uf, i64, uf') in
-  let Ext_mixed11 (f, i32, f32, uf, i64, uf') = Ext_mixed11 (f, i32, f32, uf, i64, uf') in
+  let Ext_mixed11 (f, i32, f32, uf, i64, i_n) = Ext_mixed11 (f, i32, f32, uf, i64, i_n) in
   let Uniform2 (f, f') = Uniform2 (f, f') in
   sum uf uf' f f' i i32 i64 i_n f32
 [@@ocaml.warning "-partial-match"]