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

When compiling viac, don't need to emit prototypes for symbols in the RTS

parent 572a047b
...@@ -596,7 +596,15 @@ needsCDecl ModuleRegdLabel = False ...@@ -596,7 +596,15 @@ needsCDecl ModuleRegdLabel = False
needsCDecl (StringLitLabel _) = False needsCDecl (StringLitLabel _) = False
needsCDecl (AsmTempLabel _) = False needsCDecl (AsmTempLabel _) = False
needsCDecl (RtsLabel _) = False needsCDecl (RtsLabel _) = False
needsCDecl (CmmLabel _ _ _) = True
needsCDecl (CmmLabel pkgId _ _)
-- Prototypes for labels defined in the runtime system are imported
-- into HC files via includes/Stg.h.
| pkgId == rtsPackageId = False
-- For other labels we inline one into the HC file directly.
| otherwise = True
needsCDecl l@(ForeignLabel{}) = not (isMathFun l) needsCDecl l@(ForeignLabel{}) = not (isMathFun l)
needsCDecl (CC_Label _) = True needsCDecl (CC_Label _) = True
needsCDecl (CCS_Label _) = True needsCDecl (CCS_Label _) = True
......
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