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

SynEdit: Fixed crash due to uninitialised pointer. ATokenInfo.Tk.TokenStart may be trash, but the caller needs nil if there is no data.

Browse Source 
(cherry picked from commit 05a5c1f416)
This commit is contained in:
Martin 2025-04-21 21:22:38 +02:00
parent b94f2d82e8
commit 7f2d12f0f3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/lazsyntextarea.pp
View File

@ -743,6 +743,7 @@ var
TabExtra: Integer;
HasTabs, HasDouble: Boolean;
begin
ATokenInfo := Default(TLazSynDisplayTokenInfoEx);
ATokenInfo.Attr := nil;
while True do begin
Result := MaybeFetchToken; // Get token from View/Highlighter