paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 19:56:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fix compilation under windows

Browse Source 
git-svn-id: trunk@12388 -
This commit is contained in:
paul 2007-10-09 01:35:59 +00:00
parent 27cda5e7cd
commit d9d606c45a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/directorycacher.pas
View File

@ -665,7 +665,7 @@ begin
case FileCase of
ctsfcDefault:
{$IFDEF CaseInsensitiveFilenames}
cmp:=ComparePCharCaseInsensitive(Pointer(ShortFilename)),CurFilenames);// pointer type cast avoids #0 check
cmp:=ComparePCharCaseInsensitive(Pointer(ShortFilename),CurFilename);// pointer type cast avoids #0 check
{$ELSE}
cmp:=ComparePCharCaseSensitive(Pointer(ShortFilename),CurFilename);
{$ENDIF}