$6;
return (info_lbl, info, live, formals, frame, gc_block) }
blks <- code (cgStmtsToBlocks stmts)
- code (emitInfoTableAndCode info_lbl (CmmInfo Nothing frame info) formals blks) }
+ code (emitInfoTableAndCode info_lbl (CmmInfo gc_block frame info) formals blks) }
| info maybe_formals ';'
{ do (info_lbl, info, live) <- $1;
results <- sequence results_code
expr <- expr_code
args <- sequence args_code
+ --code (stmtC (CmmCall (CmmForeignCall expr convention) results args safety))
case convention of
-- Temporary hack so at least some functions are CmmSafe
CmmCallConv -> code (stmtC (CmmCall (CmmForeignCall expr convention) results args safety))