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

IDE: findsourcefile: ignore empty file name

Browse Source 
git-svn-id: trunk@33101 -
This commit is contained in:
mattias 2011-10-26 17:31:29 +00:00
parent 260ece9f1b
commit eb39f62be5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -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;