Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
90827197
Commit
90827197
authored
Oct 18, 2004
by
simonmar
Browse files
[project @ 2004-10-18 11:51:22 by simonmar]
Put the '@' suffix on stdcall ForeignLabels on Windows only.
parent
e9c5cb69
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/cmm/CLabel.hs
View file @
90827197
...
...
@@ -569,12 +569,15 @@ maybe_underscore doc
|
underscorePrefix
=
pp_cSEP
<>
doc
|
otherwise
=
doc
#
ifdef
mingw32_TARGET_OS
-- In asm mode, we need to put the suffix on a stdcall ForeignLabel.
-- (The C compiler does this itself).
pprAsmCLbl
(
ForeignLabel
fs
(
Just
sz
)
_
)
=
ftext
fs
<>
char
'@'
<>
int
sz
#
else
pprAsmCLbl
lbl
=
pprCLbl
lbl
#
endif
pprCLbl
(
StringLitLabel
u
)
=
pprUnique
u
<>
ptext
SLIT
(
"_str"
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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