From 1dfc8873d3dfa2df40946bd87a9ac57f75212af0 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 12 Feb 2014 11:09:06 +0000
Subject: [PATCH] FPDebug: mem-manager

git-svn-id: trunk@44027 -
---
 components/fpdebug/test/testhelperclasses.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/components/fpdebug/test/testhelperclasses.pas b/components/fpdebug/test/testhelperclasses.pas
index 353d2dd9a5..86b117762a 100644
--- a/components/fpdebug/test/testhelperclasses.pas
+++ b/components/fpdebug/test/testhelperclasses.pas
@@ -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;