* use sizesinttype instead of ptrsinttype to refer to vInstanceSize and

  vInstanceSize2 in the VMT

git-svn-id: trunk@34623 -

compiler/ncgvmt.pas

@@ -1134,8 +1134,8 @@ implementation
 
          { determine the size with symtable.datasize, because }
          { size gives back 4 for classes                    }
-         tcb.emit_ord_const(tObjectSymtable(_class.symtable).datasize,ptrsinttype);
-         tcb.emit_ord_const(-int64(tObjectSymtable(_class.symtable).datasize),ptrsinttype);
+         tcb.emit_ord_const(tObjectSymtable(_class.symtable).datasize,sizesinttype);
+         tcb.emit_ord_const(-int64(tObjectSymtable(_class.symtable).datasize),sizesinttype);
 {$ifdef WITHDMT}
          if _class.classtype=ct_object then
            begin

compiler/nobj.pas

@@ -859,8 +859,8 @@ implementation
           odt_object:
             begin
               { 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('vInstanceSize',sizesinttype);
+              vmtdef.add_field_by_def('vInstanceSize2',sizesinttype);
               vmtdef.add_field_by_def('vParent',voidpointertype);
 {$ifdef WITHDMT}
               vmtdef.add_field_by_def('',voidpointertype);