paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 04:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved excepth.inc include from the system unit implementation to interface

Browse Source 
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 -
This commit is contained in:
Jonas Maebe 2015-10-25 19:21:54 +00:00
parent 8c90941d89
commit 80902035e0
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/system.inc
View File

@ -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
rtl/inc/systemh.inc
View File

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