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

ide: find used unit: search in virtual units

Browse Source
This commit is contained in:
mattias 2025-03-16 15:18:58 +01:00
parent b09fddb930
commit d927aa92cb
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codetoolmanager.pas
View File

@ -3070,6 +3070,10 @@ var
Result:=false;
if FilenameIsAbsolute(TargetFilename) then exit;
Result:=DoOnFindUsedUnit(CurFilename,TargetUnitName,'')<>nil;
{$IFDEF VerboseFindSourceNameReferences}
if Result then
debugln(['TCodeToolManager.FindSourceNameReferences File ',Filename,', virtual target in unit path']);
{$ENDIF}
end;
begin

9
ide/main.pp
View File

@ -10082,6 +10082,7 @@ function TMainIDE.CodeToolBossSearchUsedUnit(const SrcFilename: string;
const TheUnitName, TheUnitInFilename: string): TCodeBuffer;
var
AnUnitInfo: TUnitInfo;
aFilename: String;
begin
Result:=nil;
// check if SrcFilename is project file
@ -10090,11 +10091,11 @@ begin
AnUnitInfo:=Project1.ProjectUnitWithFilename(SrcFilename);
if AnUnitInfo=nil then exit;
// SrcFilename is a project file
// -> search virtual project files
AnUnitInfo:=Project1.ProjectUnitWithUnitname(TheUnitName);
if AnUnitInfo=nil then exit;
// -> search in virtual files
aFilename:=CodeToolBoss.DirectoryCachePool.FindVirtualUnit(TheUnitName);
if aFilename='' then exit;
// virtual unit found
Result:=AnUnitInfo.Source;
Result:=CodeToolBoss.LoadFile(aFilename,false,false);
end;
procedure TMainIDE.CodeToolBossGetVirtualDirectoryAlias(Sender: TObject;