paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:28:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TRttiDataCommon is required outside of the RTTI and DynArray include files as well

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

25
rtl/inc/system.inc
View File

@ -458,6 +458,18 @@ function aligntoqword(p : pointer) : pointer;inline;
end;
{$if not defined(VER3_0) and not defined(VER3_2)}
type
TRttiDataCommon =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif}
record
Attrs: Pointer;
end;
{$endif not VER3_0 and not VER3_2}
{****************************************************************************
Subroutines for String handling
****************************************************************************}
@ -488,19 +500,6 @@ function aligntoqword(p : pointer) : pointer;inline;
Run-Time Type Information (RTTI) declarations
****************************************************************************}
{$if defined(FPC_HAS_FEATURE_RTTI) or defined(FPC_HAS_FEATURE_DYNARRAYS)}
{$if not defined(VER3_0) and not defined(VER3_2)}
type
TRttiDataCommon =
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif}
record
Attrs: Pointer;
end;
{$endif not VER3_0 and not VER3_2}
{$endif FPC_HAS_FEATURE_RTTI or FPC_HAS_FEATURE_DYNARRAYS}
{$ifdef FPC_HAS_FEATURE_RTTI}
{$i rttidecl.inc}
{$endif FPC_HAS_FEATURE_RTTI}