فهرست منبع

* 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 سال پیش
والد
کامیت
80902035e0
2فایلهای تغییر یافته به همراه10 افزوده شده و 5 حذف شده
  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.
 *****************************************************************************}