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

Author: gretay-js

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 ()) }