summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
f9f374c)
Revert part of the previous commit.
Something unrelated slipped in :-(.
dynamicLinkerLabelInfo,
mkPicBaseLabel,
dynamicLinkerLabelInfo,
mkPicBaseLabel,
infoLblToEntryLbl, entryLblToInfoLbl,
needsCDecl, isAsmTemp, externallyVisibleCLabel,
infoLblToEntryLbl, entryLblToInfoLbl,
needsCDecl, isAsmTemp, externallyVisibleCLabel,
-- 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
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.
pprCLabel PicBaseLabel
= ptext SLIT("1b")
pprCLabel PicBaseLabel
= ptext SLIT("1b")
-
-pprCLabel (DeadStripPreventer lbl)
- = pprCLabel lbl <> ptext SLIT("_dsp")