From: rrt <unknown>
Date: Thu, 10 Aug 2000 10:20:03 +0000 (+0000)
Subject: [project @ 2000-08-10 10:20:03 by rrt]
X-Git-Tag: Approximately_9120_patches~3891
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cbfde9c5824d107ab9bec73ce0e31ca81c3f167f;p=ghc-hetmet.git

[project @ 2000-08-10 10:20:03 by rrt]
Reinstated isLocallyDefinedName test in isDllName, because nameModule can't
cope with local names.
---

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 23c3a01..d066626 100644
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -455,6 +455,8 @@ maybeUserImportedFrom other			           		   = Nothing
 isDllName :: Name -> Bool
 	-- Does this name refer to something in a different DLL?
 isDllName nm = not opt_Static &&
+	       not (isLocallyDefinedName nm) && 
+-- isLocallyDefinedName test is needed because nameModule won't work on local names
 	       not (isLocalModule (nameModule nm))
 
 nameSrcLoc name = provSrcLoc (n_prov name)