浏览代码

* 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 -

nickysn 11 年之前
父节点
当前提交
e1716c097d
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/objpash.inc

+ 1 - 1
rtl/inc/objpash.inc

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