From: sof <unknown>
Date: Sun, 19 Aug 2001 20:14:22 +0000 (+0000)
Subject: [project @ 2001-08-19 20:14:22 by sof]
X-Git-Tag: Approximately_9120_patches~1188
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=93242d742387790c56560ca6f855cb5aee81ff72;p=ghc-hetmet.git

[project @ 2001-08-19 20:14:22 by sof]
Nuke uses of LEADING_UNDERSCORE; use Config.cLeadingUnderscore instead.
---

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index e7fb278..238d009 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -6,9 +6,6 @@
 \begin{code}
 {-# OPTIONS -#include "Linker.h" #-}
 
--- so that we can see defn of LEADING_UNDERSCORE
-#include "../includes/config.h"
-
 module Linker ( 
    initLinker,	 -- :: IO ()
    loadObj,      -- :: String -> IO ()
@@ -23,17 +20,14 @@ import Foreign		( Ptr, nullPtr )
 import PrelByteArr
 import PrelPack 	(packString)
 import Panic		( panic )
+import DriverUtil       ( prefixUnderscore )
 
 -- ---------------------------------------------------------------------------
 -- RTS Linker Interface
 -- ---------------------------------------------------------------------------
 
 lookupSymbol str_in = do
-#  ifdef LEADING_UNDERSCORE
-   let str = '_':str_in
-#  else
-   let str = str_in
-#  endif
+   let str = prefixUnderscore str_in
    addr <- c_lookupSymbol (packString str)
    if addr == nullPtr
 	then return Nothing
diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 2142f91..f4722bb 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -868,13 +868,8 @@ doLink o_files = do
 	 	      ++ pkg_extra_ld_opts
 	 	      ++ extra_ld_opts
 	              ++ if static && not no_hs_main then
-#ifdef LEADING_UNDERSCORE
-			    [ "-u", "_PrelMain_mainIO_closure" ,
-			      "-u", "___init_PrelMain"] 
-#else
 			    [ "-u", prefixUnderscore "PrelMain_mainIO_closure" ,
 			      "-u", prefixUnderscore "__init_PrelMain"] 
-#endif
 			 else []))
 
     -- parallel only: move binary to another dir -- HWL
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index 1f74715..d44cea4 100644
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -55,17 +55,13 @@ import Panic		( panic )
 import GlaExts		( word2Int#, int2Word#, shiftRL#, and#, (/=#) )
 import Outputable	( pprPanic, ppr )
 import IOExts		( trace )
+import Config           ( cLeadingUnderscore )
 import FastTypes
 \end{code}
 
 \begin{code}
 underscorePrefix :: Bool   -- leading underscore on assembler labels?
-
-#ifdef LEADING_UNDERSCORE
-underscorePrefix = True
-#else
-underscorePrefix = False
-#endif
+underscorePrefix = (cLeadingUnderscore == "YES")
 
 ---------------------------
 fmtAsmLbl :: String -> String  -- for formatting labels