Skip to content

Commit 20a43ea

Browse files
committed
revert test changes
1 parent 70b626f commit 20a43ea

File tree

4 files changed

+9
-10
lines changed

4 files changed

+9
-10
lines changed

ocaml/testsuite/tests/basic-modules/anonymous.ocamlc.reference

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -23,9 +23,9 @@
2323
(let (f = (function param : int 0) s = (makemutable 0 ""))
2424
(seq
2525
(ignore
26-
(let (*match* =[int] (setfield_ptr 0 s "Hello World!"))
26+
(let (*match* = (setfield_ptr 0 s "Hello World!"))
2727
(makeblock 0)))
2828
(let
2929
(drop = (function param : int 0)
30-
*match* =[int] (apply drop (field_mut 0 s)))
30+
*match* = (apply drop (field_mut 0 s)))
3131
(makeblock 0 A B f s drop))))))))

ocaml/testsuite/tests/basic-modules/anonymous.ocamlopt.flambda.reference

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -22,9 +22,8 @@
2222
(let (f = (function param : int 0) s = (makemutable 0 ""))
2323
(seq
2424
(ignore
25-
(let (*match* =[int] (setfield_ptr 0 s "Hello World!"))
26-
(makeblock 0)))
25+
(let (*match* = (setfield_ptr 0 s "Hello World!")) (makeblock 0)))
2726
(let
2827
(drop = (function param : int 0)
29-
*match* =[int] (apply drop (field_mut 0 s)))
28+
*match* = (apply drop (field_mut 0 s)))
3029
(makeblock 0 A B f s drop)))))))

ocaml/testsuite/tests/basic-modules/anonymous.ocamlopt.reference

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@
2525
(setfield_ptr(root-init) 3 (global Anonymous!) s))
2626
(ignore
2727
(let
28-
(*match* =[int]
28+
(*match* =
2929
(setfield_ptr 0 (field 3 (global Anonymous!)) "Hello World!"))
3030
(makeblock 0)))
3131
(let (drop = (function param : int 0))

ocaml/testsuite/tests/basic/patmatch_for_multiple.ml

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -26,14 +26,14 @@ match (3, 2, 1) with
2626
| _ -> false
2727
;;
2828
[%%expect{|
29-
(let (*match*/274 =[int] 3 *match*/275 =[int] 2 *match*/276 =[int] 1)
29+
(let (*match*/274 = 3 *match*/275 = 2 *match*/276 = 1)
3030
(catch
3131
(catch
3232
(catch (if (!= *match*/275 3) (exit 3) (exit 1)) with (3)
3333
(if (!= *match*/274 1) (exit 2) (exit 1)))
3434
with (2) 0)
3535
with (1) 1))
36-
(let (*match*/274 =[int] 3 *match*/275 =[int] 2 *match*/276 =[int] 1)
36+
(let (*match*/274 = 3 *match*/275 = 2 *match*/276 = 1)
3737
(catch (if (!= *match*/275 3) (if (!= *match*/274 1) 0 (exit 1)) (exit 1))
3838
with (1) 1))
3939
- : bool = false
@@ -47,7 +47,7 @@ match (3, 2, 1) with
4747
| _ -> false
4848
;;
4949
[%%expect{|
50-
(let (*match*/279 =[int] 3 *match*/280 =[int] 2 *match*/281 =[int] 1)
50+
(let (*match*/279 = 3 *match*/280 = 2 *match*/281 = 1)
5151
(catch
5252
(catch
5353
(catch
@@ -65,7 +65,7 @@ match (3, 2, 1) with
6565
with (5) 0)
6666
with (4 x/277[(consts ()) (non_consts ([0: [int], [int], [int]]))])
6767
(seq (ignore x/277) 1)))
68-
(let (*match*/279 =[int] 3 *match*/280 =[int] 2 *match*/281 =[int] 1)
68+
(let (*match*/279 = 3 *match*/280 = 2 *match*/281 = 1)
6969
(catch
7070
(if (!= *match*/280 3)
7171
(if (!= *match*/279 1) 0

0 commit comments

Comments
 (0)