[project @ 2004-08-20 11:20:16 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgUtils.hs

diff --git a/ghc/compiler/codeGen/CgUtils.hs b/ghc/compiler/codeGen/CgUtils.hs
index 9d789be..ffd25eb 100644 (file)
--- 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) }