From eb06ac8ce8af1610557a5244e1f4d6d2753a5bfe Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Wed, 20 Jun 2018 19:00:14 +0000
Subject: [PATCH] * set up $MinEnumSize and $PackSet so that it matches the
 compiler's settings for types added in the future

git-svn-id: trunk@39254 -
---
 rtl/inc/rttidecl.inc | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/rtl/inc/rttidecl.inc b/rtl/inc/rttidecl.inc
index b120ac3364..32d1a3ff40 100644
--- a/rtl/inc/rttidecl.inc
+++ b/rtl/inc/rttidecl.inc
@@ -23,6 +23,16 @@
   {$define USE_PACKED}
 {$endif}
 
+{$ifndef VER3_0}
+{ 3.1.1 and newer also (re)stores $MinEnumSize and $PackSet upon $Push/$Pop }
+{$push}
+{$endif}
+
+{$MINENUMSIZE 1   this saves a lot of memory }
+{$ifdef FPC_RTTI_PACKSET1}
+{ for Delphi compatibility }
+{$packset 1}
+{$endif}
 
 type
   PTypeKind = ^TTypeKind;
@@ -118,3 +128,10 @@ type
     Dims:array[0..255] of Pointer;
   end;
 
+
+{$ifdef VER3_0}
+{$MINENUMSIZE DEFAULT}
+{$PACKSET DEFAULT}
+{$else}
+{$pop}
+{$endif}