diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-19 16:36:40 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-19 16:36:40 +0100 |
| commit | a6f9ebc58b0dc632bb01d0f202a7581ed02466ce (patch) | |
| tree | 8171dd582c11f3ea058aa2bf35a028aa4228490b /compiler/nativeGen/PIC.hs | |
| parent | 7ef5b2939076902ee54c9f1a2c50d55b274e4388 (diff) | |
| download | haskell-a6f9ebc58b0dc632bb01d0f202a7581ed02466ce.tar.gz | |
Add "have subsections via symbols" to the Platform type
Diffstat (limited to 'compiler/nativeGen/PIC.hs')
| -rw-r--r-- | compiler/nativeGen/PIC.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/nativeGen/PIC.hs b/compiler/nativeGen/PIC.hs index da83678095..a8f65ba480 100644 --- a/compiler/nativeGen/PIC.hs +++ b/compiler/nativeGen/PIC.hs @@ -510,7 +510,7 @@ pprGotDeclaration _ _ -- the splitter in driver/split/ghc-split.lprl recognizes the new output pprImportedSymbol :: Platform -> CLabel -> Doc -pprImportedSymbol platform@(Platform ArchPPC OSDarwin) importedLbl +pprImportedSymbol platform@(Platform { platformArch = ArchPPC, platformOS = OSDarwin }) importedLbl | Just (CodeStub, lbl) <- dynamicLinkerLabelInfo importedLbl = case opt_PIC of False -> @@ -564,7 +564,7 @@ pprImportedSymbol platform@(Platform ArchPPC OSDarwin) importedLbl = empty -pprImportedSymbol platform@(Platform ArchX86 OSDarwin) importedLbl +pprImportedSymbol platform@(Platform { platformArch = ArchX86, platformOS = OSDarwin }) importedLbl | Just (CodeStub, lbl) <- dynamicLinkerLabelInfo importedLbl = case opt_PIC of False -> @@ -617,7 +617,7 @@ pprImportedSymbol platform@(Platform ArchX86 OSDarwin) importedLbl = empty -pprImportedSymbol (Platform _ OSDarwin) _ +pprImportedSymbol (Platform { platformOS = OSDarwin }) _ = empty @@ -650,12 +650,12 @@ pprImportedSymbol (Platform _ OSDarwin) _ -- the NCG will keep track of all DynamicLinkerLabels it uses -- and output each of them using pprImportedSymbol. -pprImportedSymbol (Platform ArchPPC_64 os) _ - | osElfTarget os +pprImportedSymbol platform@(Platform { platformArch = ArchPPC_64 }) _ + | osElfTarget (platformOS platform) = empty -pprImportedSymbol platform@(Platform _ os) importedLbl - | osElfTarget os +pprImportedSymbol platform importedLbl + | osElfTarget (platformOS platform) = case dynamicLinkerLabelInfo importedLbl of Just (SymbolPtr, lbl) -> let symbolSize = case wordWidth of |