init.c (__gnat_is_stack_guard): Do not use mach calls for IOS simulator.

2015-11-25  Tristan Gingold  <gingold@adacore.com>

	* init.c (__gnat_is_stack_guard): Do not use mach calls for
	IOS simulator.

From-SVN: r230874

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e5c24418f606e82585a43b27437f76bb446da00d..64c43fb3dadffa1e40ca48147e65dc471f8fce39 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2015-11-25  Tristan Gingold  <gingold@adacore.com>
+
+       * init.c (__gnat_is_stack_guard): Do not use mach calls for
+       IOS simulator.
+
 2015-11-24  Pierre-Marie de Rodat  <derodat@adacore.com>
 
        * gcc-interface/utils.c (gnat_write_global_declarations): Output
@@ -1241,8 +1246,6 @@
        (gnat_write_global_declarations): Output debugging information
        for top-level imported declarations.
 
-2015-11-12  Emmanuel Briot  <briot@adacore.com>
-
 2015-11-12  Emmanuel Briot  <briot@adacore.com>
 
        * s-os_lib.ads: Documentation update.

diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index 4f7341e4e798272adf9003f7ce2bbe706bb1343e..57b02a1475d2f31f5b442b19fb03b64adfd193b5 100644 (file)
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -2276,6 +2276,7 @@ __gnat_install_handler (void)
 
 #elif defined(__APPLE__)
 
+#include <TargetConditionals.h>
 #include <signal.h>
 #include <stdlib.h>
 #include <sys/syscall.h>
@@ -2288,7 +2289,7 @@ 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
 
-#if !(defined (__arm__) || defined (__arm64__))
+#if !(defined (__arm__) || defined (__arm64__) || TARGET_IPHONE_SIMULATOR)
 #include <mach/mach_vm.h>
 #include <mach/mach_init.h>
 #include <mach/vm_statistics.h>
@@ -2303,7 +2304,7 @@ char __gnat_alternate_stack[32 * 1024]; /* 1 * MINSIGSTKSZ */
 static int
 __gnat_is_stack_guard (mach_vm_address_t addr)
 {
-#if !(defined (__arm__) || defined (__arm64__))
+#if !(defined (__arm__) || defined (__arm64__) || TARGET_IPHONE_SIMULATOR)
   kern_return_t kret;
   vm_region_submap_info_data_64_t info;
   mach_vm_address_t start;