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

SynEdit: fix range check introduced in a7a0b3ee3a - Issue #40778

Browse Source
This commit is contained in:
Martin 2024-02-16 14:06:14 +01:00
parent 710136974c
commit 0b1f218698
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlighterhtml.pp
View File

@ -48,7 +48,7 @@ unit SynHighlighterHTML;
interface
uses
SysUtils, Classes, Graphics, SynEditTypes, SynEditHighlighter,
SysUtils, Classes, Math, Graphics, SynEditTypes, SynEditHighlighter,
SynEditHighlighterXMLBase, SynEditHighlighterFoldBase, SynEditStrConst;
const
@ -2535,13 +2535,15 @@ begin
Inc(Run, fStringLen);
if ((FMode = shmXHtml) or (not fSimpleTag)) then begin
if fLine[R] = '/' then begin
SetLength(s, fStringLen - 1);
move((fLine + R + 1)^, s[1], fStringLen-1);
SetLength(s, Max(fStringLen - 1, 0));
if fStringLen > 1 then
move((fLine + R + 1)^, s[1], fStringLen-1);
EndHtmlNodeCodeFoldBlock(R+1, s);
end
else if fLine[R] <> '!' then begin
SetLength(s, fStringLen);
move((fLine + R)^, s[1], fStringLen);
if fStringLen > 0 then
move((fLine + R)^, s[1], fStringLen);
StartHtmlNodeCodeFoldBlock(cfbtHtmlNode, R, s);
end;
end;