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

DBG: Fixed gdb result parser for empty sub-record

Browse Source 
git-svn-id: trunk@37435 -
This commit is contained in:
martin 2012-05-27 14:08:50 +00:00
parent 6065637900
commit 38a49eae3f
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
debugger/gdbmidebugger.pp
View File

@ -9696,22 +9696,26 @@ begin
Inc(BeginString);
end;
while EndString > BeginString do
while EndString >= BeginString do
begin
if FParsableData[EndString] <> ' ' then break;
Dec(EndString);
end;
if (EndString - BeginString > 0)
Result := EndString >= BeginString;
if Result
and (FParsableData[BeginString] = '{')
then begin
Result := FParsableData[EndString] = '}';
inc(BeginString);
dec(EndString);
ADecomposable := True;
end;
APayload := Copy(FParsableData, BeginString, EndString - BeginString + 1);
Result := Length(APayload) > 0;
if Result
then APayload := Copy(FParsableData, BeginString, EndString - BeginString + 1)
else APayload := '';
end;
{ TGDBMIDebuggerCommand }