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

FpDebug: Do not ignore SigTrap

Browse Source 
git-svn-id: trunk@63065 -
This commit is contained in:
martin 2020-04-24 20:08:17 +00:00
parent 1cc3be175c
commit ee2ae9567c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -1272,16 +1272,16 @@ begin
else
// TODO: check it is not a real breakpoint
// or end of single step
if TDbgLinuxThread(AThread).FInternalPauseRequested then begin
DebugLn(DBG_VERBOSE, ['Received late SigTrag for thread ', AThread.ID]);
result := deInternalContinue; // left over signal
end
else
begin
// if TDbgLinuxThread(AThread).FInternalPauseRequested then begin
// DebugLn(DBG_VERBOSE, ['Received late SigTrag for thread ', AThread.ID]);
// result := deInternalContinue; // left over signal
// end
// else
// begin
result := deBreakpoint; // or pause requested
if not TDbgLinuxThread(AThread).FIsSteppingBreakPoint then
AThread.CheckAndResetInstructionPointerAfterBreakpoint;
end;
// end;
end;
SIGBUS:
begin