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

* threads.c (scm_thread): Removed filed joining_threads.

Browse source 
(thread_print): Print thread number as well as address of thread
structure.
This commit is contained in:
Mikael Djurfeldt 2002-12-16 10:33:49 +00:00
parent dea5539eec
commit 1b92fb6b4d
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,5 +1,9 @@
2002-12-16 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* threads.c (scm_thread): Removed filed joining_threads.
(thread_print): Print thread number as well as address of thread
structure.
* pthread-threads.c, pthread-threads.h, threads.c: Fixes to
pthread "native" recursive mutex support.

8
libguile/threads.c
View file

@ -136,8 +136,6 @@ struct scm_thread {
SCM result;
int exited;
SCM joining_threads;
/* For keeping track of the stack and registers. */
SCM_STACKITEM *base;
SCM_STACKITEM *top;
@ -155,7 +153,6 @@ make_thread (SCM creation_protects)
t->handle = z;
t->result = creation_protects;
t->base = NULL;
t->joining_threads = make_queue ();
scm_i_plugin_cond_init (&t->sleep_cond, 0);
scm_i_plugin_mutex_init (&t->heap_mutex, &scm_i_plugin_mutex);
t->clear_freelists_p = 0;
@ -178,7 +175,6 @@ thread_mark (SCM obj)
{
scm_thread *t = SCM_THREAD_DATA (obj);
scm_gc_mark (t->result);
scm_gc_mark (t->joining_threads);
return t->root->handle; /* mark root-state of this thread */
}
@ -187,8 +183,10 @@ thread_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_thread *t = SCM_THREAD_DATA (exp);
scm_puts ("#<thread ", port);
scm_intprint ((unsigned long)t->thread, 10, port);
scm_puts (" (", port);
scm_intprint ((unsigned long)t, 16, port);
scm_putc ('>', port);
scm_puts (")>", port);
return 1;
}