Skip to content

Commit ecfdd72

Browse files
authored
flambda-backend: Cherry-pick 9432cfd (#84)
This commit, which was part of PR#55, was lost when PR#55 was ported to 4.12. Partially revert "Replace tuple with record in Cextcall (#10)" This partially reverts commit 2cd07e6. Revert the changes to ocaml/testsuite/tools
1 parent d1a4396 commit ecfdd72

File tree

1 file changed

+1
-7
lines changed

1 file changed

+1
-7
lines changed

testsuite/tools/parsecmm.mly

Lines changed: 1 addition & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -221,13 +221,7 @@ expr:
221221
| LPAREN APPLY location expr exprlist machtype RPAREN
222222
{ Cop(Capply $6, $4 :: List.rev $5, debuginfo ?loc:$3 ()) }
223223
| LPAREN EXTCALL STRING exprlist machtype RPAREN
224-
{Cop(Cextcall {name=$3; ret=$5; alloc=false;
225-
builtin=false;
226-
returns=true;
227-
effects=Arbitrary_effects;
228-
coeffects=Has_coeffects;
229-
ty_args=[];},
230-
List.rev $4, debuginfo ())}
224+
{Cop(Cextcall($3, $5, false, None), List.rev $4, debuginfo ())}
231225
| LPAREN ALLOC exprlist RPAREN { Cop(Calloc, List.rev $3, debuginfo ()) }
232226
| LPAREN SUBF expr RPAREN { Cop(Cnegf, [$3], debuginfo ()) }
233227
| LPAREN SUBF expr expr RPAREN { Cop(Csubf, [$3; $4], debuginfo ()) }

0 commit comments

Comments
 (0)