From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 12 Dec 2019 10:02:42 +0000 (+0000)
Subject: [Ada] Define __gnat_personality_v0 for SEH
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4cd30bf7e5bff7a5d7c78b442d3658f4a95fc31a;p=gcc.git

[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 f28fa45be5c..f911670d4ec 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 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__)