paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 20:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed FindDiskFilename

Browse Source 
git-svn-id: trunk@33256 -
This commit is contained in:
mattias 2011-11-03 12:26:56 +00:00
parent c0fd58624a
commit 9a57549165
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/directorycacher.pas
View File

@ -1598,7 +1598,7 @@ end;
function TCTDirectoryCachePool.FindDiskFilename(const Filename: string function TCTDirectoryCachePool.FindDiskFilename(const Filename: string
): string; ): string;
{$IFDEF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)} {$IF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)}
var var
ADirectory: String; ADirectory: String;
Cache: TCTDirectoryCache; Cache: TCTDirectoryCache;
@ -1607,7 +1607,7 @@ var
begin begin
Result:=ChompPathDelim(TrimFilename(Filename)); Result:=ChompPathDelim(TrimFilename(Filename));
if Result='' then exit; if Result='' then exit;
{$IFDEF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)} {$IF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)}
ADirectory:=ExtractFilePath(Result); ADirectory:=ExtractFilePath(Result);
if ADirectory=Result then if ADirectory=Result then
exit; // e.g. / under Linux exit; // e.g. / under Linux