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

SourceEditor: Fix dealing with out-of-range debug-marks

Browse Source 
git-svn-id: trunk@25283 -
This commit is contained in:
martin 2010-05-09 18:26:54 +00:00
parent ba597ac63e
commit 432b5fc9dd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcesyneditor.pas
View File

@ -235,9 +235,13 @@ begin
FDebugMarkInfo.IncRefCount;
end;
if ALastLinePos >= FDebugMarkInfo.Count then begin
if ALastLinePos > FDebugMarkInfo.Count then begin
debugln(['Request to set debug-mark out of range: max-count=',FDebugMarkInfo.Count,' Marks=',AFirstLinePos,' to=',ALastLinePos]);
ALastLinePos := FDebugMarkInfo.Count -1;
ALastLinePos := FDebugMarkInfo.Count;
end;
if AFirstLinePos < 1 then begin
debugln(['Request to set debug-mark out of range: max-count=',FDebugMarkInfo.Count,' Marks=',AFirstLinePos,' to=',ALastLinePos]);
AFirstLinePos := 1;
end;
for i := AFirstLinePos - 1 to ALastLinePos - 1 do
FDebugMarkInfo[i] := i + 1;