[project @ 2000-10-24 10:12:16 by sewardj]

[ghc-hetmet.git] / ghc / compiler / stgSyn / StgInterp.lhs

diff --git a/ghc/compiler/stgSyn/StgInterp.lhs b/ghc/compiler/stgSyn/StgInterp.lhs
index 76a4fcd..7c0eb6e 100644 (file)
--- a/ghc/compiler/stgSyn/StgInterp.lhs
+++ b/ghc/compiler/stgSyn/StgInterp.lhs
@@ -61,18 +61,20 @@ import Bits
 import Storable
 import CTypes
 import FastString
+import GlaExts         ( Int(..) )
+import Module          ( moduleNameFS )
 #endif
 
-import TyCon           ( TyCon, isDataTyCon, tyConFamilySize, tyConDataCons )
-import Class           ( Class, classTyCon )
+import TyCon           ( TyCon, isDataTyCon, tyConDataCons, tyConFamilySize )
+import Class           ( Class )
 import InterpSyn
 import StgSyn
 import Addr
 import RdrName         ( RdrName, rdrNameModule, rdrNameOcc )
-import OccName         ( occNameString )
 import FiniteMap
 import Panic           ( panic )
-import PrelAddr
+import OccName         ( occNameString )
+
 
 -- ---------------------------------------------------------------------------
 -- Environments needed by the linker
@@ -550,7 +552,8 @@ lookupVar ce f v =
 -- HACK!!!  ToDo: cleaner
 rdrNameToCLabel :: RdrName -> String{-suffix-} -> String
 rdrNameToCLabel rn suffix = 
-  _UNPK_(rdrNameModule rn) ++ '_':occNameString(rdrNameOcc rn) ++ '_':suffix
+  _UNPK_(moduleNameFS (rdrNameModule rn)) 
+  ++ '_':occNameString(rdrNameOcc rn) ++ '_':suffix
 
 linkAlgAlts ie ce = map (linkAlgAlt ie ce)
 linkAlgAlt ie ce (AltAlg tag args rhs) = AltAlg tag args (linkIExpr ie ce rhs)