Commit 25615799 authored by sewardj's avatar sewardj
Browse files

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

Propagation.
parent 903bcc5b
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment