Pārlūkot izejas kodu

* 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 10 gadi atpakaļ
vecāks
revīzija
80902035e0
2 mainītis faili ar 10 papildinājumiem un 5 dzēšanām
  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.
 *****************************************************************************}