]>
Commit | Line | Data |
---|---|---|
19235870 RK |
1 | /**************************************************************************** |
2 | * * | |
3 | * GNAT COMPILER COMPONENTS * | |
4 | * * | |
5 | * R A I S E * | |
6 | * * | |
7 | * C Header File * | |
8 | * * | |
fbf5a39b | 9 | * Copyright (C) 1992-2002, Free Software Foundation, Inc. * |
19235870 RK |
10 | * * |
11 | * GNAT is free software; you can redistribute it and/or modify it under * | |
12 | * terms of the GNU General Public License as published by the Free Soft- * | |
13 | * ware Foundation; either version 2, or (at your option) any later ver- * | |
14 | * sion. GNAT is distributed in the hope that it will be useful, but WITH- * | |
15 | * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY * | |
16 | * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * | |
17 | * for more details. You should have received a copy of the GNU General * | |
18 | * Public License distributed with GNAT; see file COPYING. If not, write * | |
19 | * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, * | |
20 | * MA 02111-1307, USA. * | |
21 | * * | |
22 | * As a special exception, if you link this file with other files to * | |
23 | * produce an executable, this file does not by itself cause the resulting * | |
24 | * executable to be covered by the GNU General Public License. This except- * | |
25 | * ion does not however invalidate any other reasons why the executable * | |
26 | * file might be covered by the GNU Public License. * | |
27 | * * | |
28 | * GNAT was originally developed by the GNAT team at New York University. * | |
71ff80dc | 29 | * Extensive contributions were provided by Ada Core Technologies Inc. * |
19235870 RK |
30 | * * |
31 | ****************************************************************************/ | |
32 | ||
33 | struct Exception_Data | |
fbf5a39b | 34 | { |
19235870 RK |
35 | char Handled_By_Others; |
36 | char Lang; | |
37 | int Name_Length; | |
38 | char *Full_Name, Htable_Ptr; | |
39 | int Import_Code; | |
40 | }; | |
41 | ||
42 | typedef struct Exception_Data *Exception_Id; | |
43 | ||
44 | struct Exception_Occurrence | |
45 | { | |
46 | int Max_Length; | |
47 | Exception_Id Id; | |
48 | int Msg_Length; | |
07fc65c4 | 49 | char Msg[0]; |
19235870 RK |
50 | }; |
51 | ||
52 | typedef struct Exception_Occurrence *Exception_Occurrence_Access; | |
53 | ||
54 | extern void _gnat_builtin_longjmp PARAMS ((void *, int)); | |
55 | extern void __gnat_unhandled_terminate PARAMS ((void)); | |
56 | extern void *__gnat_malloc PARAMS ((__SIZE_TYPE__)); | |
57 | extern void __gnat_free PARAMS ((void *)); | |
58 | extern void *__gnat_realloc PARAMS ((void *, __SIZE_TYPE__)); | |
59 | extern void __gnat_finalize PARAMS ((void)); | |
60 | extern void set_gnat_exit_status PARAMS ((int)); | |
fbf5a39b | 61 | extern void __gnat_set_globals PARAMS ((int, int, |
07fc65c4 | 62 | char, char, char, char, |
fbf5a39b AC |
63 | char *, char *, |
64 | int, int, int, int)); | |
19235870 RK |
65 | extern void __gnat_initialize PARAMS ((void)); |
66 | extern void __gnat_init_float PARAMS ((void)); | |
67 | extern void __gnat_install_handler PARAMS ((void)); | |
68 | ||
69 | extern int gnat_exit_status; |