Browse Source

* moved excepth.inc include from the system unit implementation to interface
so that we can still find the type definitions in it once we don't store
the entire implementation symtable to the ppu anymore

git-svn-id: trunk@32151 -

Jonas Maebe 9 years ago
parent
commit
80902035e0
2 changed files with 10 additions and 5 deletions
  1. 0 5
      rtl/inc/system.inc
  2. 10 0
      rtl/inc/systemh.inc

+ 0 - 5
rtl/inc/system.inc

@@ -12,11 +12,6 @@
 
  **********************************************************************}
 
-{ contains the definition of the TExceptAddr type, which is required
-  by the compiler to generate code for any routine containing
-  implicit or explicit exceptions }
-{$i excepth.inc}
-
 { ObjpasInt is the integer type, equivalent to Objpas.Integer (the Integer
   type in ObjFpc and Delphi modes). It is defined here for use in the
   implementation part of the System unit. }

+ 10 - 0
rtl/inc/systemh.inc

@@ -1579,6 +1579,16 @@ const
 
 {$i resh.inc}
 
+
+{*****************************************************************************
+                          Exception support
+*****************************************************************************}
+
+{ contains the definition of the TExceptAddr type, which is required
+  by the compiler to generate code for any routine containing
+  implicit or explicit exceptions }
+{$i excepth.inc}
+
 {*****************************************************************************
                    FPDoc phony declarations.
 *****************************************************************************}