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 | |
| 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')
| -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 |