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

FpDebug: move some breakpoint checks to TFpBreakPointTargetHandler

Browse Source
This commit is contained in:
Martin 2024-02-15 21:32:31 +01:00
parent c6d52ae4b7
commit ef78dcf1ba
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/fpdebug/fpdbgclasses.pp
View File

@ -494,6 +494,8 @@ type
procedure UpdateMapForNewTargetCode(const AAdress: TDbgPtr; const ASize: Cardinal; const AData); virtual; abstract;
function IsHardcodeBreakPoint(const ALocation: TDBGPtr): Boolean; virtual; abstract;
// IsHardcodeBreakPointInCode checks even if no TFpInternalBreakpoint is set at the location
function IsHardcodeBreakPointInCode(const ALocation: TDBGPtr): Boolean; virtual; abstract;
procedure TempRemoveBreakInstructionCode(const ALocation: TDBGPtr); virtual; abstract;
procedure RestoreTempBreakInstructionCodes; virtual; abstract;
@ -531,6 +533,7 @@ type
procedure UpdateMapForNewTargetCode(const AAdress: TDbgPtr; const ASize: Cardinal; const AData); override;
function IsHardcodeBreakPoint(const ALocation: TDBGPtr): Boolean; override;
function IsHardcodeBreakPointInCode(const ALocation: TDBGPtr): Boolean; override;
procedure TempRemoveBreakInstructionCode(const ALocation: TDBGPtr); override;
procedure RestoreTempBreakInstructionCodes; override;
@ -1556,6 +1559,16 @@ begin
Result := GetOrigValueAtLocation(ALocation) = _BREAK._CODE;
end;
function TGenericBreakPointTargetHandler.IsHardcodeBreakPointInCode(
const ALocation: TDBGPtr): Boolean;
var
OVal: _BRK_STORE;
begin
Result := False;
if Process.ReadData(ALocation, SizeOf(_BRK_STORE), OVal) then
Result := OVal = _BREAK._CODE;
end;
procedure TGenericBreakPointTargetHandler.TempRemoveBreakInstructionCode(
const ALocation: TDBGPtr);
var
@ -3561,7 +3574,6 @@ end;
procedure TDbgThread.CheckAndResetInstructionPointerAfterBreakpoint;
var
t: TDBGPtr;
OVal: Byte;
begin
// todo: check that the breakpoint is NOT in the temp removed list
t := GetInstructionPointerForHasBreakpointInfoForAddress;
@ -3574,20 +3586,16 @@ begin
end
else begin
// TODO: allow to skip this, while detaching
if FProcess.ReadData(t, 1, OVal) then
FPausedAtHardcodeBreakPoint := OVal = TDbgProcess.Int3;
FPausedAtHardcodeBreakPoint := Process.FBreakTargetHandler.IsHardcodeBreakPointInCode(t);
end;
end;
function TDbgThread.CheckForHardcodeBreakPoint(AnAddr: TDBGPtr): boolean;
var
OVal: Byte;
begin
Result := False;
if AnAddr = 0 then
exit;
if FProcess.ReadData(AnAddr, 1, OVal) then
FPausedAtHardcodeBreakPoint := OVal = TDbgProcess.Int3;
FPausedAtHardcodeBreakPoint := Process.FBreakTargetHandler.IsHardcodeBreakPointInCode(AnAddr);
Result := FPausedAtHardcodeBreakPoint;
end;