paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 23:49:13 +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

12
debugger/gdbmidebugger.pp
View File

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