Properly parse GC blocks for functions with info tables

[ghc-hetmet.git] / compiler / cmm / CmmParse.y

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