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

* coop-defs.h, coop-threads.c (struct coop_t): Eliminate

Browse source 
`sto'-field when GUILE_PTHREAD_COMPAT is enabled.
This commit is contained in:
Mikael Djurfeldt 2000-03-30 23:18:39 +00:00
parent 843524cc20
commit 21aab5c929
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/coop-threads.c
View file

@ -69,7 +69,9 @@ scm_threads_init (SCM_STACKITEM *i)
scm_thread_count = 1; scm_thread_count = 1;
#ifndef GUILE_PTHREAD_COMPAT
coop_global_main.sto = i; coop_global_main.sto = i;
#endif
coop_global_main.base = i; coop_global_main.base = i;
coop_global_curr = &coop_global_main; coop_global_curr = &coop_global_main;
coop_all_qput (&coop_global_allq, coop_global_curr); coop_all_qput (&coop_global_allq, coop_global_curr);