projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-11-29 23:28:58 by wolfgang]
[ghc-hetmet.git]
/
ghc
/
compiler
/
cmm
/
CLabel.hs
diff --git
a/ghc/compiler/cmm/CLabel.hs
b/ghc/compiler/cmm/CLabel.hs
index
eae1bfc
..
8a5f133
100644
(file)
--- a/
ghc/compiler/cmm/CLabel.hs
+++ b/
ghc/compiler/cmm/CLabel.hs
@@
-87,7
+87,6
@@
module CLabel (
dynamicLinkerLabelInfo,
mkPicBaseLabel,
dynamicLinkerLabelInfo,
mkPicBaseLabel,
- mkDeadStripPreventer,
infoLblToEntryLbl, entryLblToInfoLbl,
needsCDecl, isAsmTemp, externallyVisibleCLabel,
infoLblToEntryLbl, entryLblToInfoLbl,
needsCDecl, isAsmTemp, externallyVisibleCLabel,
@@
-198,9
+197,6
@@
data CLabel
-- as 1b, referring to the previous definition
-- of 1: in the assembler source file.
-- as 1b, referring to the previous definition
-- of 1: in the assembler source file.
- | DeadStripPreventer CLabel
- -- label before an info table to prevent excessive dead-stripping on darwin
-
deriving (Eq, Ord)
data IdLabelInfo
deriving (Eq, Ord)
data IdLabelInfo
@@
-406,9
+402,6
@@
dynamicLinkerLabelInfo _ = Nothing
mkPicBaseLabel :: CLabel
mkPicBaseLabel = PicBaseLabel
mkPicBaseLabel :: CLabel
mkPicBaseLabel = PicBaseLabel
-mkDeadStripPreventer :: CLabel -> CLabel
-mkDeadStripPreventer lbl = DeadStripPreventer lbl
-
-- -----------------------------------------------------------------------------
-- Converting info labels to entry labels.
-- -----------------------------------------------------------------------------
-- Converting info labels to entry labels.
@@
-626,9
+619,6
@@
pprCLabel (DynamicLinkerLabel info lbl)
pprCLabel PicBaseLabel
= ptext SLIT("1b")
pprCLabel PicBaseLabel
= ptext SLIT("1b")
-
-pprCLabel (DeadStripPreventer lbl)
- = pprCLabel lbl <> ptext SLIT("_dsp")
#endif
pprCLabel lbl =
#endif
pprCLabel lbl =