소스 검색

* 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.
 *****************************************************************************}