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

codetools: fixed TCTDirectoryCachePool.FindDiskFilename for non existing files

Browse Source 
git-svn-id: trunk@34780 -
This commit is contained in:
mattias 2012-01-18 17:09:57 +00:00
parent 6be7642595
commit 196a45257c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/directorycacher.pas
View File

@ -1610,7 +1610,7 @@ function TCTDirectoryCachePool.FindDiskFilename(const Filename: string;
var
ADirectory: String;
Cache: TCTDirectoryCache;
ShortFilename: String;
DiskShortFilename: String;
begin
Result:=ChompPathDelim(TrimFilename(Filename));
if Result='' then exit;
@ -1622,9 +1622,9 @@ begin
if ADirectory=Result then
exit; // e.g. / under Linux
Cache:=GetCache(ADirectory,true,false);
ShortFilename:=ExtractFileName(Result);
Result:=Cache.FindFile(ShortFilename,ctsfcAllCase);
if Result='' then exit;
Result:=ExtractFileName(Result);
DiskShortFilename:=Cache.FindFile(Result,ctsfcAllCase);
if DiskShortFilename<>'' then Result:=DiskShortFilename;
Result:=Cache.Directory+Result;
end;