diff options
| author | Tristan Gingold <gingold@adacore.com> | 2013-01-22 09:49:14 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2013-01-22 09:49:14 +0000 |
| commit | 48a24fcfc32ab00e84821c25af74252ff26b48b7 (patch) | |
| tree | f1a75b650264f804fa309fe17e6de3b9951c26e5 /gcc/ada/gcc-interface/gigi.h | |
| parent | 7ab53cfdf65cf05ea5c2aeaa6a0d7e27e94ff189 (diff) | |
| download | gcc-48a24fcfc32ab00e84821c25af74252ff26b48b7.zip gcc-48a24fcfc32ab00e84821c25af74252ff26b48b7.tar.gz gcc-48a24fcfc32ab00e84821c25af74252ff26b48b7.tar.bz2 | |
gigi.h (ADT_unhandled_except_decl, [...]): New.
* gcc-interface/gigi.h (ADT_unhandled_except_decl,
ADT_unhandled_others_decl): New.
(unhandled_others_decl, unhandled_except_decl): Define.
* gcc-interface/trans.c: Include common/common-target.h.
(gigi): Initialize them.
(Subprogram_Body_to_gnu): On SEH targets, wrap the body of the main
function in a try/catch clause.
From-SVN: r195364
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 1d0d2fb..6fc3f34 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2012, Free Software Foundation, Inc. * + * Copyright (C) 1992-2013, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -413,8 +413,10 @@ enum standard_datatypes ADT_reraise_zcx_decl, ADT_begin_handler_decl, ADT_end_handler_decl, + ADT_unhandled_except_decl, ADT_others_decl, ADT_all_others_decl, + ADT_unhandled_others_decl, ADT_LAST}; /* Define kind of exception information associated with raise statements. */ @@ -460,7 +462,9 @@ extern GTY(()) tree gnat_raise_decls_ext[(int) LAST_REASON_CODE + 1]; #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] +#define unhandled_others_decl gnat_std_decls[(int) ADT_unhandled_others_decl] #define end_handler_decl gnat_std_decls[(int) ADT_end_handler_decl] +#define unhandled_except_decl gnat_std_decls[(int) ADT_unhandled_except_decl] /* Routines expected by the gcc back-end. They must have exactly the same prototype and names as below. */ |