diff options
| -rw-r--r-- | compiler/cmm/CmmParse.y | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y index 23f9880152..2cf1d1d821 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; |