diff options
| author | ross <unknown> | 2003-06-03 09:37:15 +0000 |
|---|---|---|
| committer | ross <unknown> | 2003-06-03 09:37:15 +0000 |
| commit | 56af76cc6a264621bfd18071f21e6a608e691e47 (patch) | |
| tree | 07845db5e015113bee560c4348ec35fc2a500687 /ghc/compiler/nativeGen/MachMisc.lhs | |
| parent | 475ef37cd19bc8234205ca02d1251d47e267bd1f (diff) | |
| download | haskell-56af76cc6a264621bfd18071f21e6a608e691e47.tar.gz | |
[project @ 2003-06-03 09:37:14 by ross]
fix for gcc 3.3 preprocessor: no layout, end-of-line comments or complex
Haskell comments in macro arguments.
please merge to STABLE
Diffstat (limited to 'ghc/compiler/nativeGen/MachMisc.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/MachMisc.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs index e9cf788c58..0508888ef0 100644 --- a/ghc/compiler/nativeGen/MachMisc.lhs +++ b/ghc/compiler/nativeGen/MachMisc.lhs @@ -76,11 +76,11 @@ underscorePrefix = (cLeadingUnderscore == "YES") fmtAsmLbl :: String -> String -- for formatting labels fmtAsmLbl s - = IF_ARCH_alpha( {- The alpha assembler likes temporary labels to look like $L123 instead of L123. (Don't toss the L, because then Lf28 turns into $f28.) -} + = IF_ARCH_alpha( '$' : s ,{-otherwise-} '.':'L':s |