From a4cb3cfba735e82e7cf8225fd67b46a6faefa7b4 Mon Sep 17 00:00:00 2001 From: desrt Date: Mon, 18 Oct 2004 02:16:34 +0000 Subject: [PATCH] [project @ 2004-10-18 02:16:34 by desrt] trivial changes to correct a build-breaker that only affects linux/powerpc --- ghc/compiler/nativeGen/PositionIndependentCode.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/nativeGen/PositionIndependentCode.hs b/ghc/compiler/nativeGen/PositionIndependentCode.hs index c3b1639..c466b83 100644 --- a/ghc/compiler/nativeGen/PositionIndependentCode.hs +++ b/ghc/compiler/nativeGen/PositionIndependentCode.hs @@ -55,6 +55,10 @@ import CLabel ( CLabel, pprCLabel, dynamicLinkerLabelInfo, mkPicBaseLabel, labelDynamic, externallyVisibleCLabel ) +#if powerpc_TARGET_ARCH && linux_TARGET_OS +import CLabel ( mkForeignLabel ) +#endif + import MachRegs import MachInstrs import NCGMonad ( NatM, getNewRegNat, getNewLabelNat ) @@ -391,7 +395,7 @@ pprGotDeclaration = vcat [ pprImportedSymbol importedLbl | Just (SymbolPtr, lbl) <- dynamicLinkerLabelInfo importedLbl - vcat [ + = vcat [ ptext SLIT(".section \".got2\", \"aw\""), ptext SLIT(".LC_") <> pprCLabel_asm lbl <> char ':', ptext SLIT("\t.long") <+> pprCLabel_asm lbl -- 1.7.10.4