1 /****************************************************************************
2  *                                                                          *
3  *                         GNAT COMPILER COMPONENTS                         *
4  *                                                                          *
5  *                                R A I S E                                 *
6  *                                                                          *
7  *                              C Header File                               *
8  *                                                                          *
9  *          Copyright (C) 1992-2012, Free Software Foundation, Inc.         *
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 3,  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.                                     *
17  *                                                                          *
18  * As a special exception under Section 7 of GPL version 3, you are granted *
19  * additional permissions described in the GCC Runtime Library Exception,   *
20  * version 3.1, as published by the Free Software Foundation.               *
21  *                                                                          *
22  * You should have received a copy of the GNU General Public License and    *
23  * a copy of the GCC Runtime Library Exception along with this program;     *
24  * see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    *
25  * <http://www.gnu.org/licenses/>.                                          *
26  *                                                                          *
27  * GNAT was originally developed  by the GNAT team at  New York University. *
28  * Extensive contributions were provided by Ada Core Technologies Inc.      *
29  *                                                                          *
30  ****************************************************************************/
31 
32 #ifdef __cplusplus
33 extern "C" {
34 #endif
35 
36 /* C counterparts of what System.Standard_Library defines.  */
37 
38 typedef unsigned Exception_Code;
39 
40 struct Exception_Data
41 {
42   char Not_Handled_By_Others;
43   char Lang;
44   int Name_Length;
45   char *Full_Name, *Htable_Ptr;
46   Exception_Code Import_Code;
47   void (*Raise_Hook)(void);
48 };
49 
50 typedef struct Exception_Data *Exception_Id;
51 
52 struct Exception_Occurrence;
53 
54 extern void _gnat_builtin_longjmp	(void *, int);
55 extern void __gnat_unhandled_terminate	(void);
56 extern void *__gnat_malloc		(__SIZE_TYPE__);
57 extern void __gnat_free			(void *);
58 extern void *__gnat_realloc		(void *, __SIZE_TYPE__);
59 extern void __gnat_finalize		(void);
60 extern void set_gnat_exit_status	(int);
61 extern void __gnat_set_globals		(void);
62 extern void __gnat_initialize		(void *);
63 extern void __gnat_init_float		(void);
64 extern void __gnat_install_handler	(void);
65 extern void __gnat_install_SEH_handler  (void *);
66 extern void __gnat_adjust_context_for_raise (int, void *);
67 
68 extern int gnat_exit_status;
69 
70 #ifdef __cplusplus
71 }
72 #endif
73