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

Debugger: GDBMI, fix range check

Browse Source 
git-svn-id: trunk@44544 -
This commit is contained in:
martin 2014-03-29 00:19:29 +00:00
parent 825ebd7c8b
commit 1dab2ee8d8
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

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