paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:00:24 +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} {$IFDEF VerboseFindSourceFile}
debugln(['TMainIDE.FindSourceFile Filename="',AFilename,'" BaseDirectory="',BaseDirectory,'"']); debugln(['TMainIDE.FindSourceFile Filename="',AFilename,'" BaseDirectory="',BaseDirectory,'"']);
{$ENDIF} {$ENDIF}
if AFilename='' then exit('');
if fsfMapTempToVirtualFiles in Flags then if fsfMapTempToVirtualFiles in Flags then
begin begin
@ -14072,7 +14073,7 @@ begin
if FilenameIsAbsolute(AFilename) then if FilenameIsAbsolute(AFilename) then
begin begin
Result := AFilename; Result := AFilename;
if not FileExistsUTF8(Result) then if not FileExistsCached(Result) then
Result := ''; Result := '';
Exit; Exit;
end; end;
@ -14087,7 +14088,7 @@ begin
{$IFDEF VerboseFindSourceFile} {$IFDEF VerboseFindSourceFile}
debugln(['TMainIDE.FindSourceFile trying Base "',Result,'"']); debugln(['TMainIDE.FindSourceFile trying Base "',Result,'"']);
{$ENDIF} {$ENDIF}
if FileExistsUTF8(Result) then exit; if FileExistsCached(Result) then exit;
MarkPathAsSearched(BaseDir); MarkPathAsSearched(BaseDir);
// search file in debug path // search file in debug path
@ -14147,7 +14148,7 @@ end;
function TMainIDE.FileExistsInIDE(const Filename: string; function TMainIDE.FileExistsInIDE(const Filename: string;
SearchFlags: TProjectFileSearchFlags): boolean; SearchFlags: TProjectFileSearchFlags): boolean;
begin begin
Result:=FileExistsUTF8(Filename) Result:=FileExistsCached(Filename)
or (Project1.UnitInfoWithFilename(Filename,SearchFlags)<>nil); or (Project1.UnitInfoWithFilename(Filename,SearchFlags)<>nil);
end; end;