dynamicLinkerLabelInfo,
mkPicBaseLabel,
- mkDeadStripPreventer,
infoLblToEntryLbl, entryLblToInfoLbl,
needsCDecl, isAsmTemp, externallyVisibleCLabel,
-- 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
mkPicBaseLabel :: CLabel
mkPicBaseLabel = PicBaseLabel
-mkDeadStripPreventer :: CLabel -> CLabel
-mkDeadStripPreventer lbl = DeadStripPreventer lbl
-
-- -----------------------------------------------------------------------------
-- Converting info labels to entry labels.
pprCLabel PicBaseLabel
= ptext SLIT("1b")
-
-pprCLabel (DeadStripPreventer lbl)
- = pprCLabel lbl <> ptext SLIT("_dsp")
#endif
pprCLabel lbl =