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

FPDebug: mem-manager

Browse Source 
git-svn-id: trunk@44027 -
This commit is contained in:
martin 2014-02-12 11:09:06 +00:00
parent abbd5a45d1
commit 1dfc8873d3
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/test/testhelperclasses.pas
View File

@ -19,7 +19,8 @@ type
RegisterValues: array[0..30] of TDbgPtr;
function ReadMemory(AnAddress: TDbgPtr; ASize: Cardinal; ADest: Pointer): Boolean; override;
function ReadMemoryEx({%H-}AnAddress, {%H-}AnAddressSpace: TDbgPtr; {%H-}ASize: Cardinal; {%H-}ADest: Pointer): Boolean; override;
function ReadRegister(ARegNum: Integer; out AValue: TDbgPtr): Boolean; override;
function ReadRegister(ARegNum: Cardinal; out AValue: TDbgPtr): Boolean; override;
function RegisterSize(ARegNum: Cardinal): Integer; override;
end;
TTestDwarfAbbrev = class;
@ -400,12 +401,17 @@ begin
Result := False;
end;
function TTestMemReader.ReadRegister(ARegNum: Integer; out AValue: TDbgPtr): Boolean;
function TTestMemReader.ReadRegister(ARegNum: Cardinal; out AValue: TDbgPtr): Boolean;
begin
Result := True;
AValue := RegisterValues[ARegNum];
end;
function TTestMemReader.RegisterSize(ARegNum: Cardinal): Integer;
begin
Result := 4; // TODO
end;
{ TTestDwarfInfoEntry }
procedure TTestDwarfInfoEntry.InitEncoded;