From: Michael D. Adams <adamsmd@cs.indiana.edu>
Date: Sun, 15 Jul 2007 20:41:16 +0000 (+0000)
Subject: Properly parse GC blocks for functions with info tables
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b47302cbee70802076638ee58fe1c00853eae10a

Properly parse GC blocks for functions with info tables
---

diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y
index 23f9880..2cf1d1d 100644
--- 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;