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

FpDebug: overloaded Register.SetValue to avoid range-check errors.

Browse Source
This commit is contained in:
Martin 2025-02-26 17:28:47 +01:00
parent ec97ee173f
commit 51eca6e940
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpdebug/fpdmemorytools.pas
View File

@ -109,6 +109,9 @@ type
destructor Destroy; override;
procedure Assign(ASource: TDbgRegisterValue);
function HasEqualVal(AnOther: TDbgRegisterValue): Boolean;
procedure SetValue(ANumValue: Integer; const AStrValue: string; ASize: byte; ADwarfIdx: cardinal);
procedure SetValue(ANumValue: Int64; const AStrValue: string; ASize: byte; ADwarfIdx: cardinal);
procedure SetValue(ANumValue: Cardinal; const AStrValue: string; ASize: byte; ADwarfIdx: cardinal);
procedure SetValue(ANumValue: TDBGPtr; const AStrValue: string; ASize: byte; ADwarfIdx: cardinal);
procedure SetValue(const AData: Pointer; ASize: byte; ADwarfIdx: cardinal; AFormatter: TRegisterFormatterProc);
procedure Setx86EFlagsValue(ANumValue: TDBGPtr);
@ -1090,6 +1093,26 @@ begin
(FStrValue = AnOther.FStrValue);
end;
procedure TDbgRegisterValue.SetValue(ANumValue: Integer; const AStrValue: string; ASize: byte;
ADwarfIdx: cardinal);
var
CNum: Cardinal absolute ANumValue;
begin
SetValue(TDBGPtr(CNum), AStrValue, ASize, ADwarfIdx);
end;
procedure TDbgRegisterValue.SetValue(ANumValue: Int64; const AStrValue: string; ASize: byte;
ADwarfIdx: cardinal);
begin
SetValue(TDBGPtr(ANumValue), AStrValue, ASize, ADwarfIdx);
end;
procedure TDbgRegisterValue.SetValue(ANumValue: Cardinal; const AStrValue: string; ASize: byte;
ADwarfIdx: cardinal);
begin
SetValue(TDBGPtr(ANumValue), AStrValue, ASize, ADwarfIdx);
end;
procedure TDbgRegisterValue.SetValue(ANumValue: TDBGPtr;
const AStrValue: string; ASize: byte; ADwarfIdx: cardinal);
begin