paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 11:24: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); BuildSubTreeForClass(ClassNode);
VisibilityNode:=ClassNode.FirstChild; VisibilityNode:=ClassNode.FirstChild;
while (VisibilityNode<>nil) do begin while (VisibilityNode<>nil) do begin
Result:=VisibilityNode.FirstChild; if VisibilityNode.Desc in AllClassBaseSections then begin
while Result<>nil do begin Result:=VisibilityNode.FirstChild;
if CompareSrcIdentifiers(Result.FirstChild.StartPos,Identifier) then while Result<>nil do begin
begin if CompareSrcIdentifiers(Result.FirstChild.StartPos,Identifier) then
exit; begin
exit;
end;
Result:=Result.NextBrother;
end; end;
Result:=Result.NextBrother;
end; end;
VisibilityNode:=VisibilityNode.NextBrother; VisibilityNode:=VisibilityNode.NextBrother;
end; end;