paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 11:49:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: RemoveNonExistingPaths: check star dirs

Browse Source
This commit is contained in:
mattias 2023-08-04 23:27:24 +02:00
parent 1138fe154d
commit 13fd89ae20
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/packages/ideconfig/searchpathprocs.pas
View File

@ -313,6 +313,10 @@ begin
if (CurPath<>'') and (not FilenameIsAbsolute(CurPath)) then
CurPath:=AppendPathDelim(BaseDirectory)+CurPath;
case ExtractFilename(CurPath) of
'*','**': CurPath:=ExtractFilePath(CurPath);
end;
if ((CurPath='') and (MacroStartPos<1))
or (not DirPathExistsCached(CurPath)) then begin
// path does not exist -> remove