X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmHeap.hs;h=41637239472fa802b9307bd1bfd2395a7b165f07;hb=83d563cb9ede0ba792836e529b1e2929db926355;hp=d7eafe3dbaa22f6a2f3b505cdb69f9c68e12a78a;hpb=a02e7f40afc1aab7fe466f949f505c1d7250713d;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