diff options
| author | sof <unknown> | 2001-08-19 20:14:22 +0000 |
|---|---|---|
| committer | sof <unknown> | 2001-08-19 20:14:22 +0000 |
| commit | 93242d742387790c56560ca6f855cb5aee81ff72 (patch) | |
| tree | 802a7ae2a33b5ed675a3c0cc308f3e8ccee01ffe /ghc/compiler/nativeGen/MachMisc.lhs | |
| parent | 9a6f4dd7cca2100a0108f88c7669e7df3422a155 (diff) | |
| download | haskell-93242d742387790c56560ca6f855cb5aee81ff72.tar.gz | |
[project @ 2001-08-19 20:14:22 by sof]
Nuke uses of LEADING_UNDERSCORE; use Config.cLeadingUnderscore instead.
Diffstat (limited to 'ghc/compiler/nativeGen/MachMisc.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/MachMisc.lhs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs index 1f747157f8..d44cea4fbf 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 |