mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

(scm_i_thread): Added gc_running_p field.

Browse source 
(guilify_self_1): Initialize it.
This commit is contained in:
Marius Vollmer 2005-03-10 18:06:54 +00:00
parent fc240b46e9
commit 1a8fdd7e12
2 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/threads.c
View file

@ -300,6 +300,7 @@ guilify_self_1 (SCM_STACKITEM *base)
pipe (t->sleep_pipe); pipe (t->sleep_pipe);
scm_i_pthread_mutex_init (&t->heap_mutex, NULL); scm_i_pthread_mutex_init (&t->heap_mutex, NULL);
t->clear_freelists_p = 0; t->clear_freelists_p = 0;
t->gc_running_p = 0;
t->exited = 0; t->exited = 0;
t->freelist = SCM_EOL; t->freelist = SCM_EOL;

2
libguile/threads.h
View file

@ -69,6 +69,8 @@ typedef struct scm_i_thread {
*/ */
SCM freelist, freelist2; SCM freelist, freelist2;
int clear_freelists_p; /* set if GC was done while thread was asleep */ 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. /* Other thread local things.
*/ */