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

* don't crash on inclusion of fpmake.pp

Browse Source 
git-svn-id: trunk@24273 -
This commit is contained in:
marco 2013-04-19 23:50:43 +00:00
parent f3ef5a1f9c
commit b27e03346b
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

@ -1171,7 +1171,7 @@ var
Module: TPasElement; Module: TPasElement;
begin begin
Result := FindInModule(CurModule, AName); Result := FindInModule(CurModule, AName);
if not Assigned(Result) then if not Assigned(Result) and assigned (CurModule.InterfaceSection) then
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]);