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
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/cmm/CmmParse.y compiler/cmm/CmmParse.y +1 -1

No files found.
--- 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;