diff options
author | Gabor Greif <ggreif@gmail.com> | 2018-01-29 23:57:45 +0100 |
---|---|---|
committer | Gabor Greif <ggreif@gmail.com> | 2018-05-24 11:28:53 +0200 |
commit | f86ef7548280b5eedaf73e87146c14022d484cdd (patch) | |
tree | 1d4ade2471962041956bccc593558ef620f71c58 /compiler/nativeGen/X86/Ppr.hs | |
parent | 9da6b6ca857fbdf60b75658fb592647ce90df17b (diff) | |
download | haskell-f86ef7548280b5eedaf73e87146c14022d484cdd.tar.gz |
WIP: alias only local symbols for now
otherwise it seems to trip up darwin ld62 and gnu linkers
Diffstat (limited to 'compiler/nativeGen/X86/Ppr.hs')
-rw-r--r-- | compiler/nativeGen/X86/Ppr.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs index 2a673ec77b..ea26e18062 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 |