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

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;