paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Fix a regression in unit tests. Issue #23994, patch by WooBean007.

Browse Source
This commit is contained in:
Juha 2024-12-27 03:15:32 +02:00
parent 5d72852af6
commit 7fd1e6e91c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/finddeclarationtool.pas
View File

@ -6868,7 +6868,11 @@ var
if AliasDeclarationNode<>nil then begin if AliasDeclarationNode<>nil then begin
UseProcHead(AliasDeclarationNode); UseProcHead(AliasDeclarationNode);
Node:=DeclarationNode.Parent;
if DeclarationNode.Desc = ctnProcedureHead then
Node:=DeclarationNode.Parent.Parent
else
Node:=DeclarationNode.Parent;
while (Node<>nil) do begin while (Node<>nil) do begin
if Node.Desc = ctnProcedure then begin //here context is clearly limited if Node.Desc = ctnProcedure then begin //here context is clearly limited
if Node.EndPos<AliasDeclarationNode.StartPos then begin if Node.EndPos<AliasDeclarationNode.StartPos then begin