Procházet zdrojové kódy

* 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 před 10 roky
rodič
revize
80902035e0
2 změnil soubory, kde provedl 10 přidání a 5 odebrání
  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.
 *****************************************************************************}