FIX: Crash with Lazarus 4.99 (issue #2764)

This commit is contained in:
Alexander Koblov 2026-02-23 00:09:45 +03:00
commit dd391e22b7

View file

@ -447,6 +447,10 @@ end;
procedure TSynUniSyn.SetRange(Value: Pointer);
//: Set current range
begin
{$if lcl_fullversion >= 4990000}
// Workaround, issue #2764
if (Value = nil) then Exit;
{$endif}
fCurrentRule := TSynRange(Value);
end;