paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 20:43:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed crash rename published method, bug #13840

Browse Source 
git-svn-id: trunk@20251 -
This commit is contained in:
mattias 2009-05-26 21:20:29 +00:00
parent e541407654
commit 6ed092dce1
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/eventcodetool.pas
View File

@ -1049,13 +1049,15 @@ begin
BuildSubTreeForClass(ClassNode);
VisibilityNode:=ClassNode.FirstChild;
while (VisibilityNode<>nil) do begin
Result:=VisibilityNode.FirstChild;
while Result<>nil do begin
if CompareSrcIdentifiers(Result.FirstChild.StartPos,Identifier) then
begin
exit;
if VisibilityNode.Desc in AllClassBaseSections then begin
Result:=VisibilityNode.FirstChild;
while Result<>nil do begin
if CompareSrcIdentifiers(Result.FirstChild.StartPos,Identifier) then
begin
exit;
end;
Result:=Result.NextBrother;
end;
Result:=Result.NextBrother;
end;
VisibilityNode:=VisibilityNode.NextBrother;
end;