git://gcc.gnu.org / gcc.git / blame
| 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; |