Commit b47302cb authored by Michael D. Adams's avatar Michael D. Adams

Properly parse GC blocks for functions with info tables

parent 0fbb3a5d
......@@ -210,7 +210,7 @@ cmmproc :: { ExtCode }
$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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment