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

* Tenum_typedata needs to include the Common record as well

Browse Source 
git-svn-id: trunk@42438 -
This commit is contained in:
svenbarth 2019-07-13 14:38:24 +00:00
parent 55dfb59631
commit c0da39a35d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/sstrings.inc
View File

@ -523,6 +523,9 @@ type
{$packrecords c} {$packrecords c}
Penum_typedata=^Tenum_typedata; Penum_typedata=^Tenum_typedata;
Tenum_typedata={$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}packed{$endif}record Tenum_typedata={$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}packed{$endif}record
{$if declared(TRttiDataCommon)}
Common: TRttiDataCommon;
{$endif}
ordtype:byte; ordtype:byte;
case TTypeKind of case TTypeKind of
tkInteger,tkChar,tkEnumeration,tkBool,tkWChar,tkSet: ( tkInteger,tkChar,tkEnumeration,tkBool,tkWChar,tkSet: (