* Patch from Silvio Clecio to adapt to new VMT methods (bug ID 30435)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34471 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 5 deletions

diff --git a/packages/fcl-fpcunit/src/testutils.pp b/packages/fcl-fpcunit/src/testutils.pp
index 7f9440de6d..95c07c1b17 100644
--- a/packages/fcl-fpcunit/src/testutils.pp
+++ b/packages/fcl-fpcunit/src/testutils.pp
@@ -67,7 +67,7 @@ type
   PMethodNameRec = ^TMethodNameRec;
   TMethodNameRec = packed record
     name : pshortstring;
-    addr : pointer;
+    addr : codepointer;
   end;
 
   TMethodNameTable = packed record
@@ -80,15 +80,15 @@ type
 var
   methodTable : pMethodNameTable;
   i : dword;
-  vmt: TClass;
+  vmt: PVmt;
   idx: integer;
   pmr: PMethodNameRec;
 begin
   AList.Clear;
-  vmt := aClass;
+  vmt := PVmt(aClass);
   while assigned(vmt) do
   begin
-    methodTable := pMethodNameTable((Pointer(vmt) + vmtMethodTable)^);
+    methodTable := pMethodNameTable(vmt^.vMethodTable);
     if assigned(MethodTable) then
     begin
       pmr := @methodTable^.entries[0];
@@ -102,7 +102,7 @@ begin
         Inc(pmr);
       end;
     end;
-    vmt := pClass(pointer(vmt) + vmtParent)^;
+    vmt := vmt^.vParent;
   end;
 end;