paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:16:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Fix class helper and inner class with strict private. Issue #28331, patch by Włodzimierz Bień.

Browse Source
This commit is contained in:
Juha 2026-02-09 14:12:23 +02:00
parent 92b356b54d
commit e8559f0123
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/identcompletiontool.pas
View File

@ -1372,7 +1372,7 @@ var
var
NewItem: TIdentifierListItem;
Node, SubNode: TCodeTreeNode;
Node, SubNode, InnerClass: TCodeTreeNode;
ProtectedForeignClass: Boolean;
Lvl: LongInt;
HasLowerVisibility: Boolean;
@ -1428,12 +1428,20 @@ begin
SubNode:=FindClassNodeForMethodBody(
FindMostOuterProcNode(CurrentIdentifierList.StartContext.Node),
true,false); // nested procedures must be handled also
if SubNode=nil then // not a method
//OK, strict private inside class
else
if not FoundContext.Node.HasAsParent(SubNode) then begin
//debugln(['TIdentCompletionTool.CollectAllIdentifiers: ',
// 'strict private not allowed ']);
exit;
end;
// check if not in a nested class
SubNode:=FindClassNode(CurrentIdentifierList.StartContext.Node);
InnerClass:=FindClassNode(Node);
if (SubNode<>InnerClass) and
InnerClass.HasAsParent(SubNode) then
exit;
end else
if (Node.Desc=ctnClassProtected) then begin
// strict protected - only inside current class descendants and the same unit allowed