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

[git at git.haskell.org]

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

On branch  : wip/T15155
Link       : http://ghc.haskell.org/trac/ghc/changeset/f86ef7548280b5eedaf73e87146c14022d484cdd/ghc

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

commit f86ef7548280b5eedaf73e87146c14022d484cdd
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


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

f86ef7548280b5eedaf73e87146c14022d484cdd
 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 2a673ec..ea26e18 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