paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 05:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: directorycacher: using disk filenames for directories

Browse Source 
git-svn-id: trunk@33223 -
This commit is contained in:
mattias 2011-11-02 16:51:41 +00:00
parent 77eec82725
commit 8de024e007
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/directorycacher.pas
View File

@ -1403,7 +1403,8 @@ begin
if DoReference then
Result.Reference;
end else if DoReference or CreateIfNotExists then begin
Result:=TCTDirectoryCache.Create(Directory,Self);
Dir:=FindDiskFilename(ChompPathDelim(TrimFilename(Directory)));
Result:=TCTDirectoryCache.Create(Dir,Self);
FDirectories.Add(Result);
if DoReference then
Result.Reference;
@ -1602,8 +1603,11 @@ var
Cache: TCTDirectoryCache;
ShortFilename: String;
begin
Result:=TrimFilename(Filename);
Result:=ChompPathDelim(TrimFilename(Filename));
if Result='' then exit;
ADirectory:=ExtractFilePath(Result);
if ADirectory=Result then
exit; // e.g. / under Linux
Cache:=GetCache(ADirectory,true,false);
ShortFilename:=ExtractFileName(Result);
Result:=Cache.FindFile(ShortFilename,ctsfcAllCase);