From 1a8fdd7e12a7248ea51b1292bd350b708538d95a Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Thu, 10 Mar 2005 18:06:54 +0000
Subject: [PATCH] (scm_i_thread): Added gc_running_p field. (guilify_self_1):
 Initialize it.

---
 libguile/threads.c | 1 +
 libguile/threads.h | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/libguile/threads.c b/libguile/threads.c
index 5d1390941..8b394584e 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -300,6 +300,7 @@ guilify_self_1 (SCM_STACKITEM *base)
   pipe (t->sleep_pipe);
   scm_i_pthread_mutex_init (&t->heap_mutex, NULL);
   t->clear_freelists_p = 0;
+  t->gc_running_p = 0;
   t->exited = 0;
 
   t->freelist = SCM_EOL;
diff --git a/libguile/threads.h b/libguile/threads.h
index 3e16fbbcd..89a701075 100644
--- a/libguile/threads.h
+++ b/libguile/threads.h
@@ -69,6 +69,8 @@ typedef struct scm_i_thread {
   */
   SCM freelist, freelist2;
   int clear_freelists_p; /* set if GC was done while thread was asleep */
+  int gc_running_p;      /* non-zero while this thread does GC or a
+			    sweep. */
 
   /* Other thread local things.
    */