From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 11 Feb 2021 22:36:30 +0000 (+0100)
Subject: [Ada] Minor consistency fix for Windows SEH
X-Git-Tag: basepoints/gcc-13~6844
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=472c84346799f4e0f04a22ce6958f5d4cbb69065;p=thirdparty%2Fgcc.git

[Ada] Minor consistency fix for Windows SEH

gcc/ada/

	* raise-gcc.c (__gnat_personality_seh0): Use PERSONALITY_FUNCTION.
---

diff --git a/gcc/ada/raise-gcc.c b/gcc/ada/raise-gcc.c
index 5c3adbdb3021..5fdd76fdccb1 100644
--- a/gcc/ada/raise-gcc.c
+++ b/gcc/ada/raise-gcc.c
@@ -1604,7 +1604,7 @@ __gnat_personality_seh0 (PEXCEPTION_RECORD ms_exc, void *this_frame,
 
   return
     _GCC_specific_handler (ms_exc, this_frame, ms_orig_context, ms_disp,
-			   __gnat_personality_imp);
+			   PERSONALITY_FUNCTION);
 }
 
 /* Define __gnat_personality_v0 for convenience */