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

GDB: Attempt to deal with broken output from GDB on Mac (accessed wrong Result var)

Browse Source 
git-svn-id: trunk@31149 -
This commit is contained in:
martin 2011-06-09 23:49:04 +00:00
parent 8582b06c3d
commit ad7eb43d19
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -9017,7 +9017,7 @@ function TGDBMIDebuggerCommand.ProcessResult(var AResult: TGDBMIExecResult;ATime
var
InLogWarning: Boolean;
function DoResultRecord(Line: String): Boolean;
function DoResultRecord(Line: String; CurRes: Boolean): Boolean;
var
ResultClass: String;
OldResult: Boolean;
@ -9033,7 +9033,7 @@ var
AResult.Values := Line;
end;
OldResult := Result;
OldResult := CurRes;
Result := True;
case StringCase(ResultClass, ['done', 'running', 'exit', 'error']) of
0: begin // done
@ -9154,7 +9154,7 @@ begin
if s <> ''
then case S[1] of
'^': Result := DoResultRecord(S);
'^': Result := DoResultRecord(S, Result);
'~': DoConsoleStream(S);
'@': DoTargetStream(S);
'&': DoLogStream(S);