paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 03:41:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set up $MinEnumSize and $PackSet so that it matches the compiler's settings for types added in the future

Browse Source 
git-svn-id: trunk@39254 -
This commit is contained in:
svenbarth 2018-06-20 19:00:14 +00:00
parent 61bde67082
commit eb06ac8ce8
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/rttidecl.inc
View File

@ -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}