paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 13:00:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: skip star direcory when listing star directory

Browse Source
This commit is contained in:
mattias 2023-07-31 13:29:37 +02:00
parent aa8213a2b4
commit 3e4403e691
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/directorycacher.pas
View File

@ -2165,6 +2165,7 @@ var
CurDir, ExcludeMask: String;
begin
CurDir:=ExtractFilename(CurSubDir);
if (CurDir='*') or (CurDir='**') then exit(true);
for i:=0 to Excludes.Count-1 do begin
ExcludeMask:=Excludes[i];
if FilenameIsMatching(ExcludeMask,CurSubDir,true)