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

Debugger: add safety lock

Browse Source 
git-svn-id: trunk@42457 -
This commit is contained in:
martin 2013-08-23 09:49:59 +00:00
parent 22aff1ece9
commit 046ae2d487
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/gdbmidebugger.pp
View File

@ -6056,10 +6056,15 @@ var
// TODO: move to queue // TODO: move to queue
// must use none gdbmi commands // must use none gdbmi commands
FContext.ThreadContext := ccUseGlobal; FContext.ThreadContext := ccUseGlobal;
if (not ExecuteCommand('frame %d', [i], R, [cfNoStackContext])) or (R.State = dsError) FTheDebugger.QueueExecuteLock; // force queue
then i := -3; // error to user try
if (i < 0) or (not ExecuteCommand('break', [i], R, [cfNoStackContext])) or (R.State = dsError) if (not ExecuteCommand('frame %d', [i], R, [cfNoStackContext])) or (R.State = dsError)
then i := -3; // error to user then i := -3; // error to user
if (i < 0) or (not ExecuteCommand('break', [i], R, [cfNoStackContext])) or (R.State = dsError)
then i := -3; // error to user
finally
FTheDebugger.QueueExecuteUnlock;
end;
FStepBreakPoint := StrToIntDef(GetPart(['Breakpoint '], [' at '], R.Values), -1); FStepBreakPoint := StrToIntDef(GetPart(['Breakpoint '], [' at '], R.Values), -1);
if FStepBreakPoint < 0 if FStepBreakPoint < 0