From 80902035e023eb0f9b0a906f8416a9a67f8dc2ab Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 25 Oct 2015 19:21:54 +0000
Subject: [PATCH]   * 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 -
---
 rtl/inc/system.inc  |  5 -----
 rtl/inc/systemh.inc | 10 ++++++++++
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 5108e9d82a..b81c181310 100644
--- a/rtl/inc/system.inc
+++ b/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. }
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index d94fb7cacd..6b74b96a7a 100644
--- a/rtl/inc/systemh.inc
+++ b/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.
 *****************************************************************************}