From 4cd30bf7e5bff7a5d7c78b442d3658f4a95fc31a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 12 Dec 2019 10:02:42 +0000 Subject: [PATCH] [Ada] Define __gnat_personality_v0 for SEH 2019-12-12 Arnaud Charlet gcc/ada/ * raise-gcc.c (__gnat_personality_v0): Define for SEH. From-SVN: r279290 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/raise-gcc.c | 13 +++++++++++++ 2 files changed, 17 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f28fa45be5c..f911670d4ec 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2019-12-12 Arnaud Charlet + + * raise-gcc.c (__gnat_personality_v0): Define for SEH. + 2019-12-12 Gary Dismukes * 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 a77b7311c7b..1ba8af121f4 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__) -- 2.30.2