فهرست منبع

* Tenum_typedata needs to include the Common record as well

git-svn-id: trunk@42438 -
svenbarth 6 سال پیش
والد
کامیت
c0da39a35d
1فایلهای تغییر یافته به همراه3 افزوده شده و 0 حذف شده
  1. 3 0
      rtl/inc/sstrings.inc

+ 3 - 0
rtl/inc/sstrings.inc

@@ -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: (