diff options
| author | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-15 20:41:16 +0000 |
|---|---|---|
| committer | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-15 20:41:16 +0000 |
| commit | b47302cbee70802076638ee58fe1c00853eae10a (patch) | |
| tree | 56ab4b19376754bb1597e70ea8462175f687b73f | |
| parent | 0fbb3a5de71b28f24b46bc373551f738ab0b08eb (diff) | |
| download | haskell-b47302cbee70802076638ee58fe1c00853eae10a.tar.gz | |
Properly parse GC blocks for functions with info tables
| -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; |