From eb39f62be57804c7b34341702997a59b663262a7 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 26 Oct 2011 17:31:29 +0000
Subject: [PATCH] IDE: findsourcefile: ignore empty file name

git-svn-id: trunk@33101 -
---
 ide/main.pp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index 618f2e8639..0f99133585 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -14056,6 +14056,7 @@ begin
   {$IFDEF VerboseFindSourceFile}
   debugln(['TMainIDE.FindSourceFile Filename="',AFilename,'" BaseDirectory="',BaseDirectory,'"']);
   {$ENDIF}
+  if AFilename='' then exit('');
 
   if fsfMapTempToVirtualFiles in Flags then
   begin
@@ -14072,7 +14073,7 @@ begin
   if FilenameIsAbsolute(AFilename) then
   begin
     Result := AFilename;
-    if not FileExistsUTF8(Result) then
+    if not FileExistsCached(Result) then
       Result := '';
     Exit;
   end;
@@ -14087,7 +14088,7 @@ begin
   {$IFDEF VerboseFindSourceFile}
   debugln(['TMainIDE.FindSourceFile trying Base "',Result,'"']);
   {$ENDIF}
-  if FileExistsUTF8(Result) then exit;
+  if FileExistsCached(Result) then exit;
   MarkPathAsSearched(BaseDir);
 
   // search file in debug path
@@ -14147,7 +14148,7 @@ end;
 function TMainIDE.FileExistsInIDE(const Filename: string;
   SearchFlags: TProjectFileSearchFlags): boolean;
 begin
-  Result:=FileExistsUTF8(Filename)
+  Result:=FileExistsCached(Filename)
           or (Project1.UnitInfoWithFilename(Filename,SearchFlags)<>nil);
 end;