X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fcmm%2FCLabel.hs;h=8a5f13370e28fdc1fbed9c937b78cfab0870f053;hb=451c185cda360358e527579d708a5bba8c6d4682;hp=eae1bfcfa9cb9fe1c938e542fb25bd3a60a581df;hpb=f9f374cf7117348d2f52f06ce3debd1e8672b562;p=ghc-hetmet.git

diff --git a/ghc/compiler/cmm/CLabel.hs b/ghc/compiler/cmm/CLabel.hs
index eae1bfc..8a5f133 100644
--- a/ghc/compiler/cmm/CLabel.hs
+++ b/ghc/compiler/cmm/CLabel.hs
@@ -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 =