From: dons <unknown>
Date: Fri, 8 Oct 2004 07:23:40 +0000 (+0000)
Subject: [project @ 2004-10-08 07:23:40 by dons]
X-Git-Tag: Initial_conversion_from_CVS_complete~1522
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fa9393552b3956dddf3ebf71f733fde4ba0342e4;p=ghc-hetmet.git

[project @ 2004-10-08 07:23:40 by dons]
For platforms with no PIC method defined, use
LabelAccessStyle of AccessDirectly, in howToAccessLabel.
This seems to keep the ncg working on OpenBSD.

Is this the correct default, Wolfgang?
---

diff --git a/ghc/compiler/nativeGen/PositionIndependentCode.hs b/ghc/compiler/nativeGen/PositionIndependentCode.hs
index cca5df8..c3b1639 100644
--- a/ghc/compiler/nativeGen/PositionIndependentCode.hs
+++ b/ghc/compiler/nativeGen/PositionIndependentCode.hs
@@ -243,7 +243,12 @@ howToAccessLabel isJump lbl
    | otherwise = AccessViaSymbolPtr
 
 #else
-howToAccessLabel = panic "PositionIndependentCode.howToAccessLabel"
+--
+-- all other platforms
+--
+howToAccessLabel _ _
+        | not opt_PIC = AccessDirectly
+        | otherwise   = panic "howToAccessLabel: PIC not defined for this platform"
 #endif
 
 -- -------------------------------------------------------------------