diff options
| author | simonmar <unknown> | 2004-08-20 11:20:17 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-08-20 11:20:17 +0000 |
| commit | fa93dff5b78e422d2d3abcc99f3918f6726a6719 (patch) | |
| tree | 14da49cf1366d0dada454a9f8f64aaa669036cd7 /ghc/compiler/codeGen | |
| parent | 578d1788ceaae231a036d74777356b633c0368f6 (diff) | |
| download | haskell-fa93dff5b78e422d2d3abcc99f3918f6726a6719.tar.gz | |
[project @ 2004-08-20 11:20:16 by simonmar]
Give literal string labels a _str suffix, to make it less likely that
they'll clash with a symbol in scope in a C file.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CgUtils.hs b/ghc/compiler/codeGen/CgUtils.hs index 9d789be942..ffd25eb908 100644 --- a/ghc/compiler/codeGen/CgUtils.hs +++ b/ghc/compiler/codeGen/CgUtils.hs @@ -48,7 +48,7 @@ import MachOp ( MachRep(..), wordRep, MachOp(..), MachHint(..), mo_wordULt, machRepByteWidth ) import ForeignCall ( CCallConv(..) ) import Literal ( Literal(..) ) -import CLabel ( CLabel, mkAsmTempLabel ) +import CLabel ( CLabel, mkStringLitLabel ) import Digraph ( SCC(..), stronglyConnComp ) import ListSetOps ( assocDefault ) import Util ( filterOut, sortLe ) @@ -302,7 +302,7 @@ mkStringCLit :: String -> FCode CmmLit -- and return its label mkStringCLit str = do { uniq <- newUnique - ; let lbl = mkAsmTempLabel uniq + ; let lbl = mkStringLitLabel uniq ; emitData ReadOnlyData [CmmDataLabel lbl, CmmString str] ; return (CmmLabel lbl) } |