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

mde directory cache case insensitive under win32

Browse Source 
git-svn-id: trunk@9330 -
This commit is contained in:
mattias 2006-05-21 14:09:40 +00:00
parent 41fc019f01
commit 16ad053d50
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/directorycacher.pas
View File

@ -56,7 +56,7 @@ type
end;
TCTDirectoryUnitSources = (
ctdusUnitNormal, // e.g. unitname -> filename
ctdusUnitNormal, // e.g. unitname (case depends on OS) -> filename
ctdusUnitCaseInsensitive, // unitname case insensitive -> filename
ctdusInFilenameNormal, // unit 'in' filename -> filename
ctdusInFilenameCaseInsenstive, // unit 'in' filename case insensitive -> filename
@ -65,9 +65,9 @@ type
);
const
ctdusCaseSensitive = [ctdusUnitNormal,
ctdusInFilenameNormal,
ctdusUnitFileNormal];
ctdusCaseNormal = [ctdusUnitNormal,
ctdusInFilenameNormal,
ctdusUnitFileNormal];
ctdusCaseInsensitive = [ctdusUnitCaseInsensitive,
ctdusInFilenameCaseInsenstive,
ctdusUnitFileCaseInsensitive];
@ -501,7 +501,11 @@ var
begin
Files:=FUnitSources[UnitSrc].Files;
if Files=nil then begin
Files:=TStringToStringTree.Create(UnitSrc in ctdusCaseSensitive);
Files:=TStringToStringTree.Create({$IFDEF CaseInsensitiveFilenames}
false
{$ELSE}
UnitSrc in ctdusCaseNormal
{$ENDIF});
FUnitSources[UnitSrc].Files:=Files;
end;
Files[Search]:=Filename;