Skip to content

Commit 9432cfd

Browse files
committed
Partially revert "Replace tuple with record in Cextcall (#10)"
This partially reverts commit 2cd07e6. Revert the changes to ocaml/testsuite/tools
1 parent 5283c3f commit 9432cfd

File tree

1 file changed

+1
-6
lines changed

1 file changed

+1
-6
lines changed

ocaml/testsuite/tools/parsecmm.mly

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -220,12 +220,7 @@ expr:
220220
| LPAREN APPLY location expr exprlist machtype RPAREN
221221
{ Cop(Capply $6, $4 :: List.rev $5, debuginfo ?loc:$3 ()) }
222222
| LPAREN EXTCALL STRING exprlist machtype RPAREN
223-
{Cop(Cextcall {name=$3; ret=$5; alloc=false;
224-
builtin=false;
225-
effects=Arbitrary_effects;
226-
coeffects=Has_coeffects;
227-
label_after=None},
228-
List.rev $4, debuginfo ())}
223+
{Cop(Cextcall($3, $5, false, None), List.rev $4, debuginfo ())}
229224
| LPAREN ALLOC exprlist RPAREN { Cop(Calloc, List.rev $3, debuginfo ()) }
230225
| LPAREN SUBF expr RPAREN { Cop(Cnegf, [$3], debuginfo ()) }
231226
| LPAREN SUBF expr expr RPAREN { Cop(Csubf, [$3; $4], debuginfo ()) }

0 commit comments

Comments
 (0)