flambda-backend: Replace tuple with record in Cextcall (ocaml-flambda#10

)
stedolan · Jun 29, 2021 · b670bcf · b670bcf
1 parent db451b5
commit b670bcf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/testsuite/tools/parsecmm.mly b/testsuite/tools/parsecmm.mly
@@ -218,8 +218,8 @@ expr:
   | LPAREN APPLY location expr exprlist machtype RPAREN
                 { Cop(Capply $6, $4 :: List.rev $5, debuginfo ?loc:$3 ()) }
   | LPAREN EXTCALL STRING exprlist machtype RPAREN
-               {Cop(Cextcall($3, $5, [], false),
-                    List.rev $4, debuginfo ())}
+               {Cop(Cextcall {name=$3; ret=$5; alloc=false; ty_args=[];},
+                     List.rev $4, debuginfo ())}
   | LPAREN ALLOC exprlist RPAREN { Cop(Calloc, List.rev $3, debuginfo ()) }
   | LPAREN SUBF expr RPAREN { Cop(Cnegf, [$3], debuginfo ()) }
   | LPAREN SUBF expr expr RPAREN { Cop(Csubf, [$3; $4], debuginfo ()) }