Browse Source

* move RTTI header include above ObjPas header include

git-svn-id: trunk@37426 -
svenbarth 7 years ago
parent
commit
fe95d73fe5
1 changed files with 8 additions and 8 deletions
  1. 8 8
      rtl/inc/systemh.inc

+ 8 - 8
rtl/inc/systemh.inc

@@ -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
 *****************************************************************************}