diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-11-06 09:08:50 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-11-06 09:08:50 +0000 |
| commit | 374a85aec86d9c15ed4c48af3e284f9fee19ad72 (patch) | |
| tree | c2d71204f5dfcabe05b8fe5e7635fb64bd7f07c4 /compiler/codeGen | |
| parent | a83cb1abd8ee3dfde9eec124bc9fe59ae94dcae8 (diff) | |
| download | haskell-374a85aec86d9c15ed4c48af3e284f9fee19ad72.tar.gz | |
validate fixes
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmHeap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmHeap.hs b/compiler/codeGen/StgCmmHeap.hs index d7eafe3dba..4163723947 100644 --- a/compiler/codeGen/StgCmmHeap.hs +++ b/compiler/codeGen/StgCmmHeap.hs @@ -389,7 +389,7 @@ altHeapCheck regs code gc_call updfr_sz | null regs = mkCall generic_gc (GC, GC) [] [] updfr_sz - | Just gc_lbl <- rts_label regs -- Canned call + | Just _gc_lbl <- rts_label regs -- Canned call = panic "StgCmmHeap.altHeapCheck: rts_label not finished" -- mkCall (CmmLit (CmmLabel (mkRtsCodeLabel gc_lbl))) (GC, GC) -- regs (map (CmmReg . CmmLocal) regs) updfr_sz |