1{
2    This file is part of the Free Pascal run time library.
3    Copyright (c) 1999-2000 by Michael Van Canneyt
4    member of the Free Pascal development team
5
6    See the file COPYING.FPC, included in this distribution,
7    for details about the copyright.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
12
13 **********************************************************************}
14
15Const
16  { Type of exception. Currently only one. }
17  FPC_EXCEPTION   = 1;
18
19  { types of frames for the exception address stack }
20  cExceptionFrame = 1;
21  cFinalizeFrame  = 2;
22
23Type
24  PExceptAddr = ^TExceptAddr;
25  TExceptAddr = record
26    buf       : pjmp_buf;
27    next      : PExceptAddr;
28{$ifdef CPU16}
29    frametype : Smallint;
30{$else CPU16}
31    frametype : Longint;
32{$endif CPU16}
33  end;
34
35Const
36  CatchAllExceptions = PtrInt(-1);
37
38