mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 10:38:28 +02:00
codetools: find declaration: result in nested proc
git-svn-id: trunk@48085 -
This commit is contained in:
parent
b07fc833ca
commit
4a8bc5f9b6
@ -7301,7 +7301,9 @@ var
|
|||||||
// RESULT has a special meaning in a function
|
// RESULT has a special meaning in a function
|
||||||
// -> check if in a function
|
// -> check if in a function
|
||||||
if fdfExtractOperand in Params.Flags then Params.AddOperandPart('Result');
|
if fdfExtractOperand in Params.Flags then Params.AddOperandPart('Result');
|
||||||
ProcNode:=StartNode.GetNodeOfType(ctnProcedure);
|
ProcNode:=StartNode;
|
||||||
|
while not NodeIsFunction(ProcNode) do
|
||||||
|
ProcNode:=ProcNode.Parent;
|
||||||
if (ProcNode<>nil) then begin
|
if (ProcNode<>nil) then begin
|
||||||
if IsEnd and (fdfFindVariable in StartFlags) then begin
|
if IsEnd and (fdfFindVariable in StartFlags) then begin
|
||||||
BuildSubTreeForProcHead(ProcNode);
|
BuildSubTreeForProcHead(ProcNode);
|
||||||
|
Loading…
Reference in New Issue
Block a user