From e1716c097d5604bf4e49c9fa01b7ad6cd2e1fe44 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 11 Apr 2014 23:10:04 +0000
Subject: [PATCH] * 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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index c03a0f79f5..9227d01e89 100644
--- a/rtl/inc/objpash.inc
+++ b/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) }