* give fields added for VMT definition of TP-style objects the same

    name as the equivalent fields for class VMTs, so we can access them
    using common code

git-svn-id: trunk@32763 -

compiler/nobj.pas

@@ -856,10 +856,10 @@ implementation
              ;
           odt_object:
             begin
-              { size, -size, parent vmt [, dmt ] }
-              vmtdef.add_field_by_def('',ptrsinttype);
-              vmtdef.add_field_by_def('',ptrsinttype);
-              vmtdef.add_field_by_def('',voidpointertype);
+              { size, -size, parent vmt [, dmt ] (same names as for class) }
+              vmtdef.add_field_by_def('vInstanceSize',ptrsinttype);
+              vmtdef.add_field_by_def('vInstanceSize2',ptrsinttype);
+              vmtdef.add_field_by_def('vParent',voidpointertype);
 {$ifdef WITHDMT}
               vmtdef.add_field_by_def('',voidpointertype);
 {$endif WITHDMT}