Commit 374a85ae authored by Ben.Lippmeier@anu.edu.au's avatar Ben.Lippmeier@anu.edu.au
Browse files

validate fixes

parent a83cb1ab
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment