paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:39:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: auto continue on windows "DbgUiConvertStateChangeStructure"

Browse Source 
git-svn-id: trunk@32779 -
This commit is contained in:
martin 2011-10-09 12:36:00 +00:00
parent a2db5dd194
commit 6e2dfa27a3
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
debugger/gdbmidebugger.pp
View File

@ -4461,9 +4461,21 @@ function TGDBMIDebuggerCommandExecute.ProcessStopped(const AParams: String;
{$ELSE} {$ELSE}
SigInt := S = 'SIGINT'; SigInt := S = 'SIGINT';
{$ENDIF} {$ENDIF}
if not AIgnoreSigIntState
{$IFdef MSWindows}
if SigInt and (FTheDebugger.PauseWaitState = pwsNone) and
(pos('DbgUiConvertStateChangeStructure', FTheDebugger.FCurrentLocation.FuncName) > 0)
then begin
Result := True;
exit;
end;
{$ENDIF}
if not AIgnoreSigIntState // not pwsInternal
or not SigInt or not SigInt
then begin then begin
// user-requested pause OR other signal (not sigint)
// TODO: if SigInt, check that it was issued by IDE
{$IFdef MSWindows} {$IFdef MSWindows}
FTheDebugger.QueueExecuteLock; FTheDebugger.QueueExecuteLock;
try try