paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 17:47:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed FilenameIsMatching on Windows

Browse Source
This commit is contained in:
mattias 2023-08-06 09:46:49 +02:00
parent 478b6dcf4b
commit f03d205c06
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/fileprocs.pas
View File

@ -1383,10 +1383,14 @@ function FilenameIsMatching(const Mask, Filename: string;
case MaskP^ of
#0,SpecialChar,PathDelim,'?','*','{',',','}': break;
'a'..'z','A'..'Z':
{$IFDEF CaseInsensitiveFilenames}
if FPUpChars[MaskP^]<>FPUpChars[FileP^] then exit;
{$ELSE}
if AnyCase then begin
if FPUpChars[MaskP^]<>FPUpChars[FileP^] then exit;
end else
if MaskP^<>FileP^ then exit;
{$ENDIF}
else
if MaskP^<>FileP^ then exit;
end;