* set the vmtParent constant according to sizeof(SizeInt) instead of

  SizeOf(ptruint), because the +size and -size fields are of type SizeInt and
  not ptruint or pointer.

git-svn-id: trunk@27540 -

rtl/inc/objpash.inc

@@ -31,7 +31,7 @@
 
     const
        vmtInstanceSize         = 0;
-       vmtParent               = sizeof(ptruint)*2;
+       vmtParent               = sizeof(SizeInt)*2;
        { These were negative value's, but are now positive, else classes
          couldn't be used with shared linking which copies only all data from
          the .global directive and not the data before the directive (PFV) }