From 5d9ddf99d43d295eb5d1ca70698013ea78188e3b Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Mon, 10 Sep 2018 20:57:04 +0000
Subject: [PATCH] * use SizeInt instead of LongInt for the size fields of the
 VMT to match what the compiler generates for non-32-bit targets

git-svn-id: trunk@39727 -
---
 packages/rtl-extra/src/inc/objects.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-extra/src/inc/objects.pp b/packages/rtl-extra/src/inc/objects.pp
index 7a21de7315..c138b148a0 100644
--- a/packages/rtl-extra/src/inc/objects.pp
+++ b/packages/rtl-extra/src/inc/objects.pp
@@ -1013,7 +1013,7 @@ TYPE
    PVMT=^VMT;
    PPVMT=^PVMT;
    VMT=RECORD
-     Size,NegSize:Longint;
+     Size,NegSize:SizeInt;
      ParentLink:PPVMT;
    END;
 VAR SP:PPVMT; Q:PVMT;