From 9a575491655441e4c591a5169a0a3d1ea4ea8fb2 Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 3 Nov 2011 12:26:56 +0000 Subject: [PATCH] codetools: fixed FindDiskFilename git-svn-id: trunk@33256 - --- components/codetools/directorycacher.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/codetools/directorycacher.pas b/components/codetools/directorycacher.pas index 84a0734c60..5d95ad72cb 100644 --- a/components/codetools/directorycacher.pas +++ b/components/codetools/directorycacher.pas @@ -1598,7 +1598,7 @@ end; function TCTDirectoryCachePool.FindDiskFilename(const Filename: string ): string; -{$IFDEF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)} +{$IF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)} var ADirectory: String; Cache: TCTDirectoryCache; @@ -1607,7 +1607,7 @@ var begin Result:=ChompPathDelim(TrimFilename(Filename)); if Result='' then exit; - {$IFDEF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)} + {$IF defined(NotLiteralFilenames) or defined(CaseInsensitiveFilenames)} ADirectory:=ExtractFilePath(Result); if ADirectory=Result then exit; // e.g. / under Linux