[commit: ghc] wip/T14626: WIP: alias only local symbols for now (f85f3c4)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T14626
Link       : http://ghc.haskell.org/trac/ghc/changeset/f85f3c48b31e055887f3a0f8dfaea91f9dcef3db/ghc

>---------------------------------------------------------------

commit f85f3c48b31e055887f3a0f8dfaea91f9dcef3db
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Jan 29 23:57:45 2018 +0100

    WIP: alias only local symbols for now
    
    otherwise it seems to trip up darwin ld62 and gnu linkers


>---------------------------------------------------------------

f85f3c48b31e055887f3a0f8dfaea91f9dcef3db
 compiler/nativeGen/X86/Ppr.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs
index 95c4728..f036e40 100644
--- a/compiler/nativeGen/X86/Ppr.hs
+++ b/compiler/nativeGen/X86/Ppr.hs
@@ -147,6 +147,7 @@ pprDatas :: (Alignment, CmmStatics) -> SDoc
 
 pprDatas (_, Statics alias [CmmStaticLit lit@(CmmLabel lbl), CmmStaticLit ind, _, _])
   | lbl == mkIndStaticInfoLabel
+  , not $ externallyVisibleCLabel lbl -- trips ld64
   , let labelInd (CmmLabelOff l _) = Just l
         labelInd (CmmLabel l) = Just l
         labelInd _ = Nothing