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

* as 3.2.0 is now the oldest compiler we support we can now use {$push} {$pop} to reset the $minenumsize in the RTTI header

Browse Source 
git-svn-id: trunk@49403 -
This commit is contained in:
svenbarth 2021-05-27 05:43:01 +00:00
parent bae583118a
commit cb953f68c2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/rttih.inc
View File

@ -11,7 +11,7 @@
**********************************************************************} **********************************************************************}
{ sadly MinEnumSize is not handled by Push/Pop :'( } {$PUSH}
{$MINENUMSIZE 1 this saves a lot of memory } {$MINENUMSIZE 1 this saves a lot of memory }
type type
@ -26,7 +26,7 @@ type
tkDynArray,tkInterfaceRaw,tkProcVar,tkUString,tkUChar, tkDynArray,tkInterfaceRaw,tkProcVar,tkUString,tkUChar,
tkHelper,tkFile,tkClassRef,tkPointer); tkHelper,tkFile,tkClassRef,tkPointer);
{$MINENUMSIZE DEFAULT} {$POP}
const const
{ some Delphi-compatible aliases } { some Delphi-compatible aliases }