Commit 451c185c authored by wolfgang's avatar wolfgang
Browse files

[project @ 2004-11-29 23:28:58 by wolfgang]

Revert part of the previous commit.
Something unrelated slipped in :-(.
parent f9f374cf
......@@ -87,7 +87,6 @@ module CLabel (
dynamicLinkerLabelInfo,
mkPicBaseLabel,
mkDeadStripPreventer,
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.
| DeadStripPreventer CLabel
-- label before an info table to prevent excessive dead-stripping on darwin
deriving (Eq, Ord)
data IdLabelInfo
......@@ -406,9 +402,6 @@ dynamicLinkerLabelInfo _ = Nothing
mkPicBaseLabel :: CLabel
mkPicBaseLabel = PicBaseLabel
mkDeadStripPreventer :: CLabel -> CLabel
mkDeadStripPreventer lbl = DeadStripPreventer lbl
-- -----------------------------------------------------------------------------
-- Converting info labels to entry labels.
......@@ -626,9 +619,6 @@ pprCLabel (DynamicLinkerLabel info lbl)
pprCLabel PicBaseLabel
= ptext SLIT("1b")
pprCLabel (DeadStripPreventer lbl)
= pprCLabel lbl <> ptext SLIT("_dsp")
#endif
pprCLabel lbl =
......
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