paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed a bug in resolving external references for classtree and whatever else

Browse Source 
uses findelement.
   
   A reference was checked against TPasModule with "=", ruling out descendants
   like TPasExternalModule. All "content" (.xct) symbols are in externalmodules

git-svn-id: trunk@24277 -
This commit is contained in:
marco 2013-04-20 20:53:59 +00:00
parent b2f861420c
commit 3acd49ddbc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fpdoc/dglobals.pp
View File

@ -1177,7 +1177,7 @@ begin
for i := CurModule.InterfaceSection.UsesList.Count - 1 downto 0 do for i := CurModule.InterfaceSection.UsesList.Count - 1 downto 0 do
begin begin
Module := TPasElement(CurModule.InterfaceSection.UsesList[i]); Module := TPasElement(CurModule.InterfaceSection.UsesList[i]);
if Module.ClassType = TPasModule then if Module.ClassType.InheritsFrom(TPasModule) then
begin begin
Result := FindInModule(TPasModule(Module), AName); Result := FindInModule(TPasModule(Module), AName);
if Assigned(Result) then if Assigned(Result) then