Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
e7ab9c68
Commit
e7ab9c68
authored
Jan 02, 2010
by
Ben.Lippmeier@anu.edu.au
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
When compiling viac, don't need to emit prototypes for symbols in the RTS
parent
572a047b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
1 deletion
+9
-1
compiler/cmm/CLabel.hs
compiler/cmm/CLabel.hs
+9
-1
No files found.
compiler/cmm/CLabel.hs
View file @
e7ab9c68
...
...
@@ -596,7 +596,15 @@ needsCDecl ModuleRegdLabel = False
needsCDecl
(
StringLitLabel
_
)
=
False
needsCDecl
(
AsmTempLabel
_
)
=
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
(
CC_Label
_
)
=
True
needsCDecl
(
CCS_Label
_
)
=
True
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment