From a905304c94475f67c263b5f0012e3cda8feb41ca Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 20 Oct 2014 16:27:24 +0200 Subject: [multiple changes] 2014-10-20 Tristan Gingold * init.c (__gnat_is_stack_guard): Don't use mach_vm_region_recurse on arm-darwin. * raise-gcc.c: Add ATTRIBUTE_UNUSED to remove warnings for unused arguments. 2014-10-20 Hristian Kirtchev * sem_attr.adb (Analyze_Attribute): Replace variables CS and PS with Proc_Id and Subp_Id to better illustrate their purpose. Account for the case where _Postconditions has not been generated yet and the context is aspect/pragma Refined_Post. In that scenario the expected prefix of attribute 'Result is the current scope. 2014-10-20 Robert Dewar * par-ch4.adb (P_Expression): Handle extraneous comma/semicolon in middle of expression with logical operators. 2014-10-20 Robert Dewar * par-ch13.adb (Possible_Misspelled_Aspect): New function. 2014-10-20 Steve Baird * pprint.adb: Improve Expression_Image function. From-SVN: r216477 --- gcc/ada/init.c | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'gcc/ada/init.c') diff --git a/gcc/ada/init.c b/gcc/ada/init.c index ad80235..9a22905 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -2198,9 +2198,6 @@ __gnat_install_handler(void) #include #include #include -#include -#include -#include /* This must be in keeping with System.OS_Interface.Alternate_Stack_Size. */ char __gnat_alternate_stack[32 * 1024]; /* 1 * MINSIGSTKSZ */ @@ -2209,10 +2206,17 @@ char __gnat_alternate_stack[32 * 1024]; /* 1 * MINSIGSTKSZ */ Tell the kernel to re-use alt stack when delivering a signal. */ #define UC_RESET_ALT_STACK 0x80000000 +#ifndef __arm__ +#include +#include +#include +#endif + /* Return true if ADDR is within a stack guard area. */ static int __gnat_is_stack_guard (mach_vm_address_t addr) { +#ifndef __arm__ kern_return_t kret; vm_region_submap_info_data_64_t info; mach_vm_address_t start; @@ -2232,6 +2236,10 @@ __gnat_is_stack_guard (mach_vm_address_t addr) && info.user_tag == VM_MEMORY_STACK) return 1; return 0; +#else + /* Pagezero for arm. */ + return addr < 4096; +#endif } #define HAVE_GNAT_ADJUST_CONTEXT_FOR_RAISE -- cgit v1.1