From a9bbfbd052c4a6572ec8c46149549e046f7e0ed1 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 20 Oct 2014 16:11:43 +0200 Subject: [multiple changes] 2014-10-20 Arnaud Charlet * set_targ.adb (Write_Target_Dependent_Values, Write_Line): Fix calling C APIs with no trailing NUL char by calling better wrappers instead. 2014-10-20 Tristan Gingold * gnat_ugn.texi: Document that gdb users must be in group _developer on mac os. 2014-10-20 Arnaud Charlet * a-tgdico.ads: Fix typo. 2014-10-20 Ed Schonberg * exp_aggr.adb (Convert_To_Assignments): Do not create a transient scope for a component whose type requires it, if the context is an initialization procedure, because the target of the assignment must be visible outside of the block. 2014-10-20 Tristan Gingold * tracebak.c: Define PC_ADJUST for arm-darwin. * env.c: Remove darwin specific code. * raise-gcc.c (__gnat_Unwind_ForcedUnwind): Error on arm-darwin. 2014-10-20 Ed Schonberg * sem_ch3.adb (Analyze_Full_Type_Declaration): If previous view is incomplete rather than private, and full type declaration has aspects, analyze aspects on the full view rather than the incomplete view, to prevent freezing anomalies with the class-wide type. From-SVN: r216470 --- gcc/ada/raise-gcc.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gcc/ada/raise-gcc.c') diff --git a/gcc/ada/raise-gcc.c b/gcc/ada/raise-gcc.c index 747a9de..507412b 100644 --- a/gcc/ada/raise-gcc.c +++ b/gcc/ada/raise-gcc.c @@ -1384,7 +1384,14 @@ __gnat_Unwind_ForcedUnwind (_Unwind_Exception *e, void *argument) { #ifdef __USING_SJLJ_EXCEPTIONS__ + +# if defined (__APPLE__) && defined (__arm__) + /* There is not ForcedUnwind routine in ios system library. */ + return _URC_FATAL_PHASE1_ERROR; +# else return _Unwind_SjLj_ForcedUnwind (e, handler, argument); +# endif + #else return _Unwind_ForcedUnwind (e, handler, argument); #endif -- cgit v1.1