|
@@ -1595,6 +1595,14 @@ const
|
|
|
{$i setjumph.inc}
|
|
|
|
|
|
|
|
|
+{*****************************************************************************
|
|
|
+ RTTI support
|
|
|
+*****************************************************************************}
|
|
|
+
|
|
|
+{$ifdef FPC_HAS_FEATURE_RTTI}
|
|
|
+{$i rttih.inc}
|
|
|
+{$endif FPC_HAS_FEATURE_RTTI}
|
|
|
+
|
|
|
{*****************************************************************************
|
|
|
Object Pascal support
|
|
|
*****************************************************************************}
|
|
@@ -1611,14 +1619,6 @@ const
|
|
|
{$i varianth.inc}
|
|
|
{$endif FPC_HAS_FEATURE_VARIANTS}
|
|
|
|
|
|
-{*****************************************************************************
|
|
|
- RTTI support
|
|
|
-*****************************************************************************}
|
|
|
-
|
|
|
-{$ifdef FPC_HAS_FEATURE_RTTI}
|
|
|
-{$i rttih.inc}
|
|
|
-{$endif FPC_HAS_FEATURE_RTTI}
|
|
|
-
|
|
|
{*****************************************************************************
|
|
|
Internal helper routines support
|
|
|
*****************************************************************************}
|