From b47302cbee70802076638ee58fe1c00853eae10a Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Sun, 15 Jul 2007 20:41:16 +0000 Subject: [PATCH] Properly parse GC blocks for functions with info tables --- compiler/cmm/CmmParse.y | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 1.7.10.4