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

codetools: TFPCSourceCache.Update; do not scan if Directory empty

Browse Source 
git-svn-id: trunk@28554 -
This commit is contained in:
mattias 2010-11-29 09:15:32 +00:00
parent 52060dfa52
commit dcde33b7ef
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/definetemplates.pas
View File

@ -8133,7 +8133,10 @@ var
NewFiles: TStringList;
begin
Valid:=false;
NewFiles:=GatherFilesInFPCSources(Directory,OnProgress);
if Directory<>'' then
NewFiles:=GatherFilesInFPCSources(Directory,OnProgress)
else
NewFiles:=TStringList.Create;
Update(NewFiles);
end;