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

Debugger: GDBMI, fix range check

Browse Source 
git-svn-id: trunk@44543 -
This commit is contained in:
martin 2014-03-29 00:13:42 +00:00
parent 406a3736b2
commit 825ebd7c8b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -11565,7 +11565,7 @@ var
then Delete(Indent, 1, Length(INDENTSTRING));
end;
' ': begin
if ((i > 0) and (AInput[i-1] = ',')) and
if ((i > 1) and (AInput[i-1] = ',')) and
( (not IsArray) or
((Indent = '') and (InRounds <= 1)) or
((Indent = INDENTSTRING) and (InRounds = 0))