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

codetools: find identifier references: fixed searching local identifiers

Browse Source 
git-svn-id: trunk@34832 -
This commit is contained in:
mattias 2012-01-21 11:39:20 +00:00
parent d469685cc6
commit 8f6bddb835
2 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/codetools/finddeclarationtool.pas
View File

@ -4642,6 +4642,7 @@ var
procedure LimitScope;
var
Node: TCodeTreeNode;
StartNode: TCodeTreeNode;
begin
MinPos:=Tree.FindFirstPosition;
MaxPos:=Tree.FindLastPosition;
@ -4649,11 +4650,10 @@ var
if DeclarationTool<>Self then exit;
Node:=DeclarationNode;
StartNode:=DeclarationNode;
if (AliasDeclarationNode<>nil) then
Node:=AliasDeclarationNode;
if Node.Desc=ctnProcedureHead then
MinPos:=Node.StartPos;
StartNode:=AliasDeclarationNode;
Node:=StartNode;
while Node<>nil do begin
case Node.Desc of
ctnImplementation:
@ -4671,15 +4671,16 @@ var
if MinPos<Node.StartPos then MinPos:=Node.StartPos;
end;
ctnProcedureHead:
MinPos:=Node.StartPos;
ctnProcedure:
begin
if (DeclarationNode<>Node)
and (DeclarationNode<>Node.FirstChild)
and (AliasDeclarationNode<>Node)
and (AliasDeclarationNode<>Node.FirstChild)
then begin
if (FindProcBody(Node)<>nil) and (StartNode<>Node.FirstChild) then
begin
// DeclarationNode is a local identifier
// limit scope to procedure
//debugln(['LimitScope ProcNode=',CleanPosToStr(Node.StartPos),'..',CleanPosToStr(Node.EndPos)]);
if MinPos<Node.FirstChild.EndPos then
MinPos:=Node.FirstChild.EndPos;
if MaxPos>Node.EndPos then
@ -4687,7 +4688,17 @@ var
end;
end;
ctnOnBlock:
begin
// a declaration in an on block is only accessible in the on block
if MinPos<Node.StartPos then
MinPos:=Node.StartPos;
if MaxPos>Node.EndPos then
MaxPos:=Node.EndPos;
end;
end;
//debugln(['scope limited to node: ',Node.DescAsString,' ',CleanPosToStr(MinPos),'..',CleanPosToStr(MaxPos),': ',dbgstr(copy(Src,MinPos,20)),'..',dbgstr(copy(Src,MaxPos-20,20))]);
Node:=Node.Parent;
end;
//debugln(['LimitScope ',CleanPosToStr(MinPos),'..',CleanPosToStr(MaxPos),': ',dbgstr(copy(Src,MinPos,20)),'..',dbgstr(copy(Src,MaxPos-20,20))]);
@ -4721,7 +4732,7 @@ begin
// search identifiers
LimitScope;
//debugln('FindReferences MinPos=',dbgs(MinPos),' MaxPos=',dbgs(MaxPos));
//debugln('FindReferences MinPos=',CleanPosToStr(MinPos),' MaxPos=',CleanPosToStr(MaxPos));
SearchIdentifiers;
// create the reference list

4
components/codetools/pascalreadertool.pas
View File

@ -792,11 +792,11 @@ begin
Result:=ProcNode;
if Result=nil then exit;
if Result.Desc<>ctnProcedure then exit;
Result:=Result.FirstChild;
Result:=Result.LastChild;
while Result<>nil do begin
if Result.Desc in [ctnBeginBlock,ctnAsmBlock] then
exit;
Result:=Result.NextBrother;
Result:=Result.PriorBrother;
end;
end;