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

SynEdit: Wrapped view, fixed assertion

Browse Source
This commit is contained in:
Martin 2025-01-21 16:03:53 +01:00
parent 9a8138a7c1
commit 7a61eec5b3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/syneditwrappedview.pp
View File

@ -930,13 +930,14 @@ begin
@ADestPage.FWrappedExtraSums[ALineCount + OldOffset], @ADestPage.FWrappedExtraSums[ALineCount + OldOffset],
ADestPage.FWrappedExtraSumsCount, ADestPage.FWrappedExtraSumsCount,
SrcO2 - SrcO1); SrcO2 - SrcO1);
assert(ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount, 'TSynWordWrapLineMap.MoveLinesAtEndTo: ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount'); if MinLineCount > 0 then begin
if MinLineCount > 0 then assert(ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount, 'TSynWordWrapLineMap.MoveLinesAtEndTo: ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount');
WrapInfoCopyAndAdjustFromTo( WrapInfoCopyAndAdjustFromTo(
@FWrappedExtraSums[ASourceStartLine], @FWrappedExtraSums[ASourceStartLine],
@ADestPage.FWrappedExtraSums[0], @ADestPage.FWrappedExtraSums[0],
MinLineCount, MinLineCount,
-SrcO1); -SrcO1);
end;
WrapInfoFillFrom( WrapInfoFillFrom(
@ADestPage.FWrappedExtraSums[MinLineCount], @ADestPage.FWrappedExtraSums[MinLineCount],
ALineCount - MinLineCount + OldOffset, ALineCount - MinLineCount + OldOffset,