Tell `libgc' that we're using POSIX threads. This fixes Guile on PPC.

* libguile/coop-defs.h: If `GUILE_PTHREAD_COMPAT' is defined, then define
  `GC_THREADS' and include <gc/gc.h> after <pthread.h>.

* libguile/coop-pthreads.h: Likewise.

* libguile/pthread-threads.h: Likewise.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-10

diff --git a/libguile/coop-defs.h b/libguile/coop-defs.h
index a5ef533..7b06cce 100644 (file)
--- a/libguile/coop-defs.h
+++ b/libguile/coop-defs.h
@@ -30,7 +30,10 @@
 #endif
 
 #ifdef GUILE_PTHREAD_COMPAT
-#include <pthread.h>
+# include <pthread.h>
+
+# define GC_THREADS 1
+# include <gc/gc.h>
 #endif
 
 /* This file is included by threads.h, which, in turn, is included by

diff --git a/libguile/coop-pthreads.h b/libguile/coop-pthreads.h
index 9134874..a82f124 100644 (file)
--- a/libguile/coop-pthreads.h
+++ b/libguile/coop-pthreads.h
@@ -29,6 +29,9 @@
 
 #include <pthread.h>
 
+#define GC_THREADS 1
+#include <gc/gc.h>
+
 #include "libguile/iselect.h"
 
 #if (SCM_ENABLE_DEPRECATED == 1)

diff --git a/libguile/pthread-threads.h b/libguile/pthread-threads.h
index 06e735f..e2ee7b2 100644 (file)
--- a/libguile/pthread-threads.h
+++ b/libguile/pthread-threads.h
@@ -28,6 +28,10 @@
 #include <pthread.h>
 #include <sched.h>
 
+/* `libgc' intercepts pthread calls by defining wrapping macros.  */
+#define GC_THREADS 1
+#include <gc/gc.h>
+
 /* Threads 
 */
 #define scm_i_pthread_t                     pthread_t