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

ide: find rename idenfifier of ctnUseUnit

Browse Source
This commit is contained in:
mattias 2025-02-12 16:32:50 +01:00
parent 3ac22c5abe
commit 4c647e3963
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/findrenameidentifier.pas
View File

@ -239,12 +239,17 @@ var
NamePos: TAtomPosition;
CodeXYPos, NewDeclCodeXY: TCodeXYPosition;
begin
if not (DeclNode.Desc in [ctnUseUnitNamespace,ctnUseUnitClearName]) then
case DeclNode.Desc of
ctnUseUnit: ;
ctnUseUnitNamespace,ctnUseUnitClearName:
DeclNode:=DeclNode.Parent;
else
exit(true);
end;
// renaming a uses -> rename the unit
// find unit
Result:=false;
aUnitName:=DeclTool.ExtractUsedUnitName(DeclNode.Parent,@InFilename);
aUnitName:=DeclTool.ExtractUsedUnitName(DeclNode,@InFilename);
if aUnitName='' then begin
Err(20250206143851,'ExtractUsedUnitName failed');
exit;