diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2019-12-12 10:02:42 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-12-12 10:02:42 +0000 |
| commit | 4cd30bf7e5bff7a5d7c78b442d3658f4a95fc31a (patch) | |
| tree | edb376340bec4a22a0a0a82473ee734eb5cfa4e1 | |
| parent | 182c8b7d2d43c71c92736bc37fe2a17545aa7776 (diff) | |
| download | gcc-4cd30bf7e5bff7a5d7c78b442d3658f4a95fc31a.zip gcc-4cd30bf7e5bff7a5d7c78b442d3658f4a95fc31a.tar.gz gcc-4cd30bf7e5bff7a5d7c78b442d3658f4a95fc31a.tar.bz2 | |
[Ada] Define __gnat_personality_v0 for SEH
2019-12-12 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* raise-gcc.c (__gnat_personality_v0): Define for SEH.
From-SVN: r279290
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/raise-gcc.c | 13 |
2 files changed, 17 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f28fa45..f911670 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2019-12-12 Arnaud Charlet <charlet@adacore.com> + + * raise-gcc.c (__gnat_personality_v0): Define for SEH. + 2019-12-12 Gary Dismukes <dismukes@adacore.com> * exp_ch9.adb (Build_Protected_Entry): Analyze the block created diff --git a/gcc/ada/raise-gcc.c b/gcc/ada/raise-gcc.c index a77b731..1ba8af1 100644 --- a/gcc/ada/raise-gcc.c +++ b/gcc/ada/raise-gcc.c @@ -1599,6 +1599,19 @@ __gnat_personality_seh0 (PEXCEPTION_RECORD ms_exc, void *this_frame, __gnat_personality_imp); } +/* Define __gnat_personality_v0 for convenience */ + +PERSONALITY_STORAGE _Unwind_Reason_Code +__gnat_personality_v0 (version_arg_t version_arg, + phases_arg_t phases_arg, + _Unwind_Exception_Class uw_exception_class, + _Unwind_Exception *uw_exception, + _Unwind_Context *uw_context) +{ + return PERSONALITY_FUNCTION + (version_arg, phases_arg, uw_exception_class, uw_exception, uw_context); +} + #endif /* SEH */ #if !defined (__USING_SJLJ_EXCEPTIONS__) |