summaryrefslogtreecommitdiff
path: root/libguile/coop-threads.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-29 10:52:07 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-29 10:52:07 +0000
commit7a8e7a6ce2c91fec11e301f9c297003c67dde8a7 (patch)
tree6eef5c82a73d3cc591baa59645758c3d9452c8e7 /libguile/coop-threads.c
parent64e3bf6c38350e856fd57b909e6f12dfa196fd0f (diff)
downloadguile-7a8e7a6ce2c91fec11e301f9c297003c67dde8a7.tar.gz
* coop-threads.c (scm_call_with_new_thread, scm_spawn_thread,
scm_make_mutex, scm_make_condition_variable): Cast data to scm_bits_t in SCM_SET_CELL_WORD and SCM_NEWSMOB macros.
Diffstat (limited to 'libguile/coop-threads.c')
-rw-r--r--libguile/coop-threads.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c
index f7f03a4f4..f8b6cc4ff 100644
--- a/libguile/coop-threads.c
+++ b/libguile/coop-threads.c
@@ -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;
}