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