paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: AvlTree, check for nil when searching nodes

Browse Source 
git-svn-id: trunk@60756 -
This commit is contained in:
martin 2019-03-24 03:05:36 +00:00
parent 47bccc778c
commit 18953aeb37
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syneditmiscclasses.pp
View File

@ -2926,7 +2926,8 @@ begin
while Result <> nil do begin while Result <> nil do begin
if ALeftSum < Result.FLeftSizeSum then begin if ALeftSum < Result.FLeftSizeSum then begin
Result := Result.FLeft; Result := Result.FLeft;
aStartPosition := aStartPosition + Result.FPositionOffset; if Result <> nil then
aStartPosition := aStartPosition + Result.FPositionOffset;
continue; continue;
end; end;
@ -2939,7 +2940,8 @@ begin
ALeftSum := ALeftSum - Result.FSize; ALeftSum := ALeftSum - Result.FSize;
aSizesBeforeSum := aSizesBeforeSum + Result.FSize; aSizesBeforeSum := aSizesBeforeSum + Result.FSize;
Result := Result.FRight; Result := Result.FRight;
aStartPosition := aStartPosition + Result.FPositionOffset; if Result <> nil then
aStartPosition := aStartPosition + Result.FPositionOffset;
continue; continue;
end; end;
end; end;