paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 17:47:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix avl for create-root-node returns nil

Browse Source 
git-svn-id: trunk@63447 -
This commit is contained in:
martin 2020-06-27 19:23:55 +00:00
parent 821b66e4c2
commit 7aa4a1ccfc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/syneditmiscclasses.pp
View File

@ -38,6 +38,7 @@ Known Issues:
unit SynEditMiscClasses;
{$I synedit.inc}
{$INLINE off}
interface
@ -3039,6 +3040,7 @@ var
function CreateRoot: TSynSizedDifferentialAVLNode; inline;
begin
Result := CreateNode(APosition);
if Result <> nil then
Result.FPositionOffset := APosition;
SetRoot(Result);
end;
@ -3072,6 +3074,7 @@ begin
if (Result = nil) then begin
if (AMode = afmCreate) then begin
Result := CreateRoot;
if Result <> nil then
aStartPosition := aStartPosition + Result.FPositionOffset;
end;
exit;