X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmParse.y;h=2cf1d1d821ab94dc71e0d78d50fb196e67d1aff7;hp=23f98801522380a79f33ef63e043b06b52987bd1;hb=b47302cbee70802076638ee58fe1c00853eae10a;hpb=0fbb3a5de71b28f24b46bc373551f738ab0b08eb

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;