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

If PauseRequested is true, then both SIGINT and SIGTRAP should be treated as deBreakpoint.

Browse Source
This commit is contained in:
ccrause 2021-08-06 14:08:10 +02:00
parent 1529b34ca7
commit 5b824b677c
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdbgavrclasses.pas
View File

@ -1025,15 +1025,12 @@ begin
else if TDbgAvrThread(AThread).FInternalPauseRequested then
begin
DebugLn(DBG_VERBOSE, ['???Received late SigTrap for thread ', AThread.ID]);
result := deBreakpoint;//deInternalContinue; // left over signal
result := deBreakpoint;
end
else
begin
DebugLn(DBG_VERBOSE, ['Received SigTrap for thread ', AThread.ID,
' PauseRequest=', PauseRequested]);
if PauseRequested then // Hack to work around Pause problem
result := deFinishedStep
else
result := deBreakpoint;
if not TDbgAvrThread(AThread).FIsSteppingBreakPoint then
@ -1041,11 +1038,16 @@ begin
end;
end;
SIGINT:
begin
if PauseRequested then
result := deBreakpoint
else
begin
ExceptionClass:='SIGINT';
TDbgAvrThread(AThread).FExceptionSignal:=SIGINT;
result := deException;
end;
end;
SIGKILL:
begin
if FIsTerminating then