Properly parse GC blocks for functions with info tables

b47302cb · Michael D. Adams · 0fbb3a5d · b47302cb
Commit b47302cb authored Jul 15, 2007 by Michael D. Adams
--- a/compiler/cmm/CmmParse.y
+++ b/compiler/cmm/CmmParse.y
@@ -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;