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

IDE, SynEdit: fixed a crash/mem-access violation, if restoring a breakpoint to a no longer existing line

Browse Source 
git-svn-id: trunk@27892 -
This commit is contained in:
martin 2010-10-27 00:29:44 +00:00
parent a0bf2b0be8
commit bbebbdd3cd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/sourcesyneditor.pas
View File

@ -743,7 +743,8 @@ function TIDESynGutterMarks.SourceLineToDebugLine(aLinePos: Integer;
AdjustOnError: Boolean): Integer;
begin
CheckTextBuffer;
if (aLinePos < 1) or (not HasDebugMarks) then exit(aLinePos);
if (aLinePos < 1) or (not HasDebugMarks) or (aLinePos >= FDebugMarkInfo.Count) then
exit(aLinePos);
Result := FDebugMarkInfo[aLinePos - 1];
while (Result = 0) and AdjustOnError and (aLinePos < FDebugMarkInfo.Count-1) do begin
inc(aLinePos);