Track Simon's Module changes.
%
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
%
%
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
%
-% $Id: CLabel.lhs,v 1.39 2000/10/12 15:17:07 sewardj Exp $
+% $Id: CLabel.lhs,v 1.40 2000/10/16 13:57:43 sewardj Exp $
%
\section[CLabel]{@CLabel@: Information to make C Labels}
%
\section[CLabel]{@CLabel@: Information to make C Labels}
import CStrings ( pp_cSEP )
import DataCon ( ConTag, DataCon )
import Module ( ModuleName, moduleName, moduleNameFS,
import CStrings ( pp_cSEP )
import DataCon ( ConTag, DataCon )
import Module ( ModuleName, moduleName, moduleNameFS,
- Module, isLocalModule )
+ Module, isModuleInThisPackage )
import Name ( Name, getName, isDllName, isExternallyVisibleName )
import TyCon ( TyCon )
import Unique ( pprUnique, Unique )
import Name ( Name, getName, isDllName, isExternallyVisibleName )
import TyCon ( TyCon )
import Unique ( pprUnique, Unique )
DataConLabel n k -> isDllName n
TyConLabel tc -> isDllName (getName tc)
ForeignLabel _ d -> d
DataConLabel n k -> isDllName n
TyConLabel tc -> isDllName (getName tc)
ForeignLabel _ d -> d
- ModuleInitLabel m -> (not opt_Static) && (not (isLocalModule m))
+ ModuleInitLabel m -> (not opt_Static) && (not (isModuleInThisPackage m))
global m | codeStyle sty
= ppr (moduleName m) <> char '_' <> pprOccName occ
global m | codeStyle sty
= ppr (moduleName m) <> char '_' <> pprOccName occ
- | debugStyle sty || not (isLocalModule m)
+ | debugStyle sty || not (isModuleInThisPackage m)
= ppr (moduleName m) <> dot <> pprOccName occ
| otherwise
= pprOccName occ
= ppr (moduleName m) <> dot <> pprOccName occ
| otherwise
= pprOccName occ