[PATCH] Add stack base support for Mac OS X

From: Heikki Lindholm <holindho@cs.helsinki.fi>
Subject: [PATCH] Add stack base support for Mac OS X
Date: Tue, 26 Dec 2006 12:41:38 +0200	[thread overview]
Message-ID: <4590FC62.1010507@cs.helsinki.fi> (raw)

[-- Attachment #1: Type: text/plain, Size: 201 bytes --]

This patch adds support for getting the stack base (and hence also 
scm_init_guile()) on OS X. Tested only in one particular case I needed. 
The patch is against the 1.8.1 release.

-- Heikki Lindholm

[-- Attachment #2: guile-1.8.1-MacOSX-stackbase-061226.patch --]
[-- Type: text/plain, Size: 886 bytes --]

--- ../guile-1.8.1.orig/libguile/threads.c	2006-07-29 21:00:17.000000000 +0300
+++ ./libguile/threads.c	2006-12-26 12:37:51.000000000 +0200
@@ -571,14 +571,17 @@
 }
 
 #if SCM_USE_PTHREAD_THREADS
-/* pthread_getattr_np not available on MacOS X and Solaris 10. */
-#if HAVE_PTHREAD_ATTR_GETSTACK && HAVE_PTHREAD_GETATTR_NP
+/* pthread_getattr_np not available on Solaris 10. */
+#if (HAVE_PTHREAD_ATTR_GETSTACK && HAVE_PTHREAD_GETATTR_NP) || defined(__APPLE__)
 
 #define HAVE_GET_THREAD_STACK_BASE
 
 static SCM_STACKITEM *
 get_thread_stack_base ()
 {
+#if defined(__APPLE__)
+  return pthread_get_stackaddr_np (pthread_self ());
+#else /* !defined(__APPLE__) */
   pthread_attr_t attr;
   void *start, *end;
   size_t size;
@@ -604,6 +607,7 @@
       return end;
 #endif
     }
+#endif /* defined(__APPLE__) */
 }
 
 #endif /* HAVE_PTHREAD_ATTR_GETSTACK && HAVE_PTHREAD_GETATTR_NP */

[-- Attachment #3: Type: text/plain, Size: 143 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel
