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

* coop-threads.c (scm_call_with_new_thread, scm_spawn_thread,

Browse source 
scm_make_mutex, scm_make_condition_variable): Cast data to
scm_bits_t in SCM_SET_CELL_WORD and SCM_NEWSMOB macros.
This commit is contained in:
Mikael Djurfeldt 2000-03-29 10:52:07 +00:00
parent 64e3bf6c38
commit 7a8e7a6ce2
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/coop-threads.c
View file

@ -269,7 +269,7 @@ scm_call_with_new_thread (SCM argl)
argl variable may not exist in memory when the thread starts. */
t = coop_create (scheme_launch_thread, (void *) argl);
t->data = SCM_ROOT_STATE (root);
SCM_SET_CELL_WORD_1 (thread, t);
SCM_SET_CELL_WORD_1 (thread, (scm_bits_t) t);
scm_thread_count++;
/* Note that the following statement also could cause coop_yield.*/
SCM_ALLOW_INTS;
@ -360,7 +360,7 @@ scm_spawn_thread (scm_catch_body_t body, void *body_data,
t = coop_create (c_launch_thread, (void *) data);
t->data = SCM_ROOT_STATE (root);
SCM_SET_CELL_WORD_1 (thread, t);
SCM_SET_CELL_WORD_1 (thread, (scm_bits_t) t);
scm_thread_count++;
/* Note that the following statement also could cause coop_yield.*/
SCM_ALLOW_INTS;
@ -408,7 +408,7 @@ scm_make_mutex (void)
SCM m;
coop_m *data = (coop_m *) scm_must_malloc (sizeof (coop_m), "mutex");
SCM_NEWSMOB (m, scm_tc16_mutex, data);
SCM_NEWSMOB (m, scm_tc16_mutex, (scm_bits_t) data);
coop_mutex_init (data);
return m;
}
@ -439,7 +439,7 @@ scm_make_condition_variable (void)
{
SCM c;
coop_c *data = (coop_c *) scm_must_malloc (sizeof (coop_c), "condvar");
SCM_NEWSMOB (c, scm_tc16_condvar, data);
SCM_NEWSMOB (c, scm_tc16_condvar, (scm_bits_t) data);
coop_condition_variable_init (SCM_CONDVAR_DATA (c));
return c;
}