X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmHeap.hs;h=41637239472fa802b9307bd1bfd2395a7b165f07;hb=374a85aec86d9c15ed4c48af3e284f9fee19ad72;hp=d7eafe3dbaa22f6a2f3b505cdb69f9c68e12a78a;hpb=a83cb1abd8ee3dfde9eec124bc9fe59ae94dcae8;p=ghc-hetmet.git

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