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

FpDebug: Linux, ensure a breakpoint is reported once for each thread, if hit at the same time

Browse Source 
git-svn-id: trunk@61853 -
This commit is contained in:
martin 2019-09-10 18:52:46 +00:00
parent b93119b54e
commit 63087a3084
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -248,6 +248,7 @@ type
FExceptionSignal: cint;
FIsPaused, FInternalPauseRequested, FIsInInternalPause: boolean;
FIsSteppingBreakPoint: boolean;
FDidResetInstructionPointer: Boolean;
FHasThreadState: boolean;
function GetDebugRegOffset(ind: byte): pointer;
function ReadDebugReg(ind: byte; out AVal: PtrUInt): boolean;
@ -510,11 +511,8 @@ begin
if wstopsig(AWaitedStatus) = SIGTRAP then begin
ReadThreadState;
CheckAndResetInstructionPointerAfterBreakpoint;
Result := True;
// TODO: main loop should search all threads for breakpoints
// TODO: add to FPostponedSignals => and alert user about the breakpoint hit
// But, that needs to handle that breakpoints could be removed in the meantime....
// Remember CheckAndResetInstructionPointerAfterBreakpoint was done
//Result := True;
end
else
@ -537,12 +535,16 @@ begin
FIsPaused := False;
FExceptionSignal := 0;
FHasThreadState := False;
FDidResetInstructionPointer := False;
end;
function TDbgLinuxThread.ResetInstructionPointerAfterBreakpoint: boolean;
begin
ReadThreadState;
result := true;
if FDidResetInstructionPointer then
exit;
FDidResetInstructionPointer := True;
if Process.Mode=dm32 then
Dec(FUserRegs.regs32[eip])