diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 14:36:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 14:36:42 +0200 |
| commit | 624e168838b4e0b8c9ba2533f517f1b779dc004d (patch) | |
| tree | f7c5ca8db216291bd55022a059465e477bf6818e /gcc/ada/gcc-interface/gigi.h | |
| parent | 7134062aa9c1264d1dd9f1aca0a433f3586b79c9 (diff) | |
| download | gcc-624e168838b4e0b8c9ba2533f517f1b779dc004d.zip gcc-624e168838b4e0b8c9ba2533f517f1b779dc004d.tar.gz gcc-624e168838b4e0b8c9ba2533f517f1b779dc004d.tar.bz2 | |
[multiple changes]
2011-08-29 Gary Dismukes <dismukes@adacore.com>
* exp_ch3.adb (Build_Record_Init_Proc.Build_Init_Procedure): Set
Exception_Handlers to No_List instead of Empty_List in the case where
there are no handlers.
2011-08-29 Tristan Gingold <gingold@adacore.com>
* gcc-interface/gigi.h (enum standard_datatypes): Add
ADT_reraise_zcx_decl
(reraise_zcx_decl): New macro.
* gcc-interface/trans.c (gnu_incoming_exc_ptr): New variable.
(gigi): Set reraise_zcx_decl.
(Exception_Handler_to_gnu_zcx): Save and restore gnu_incoming_exc_ptr.
(gnat_to_gnu): Handle N_Raise_Statement.
From-SVN: r178212
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 04c0825..dbe2dc4 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -377,6 +377,7 @@ enum standard_datatypes ADT_longjmp_decl, ADT_update_setjmp_buf_decl, ADT_raise_nodefer_decl, + ADT_reraise_zcx_decl, ADT_begin_handler_decl, ADT_end_handler_decl, ADT_others_decl, @@ -422,6 +423,7 @@ extern GTY(()) tree gnat_raise_decls_ext[(int) LAST_REASON_CODE + 1]; #define longjmp_decl gnat_std_decls[(int) ADT_longjmp_decl] #define update_setjmp_buf_decl gnat_std_decls[(int) ADT_update_setjmp_buf_decl] #define raise_nodefer_decl gnat_std_decls[(int) ADT_raise_nodefer_decl] +#define reraise_zcx_decl gnat_std_decls[(int) ADT_reraise_zcx_decl] #define begin_handler_decl gnat_std_decls[(int) ADT_begin_handler_decl] #define others_decl gnat_std_decls[(int) ADT_others_decl] #define all_others_decl gnat_std_decls[(int) ADT_all_others_decl] |