* move properties and functions of TVMT to the end of the record, so that one only needs to adjust the total entry count TVMTBuilder.generate_vmt_def()

git-svn-id: trunk@34223 -

compiler/nobj.pas

@@ -843,7 +843,7 @@ implementation
                 including its virtual methods. We only want the non-method
                 fields, as the methods will be added automatically based on
                 the VMT we generated here only add the 12 first fields }
-              for i:=0 to 13 do
+              for i:=0 to 11 do
                 begin
                   sym:=tsym(trecorddef(systemvmt).symtable.SymList[i]);
                   if sym.typ in [procsym,propertysym] then

rtl/inc/objpash.inc

@@ -99,11 +99,6 @@
        PVmt = ^TVmt;
        PPVmt = ^PVmt;
        TVmt = record
-       private
-         function GetvParent: PVmt; inline;
-       public
-         property vParent: PVmt read GetvParent;
-       public
          vInstanceSize: SizeInt;
          vInstanceSize2: SizeInt;
          vParentRef: {$ifdef VER3_0}PVmt{$else}PPVmt{$endif};
@@ -129,6 +124,10 @@
          vEquals: CodePointer;
          vGetHashCode: CodePointer;
          vToString: CodePointer;
+       private
+         function GetvParent: PVmt; inline;
+       public
+         property vParent: PVmt read GetvParent;
        end;
 
        PGuid = ^TGuid;