diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-05-24 16:33:43 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2018-05-24 17:36:32 +0200 |
| commit | b2b2d2b7b8cb5aafa419a057972d3a0ff440f6df (patch) | |
| tree | 8c3a0ce78cf53ab9e09da130bcc12cef7f6d15df | |
| parent | b259ea6cdcef70d62bc2bdd8298894cadfe03f59 (diff) | |
| download | haskell-wip/T15155.tar.gz | |
WIP: remove tracingwip/T15155
| -rw-r--r-- | compiler/nativeGen/X86/Ppr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs index b5571bdad9..1e00e03396 100644 --- a/compiler/nativeGen/X86/Ppr.hs +++ b/compiler/nativeGen/X86/Ppr.hs @@ -146,7 +146,7 @@ pprBasicBlock info_env (BasicBlock blockid instrs) pprDatas :: (Alignment, CmmStatics) -> SDoc -pprDatas (_, Statics alias [CmmStaticLit lit@(CmmLabel lbl), CmmStaticLit ind, x, y]) +pprDatas (_, Statics alias [CmmStaticLit (CmmLabel lbl), CmmStaticLit ind, x, y]) | lbl == mkIndStaticInfoLabel , let labelInd (CmmLabelOff l _) = Just l labelInd (CmmLabel l) = Just l @@ -155,7 +155,7 @@ pprDatas (_, Statics alias [CmmStaticLit lit@(CmmLabel lbl), CmmStaticLit ind, x , not $ externallyVisibleCLabel ind' -- trips ld64 otherwise , let equate = pprGloblDecl alias $$ text ".equiv" <+> ppr alias <> comma <> ppr (CmmLabel ind') = ASSERT( (case x of CmmStaticLit (CmmInt 0 _) -> True; _ -> False) && (case y of CmmStaticLit (CmmInt 0 _) -> True; _ -> False) ) - pprTrace "IndStaticInfo: pprDatas" (ppr alias <+> ppr lit <+> ppr ind') equate + equate pprDatas (align, (Statics lbl dats)) = vcat (pprAlign align : pprLabel lbl : map pprData dats) |