paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 15:41:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codeobserver: fixed crash

Browse Source 
git-svn-id: trunk@26420 -
This commit is contained in:
mattias 2010-07-02 16:54:06 +00:00
parent e16c63743c
commit 3f6251657d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/codeexplorer.pas
View File

@ -977,9 +977,10 @@ procedure TCodeExplorerView.CreateObservations(Tool: TCodeTool);
if CodeNode.Desc in AllIdentifierDefinitions then begin
if not NodeSorted(CodeNode) then exit;
// skip all variables in a group (e.g. Next,Prev:TNode)
while CodeNode.FirstChild=nil do
while CodeNode.FirstChild=nil do begin
CodeNode:=CodeNode.NextBrother;
if CodeNode=nil then break;
if CodeNode=nil then exit;
end;
end else if CodeNode.Desc in [ctnProperty,ctnProcedure] then
begin
if not NodeSorted(CodeNode) then exit;