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
015675fc
Commit
015675fc
authored
Aug 11, 2006
by
sven.panne@aedion.de
Browse files
Avoid warning about overlapped pattern for Linux target
parent
5e6e6b8b
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CLabel.hs
View file @
015675fc
...
...
@@ -805,27 +805,31 @@ asmTempLabelPrefix =
pprDynamicLinkerAsmLabel
::
DynamicLinkerLabelInfo
->
CLabel
->
SDoc
#
if
darwin_TARGET_OS
pprDynamicLinkerAsmLabel
SymbolPtr
lbl
=
char
'L'
<>
pprCLabel
lbl
<>
text
"$non_lazy_ptr"
pprDynamicLinkerAsmLabel
CodeStub
lbl
=
char
'L'
<>
pprCLabel
lbl
<>
text
"$stub"
pprDynamicLinkerAsmLabel
SymbolPtr
lbl
=
char
'L'
<>
pprCLabel
lbl
<>
text
"$non_lazy_ptr"
pprDynamicLinkerAsmLabel
_
_
=
panic
"pprDynamicLinkerAsmLabel"
#
elif
powerpc_TARGET_ARCH
&&
linux_TARGET_OS
pprDynamicLinkerAsmLabel
CodeStub
lbl
=
pprCLabel
lbl
<>
text
"@plt"
pprDynamicLinkerAsmLabel
SymbolPtr
lbl
=
text
".LC_"
<>
pprCLabel
lbl
pprDynamicLinkerAsmLabel
_
_
=
panic
"pprDynamicLinkerAsmLabel"
#
elif
linux_TARGET_OS
pprDynamicLinkerAsmLabel
CodeStub
lbl
=
pprCLabel
lbl
<>
text
"@plt"
pprDynamicLinkerAsmLabel
SymbolPtr
lbl
=
text
".LC_"
<>
pprCLabel
lbl
pprDynamicLinkerAsmLabel
GotSymbolPtr
lbl
=
pprCLabel
lbl
<>
text
"@got"
pprDynamicLinkerAsmLabel
GotSymbolOffset
lbl
=
pprCLabel
lbl
<>
text
"@gotoff"
pprDynamicLinkerAsmLabel
SymbolPtr
lbl
=
text
".LC_"
<>
pprCLabel
lbl
#
elif
mingw32_TARGET_OS
pprDynamicLinkerAsmLabel
SymbolPtr
lbl
=
text
"__imp_"
<>
pprCLabel
lbl
#
endif
pprDynamicLinkerAsmLabel
_
_
=
panic
"pprDynamicLinkerAsmLabel"
#
endif
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