#97, fix pause and add brk not working before a first break

This commit is contained in:
Basile Burg 2016-12-01 02:53:41 +01:00
parent 3eebc99a7e
commit 8dc82b987f
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 3 additions and 5 deletions

View File

@ -1307,10 +1307,6 @@ begin
r := fGdbState = gsRunning;
if r then
begin
// TODO-cGDB: follow state of https://sourceware.org/bugzilla/show_bug.cgi?id=18077
// "async mode" is not activated until a break is triggered.
// The action for the "pause" button is also affected.
// The problem exist still in GDB 7.12
fSilentPause := true;
gdbCommand('-exec-interrupt --all', @gdboutJsonize);
waitCommandProcessed;
@ -1566,7 +1562,9 @@ begin
// launch
cpuViewer.TIObject := fInspState;
cpuViewer.RefreshPropertyValues;
gdbCommand('run >' + fOutputName + '< ' + fInputName);
gdbCommand('set args >' + fOutputName + '< ' + fInputName);
// non-MI command "run" has the same problem as https://sourceware.org/bugzilla/show_bug.cgi?id=18077
gdbCommand('-exec-run');
setState(gsRunning);
end;
{$ENDREGION}