From 374a85aec86d9c15ed4c48af3e284f9fee19ad72 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Fri, 6 Nov 2009 09:08:50 +0000 Subject: [PATCH] validate fixes --- compiler/cmm/CLabel.hs | 1 + compiler/codeGen/StgCmmHeap.hs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 7dde9f9..31749d4 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -530,6 +530,7 @@ needsCDecl ModuleRegdLabel = False needsCDecl (StringLitLabel _) = False needsCDecl (AsmTempLabel _) = False needsCDecl (RtsLabel _) = False +needsCDecl (CmmLabel _ _ _) = False needsCDecl l@(ForeignLabel _ _ _ _) = not (isMathFun l) needsCDecl (CC_Label _) = True needsCDecl (CCS_Label _) = True diff --git a/compiler/codeGen/StgCmmHeap.hs b/compiler/codeGen/StgCmmHeap.hs index d7eafe3..4163723 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 -- 1.7.10.4