From: sewardj <unknown>
Date: Thu, 12 Oct 2000 16:04:40 +0000 (+0000)
Subject: [project @ 2000-10-12 16:04:40 by sewardj]
X-Git-Tag: Approximately_9120_patches~3596
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=256157996384c1decf853eb19956b1df3317ffa0;p=ghc-hetmet.git

[project @ 2000-10-12 16:04:40 by sewardj]
Propagation.
---

diff --git a/ghc/compiler/stgSyn/StgInterp.lhs b/ghc/compiler/stgSyn/StgInterp.lhs
index 76a4fcd..08ef24d 100644
--- a/ghc/compiler/stgSyn/StgInterp.lhs
+++ b/ghc/compiler/stgSyn/StgInterp.lhs
@@ -61,6 +61,8 @@ import Bits
 import Storable
 import CTypes
 import FastString
+import GlaExts		( Int(..) )
+import Module		( moduleNameFS )
 #endif
 
 import TyCon		( TyCon, isDataTyCon, tyConFamilySize, tyConDataCons )
@@ -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)