aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorKai Tietz <ktietz@redhat.com>2013-04-23 21:17:29 +0200
committerKai Tietz <ktietz@gcc.gnu.org>2013-04-23 21:17:29 +0200
commit4a8043c4e02c8c2517424722ba3055a159b93e87 (patch)
tree08512fd8352b43f943aa0e2f706096c2bc447e7f /gcc/ada
parentd70a81dddc916c55892c5b73bed2138b71bd5945 (diff)
downloadgcc-4a8043c4e02c8c2517424722ba3055a159b93e87.zip
gcc-4a8043c4e02c8c2517424722ba3055a159b93e87.tar.gz
gcc-4a8043c4e02c8c2517424722ba3055a159b93e87.tar.bz2
re PR target/55445 (Always defined __SEH__ when build from trunk)
PR target/55445 * raise-gcc.c (__SEH__): Additional check that SjLj isn't active. From-SVN: r198205
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog6
-rw-r--r--gcc/ada/raise-gcc.c6
2 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 3992484..0e2a7e9 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2013-04-23 Kai Tietz <ktietz@redhat.com>
+
+ PR target/55445
+ * raise-gcc.c (__SEH__): Additional check that
+ SjLj isn't active.
+
2013-04-23 Eric Botcazou <ebotcazou@adacore.com>
Pascal Obry <obry@adacore.com>
diff --git a/gcc/ada/raise-gcc.c b/gcc/ada/raise-gcc.c
index 42c5a5c..a428642 100644
--- a/gcc/ada/raise-gcc.c
+++ b/gcc/ada/raise-gcc.c
@@ -1019,7 +1019,7 @@ extern void __gnat_notify_unhandled_exception (struct Exception_Occurrence *);
#ifdef __USING_SJLJ_EXCEPTIONS__
#define PERSONALITY_FUNCTION __gnat_personality_sj0
-#elif defined(__SEH__)
+#elif defined (__SEH__)
#define PERSONALITY_FUNCTION __gnat_personality_imp
#else
#define PERSONALITY_FUNCTION __gnat_personality_v0
@@ -1056,7 +1056,7 @@ typedef int version_arg_t;
typedef _Unwind_Action phases_arg_t;
#endif
-#ifdef __SEH__
+#if defined (__SEH__) && !defined (__USING_SJLJ_EXCEPTIONS__)
static
#endif
_Unwind_Reason_Code
@@ -1222,7 +1222,7 @@ __gnat_Unwind_ForcedUnwind (_Unwind_Exception *e,
#endif
}
-#ifdef __SEH__
+#if defined (__SEH__) && !defined (__USING_SJLJ_EXCEPTIONS__)
#define STATUS_USER_DEFINED (1U << 29)