paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: FindSourceFile: search in virtual files

Browse Source 
git-svn-id: trunk@58216 -
This commit is contained in:
mattias 2018-06-10 17:03:43 +00:00
parent 2abb3f84ba
commit d684662c07
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/sourcefilemanager.pas
View File

@ -3059,6 +3059,7 @@ var
var
SearchPath: String;
SearchFile: String;
ProjFile: TLazProjectFile;
begin
{$IFDEF VerboseFindSourceFile}
debugln(['TLazSourceFileManager.FindSourceFile Filename="',AFilename,'" BaseDirectory="',BaseDirectory,'"']);
@ -3091,15 +3092,23 @@ begin
BaseDir:=AppendPathDelim(TrimFilename(BaseDir));
// search file in base directory
Result:=TrimFilename(BaseDir+AFilename);
{$IFDEF VerboseFindSourceFile}
debugln(['TLazSourceFileManager.FindSourceFile trying Base "',Result,'"']);
{$ENDIF}
if FileExistsCached(Result) then exit;
MarkPathAsSearched(BaseDir);
if FilenameIsAbsolute(BaseDir) then begin
Result:=TrimFilename(BaseDir+AFilename);
{$IFDEF VerboseFindSourceFile}
debugln(['TLazSourceFileManager.FindSourceFile trying Base "',Result,'"']);
{$ENDIF}
if FileExistsCached(Result) then exit;
MarkPathAsSearched(BaseDir);
end else if Project1<>nil then begin
// search in virtual files
Result:=TrimFilename(BaseDir+AFilename);
ProjFile:=Project1.FindFile(Result,[pfsfOnlyVirtualFiles]);
if ProjFile<>nil then
exit;
end;
// search file in debug path
if fsfUseDebugPath in Flags then begin
if (fsfUseDebugPath in Flags) and (Project1<>nil) then begin
SearchPath:=EnvironmentOptions.GetParsedDebuggerSearchPath;
SearchPath:=MergeSearchPaths(Project1.CompilerOptions.GetDebugPath(false),
SearchPath);