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

[git at git.haskell.org]

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

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

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

commit 0e7f9e574889e4e6e42ed44f629794a3f0c679bf
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


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

0e7f9e574889e4e6e42ed44f629794a3f0c679bf
 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..02e8773 100644
--- a/compiler/nativeGen/X86/Ppr.hs
+++ b/compiler/nativeGen/X86/Ppr.hs
@@ -151,6 +151,7 @@ pprDatas (_, Statics alias [CmmStaticLit lit@(CmmLabel lbl), CmmStaticLit ind, _
         labelInd (CmmLabel l) = Just l
         labelInd _ = Nothing
   , Just ind' <- labelInd ind
+  , not $ externallyVisibleCLabel ind' -- trips ld64 otherwise
   , let equate = pprGloblDecl alias $$ text ".equiv" <+> ppr alias <> comma <> ppr (CmmLabel ind')
   = pprTrace "IndStaticInfo: pprDatas" (ppr alias <+> ppr lit <+> ppr ind') equate