[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f28fa45be5c5e0562b546e2efb57010e0e94a131..f911670d4ec272b9f4ab5fdf15d7efa77f221071 100644 (file)
--- 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 a77b7311c7bbc8728ca9fcd0ed7d60af58f6028b..1ba8af121f4e4cfc259584c06625629f35f0bb54 100644 (file)
--- 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__)