summaryrefslogtreecommitdiff
path: root/libguile/mit-pthreads.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>1999-12-19 18:24:12 +0000
committerGreg J. Badros <gjb@cs.washington.edu>1999-12-19 18:24:12 +0000
commitbccab498116d003c470ca90bdd06ad112a2ccd7f (patch)
treef487ab0a5436563620da84447c18ca3af0daa43e /libguile/mit-pthreads.c
parent30939477457667b1307de3d2d3251bcd188ebf1b (diff)
downloadguile-bccab498116d003c470ca90bdd06ad112a2ccd7f.tar.gz
* threads.c, mit-pthreads.c, list.c, coop.c: Remove K&R
prototypes; just use ANSI C prototypes. I'm not sure how mit-pthreads.c ever compiled -- it still doesn't for me, but the normal make procedure does not try to build it anyway (even --with-threads I get the other threads code building) so I'm not too worried about it.
Diffstat (limited to 'libguile/mit-pthreads.c')
-rw-r--r--libguile/mit-pthreads.c93
1 files changed, 0 insertions, 93 deletions
diff --git a/libguile/mit-pthreads.c b/libguile/mit-pthreads.c
index a365561e5..7a8d4e7fe 100644
--- a/libguile/mit-pthreads.c
+++ b/libguile/mit-pthreads.c
@@ -56,41 +56,23 @@ static queue infos = { &infos, &infos }; /* the dequeue of info structures */
/* Key to thread specific data */
pthread_key_t info_key;
-#ifdef __STDC__
size_t
scm_threads_free_thread (SCM t)
-#else
-size_t
-scm_threads_free_thread (t)
- SCM t;
-#endif
{
scm_must_free (SCM_THREAD_DATA (t));
return sizeof (pthread_t);
}
-#ifdef __STDC__
size_t
scm_threads_free_mutex (SCM m)
-#else
-size_t
-scm_threads_free_mutex (m)
- SCM m;
-#endif
{
pthread_mutex_destroy (SCM_MUTEX_DATA (m));
scm_must_free (SCM_MUTEX_DATA (m));
return sizeof (pthread_mutex_t);
}
-#ifdef __STDC__
size_t
scm_threads_free_condvar (SCM c)
-#else
-size_t
-scm_threads_free_condvar (c)
- SCM c;
-#endif
{
pthread_cond_destroy (SCM_CONDVAR_DATA (c));
scm_must_free (SCM_CONDVAR_DATA (c));
@@ -99,14 +81,8 @@ scm_threads_free_condvar (c)
/* cleanup for info structure
*/
-#ifdef __STDC__
static void
scm_pthread_delete_info (void *ptr)
-#else
-static void
-scm_pthread_delete_info (ptr)
- void *ptr;
-#endif
{
scm_pthread_info *info = (scm_pthread_info *) ptr;
info->q.blink->flink = info->q.flink;
@@ -114,14 +90,8 @@ scm_pthread_delete_info (ptr)
scm_must_free ((char *) info);
}
-#ifdef __STDC__
void
scm_threads_init (SCM_STACKITEM *i)
-#else
-void
-scm_threads_init (i)
- SCM_STACKITEM *i;
-#endif
{
/*
* each info structure is made thread-specific, so that the cleanup
@@ -167,13 +137,8 @@ static scm_pthread_info *pthreads_find_info (pthread_t target)
}
}
-#ifdef __STDC__
void
scm_threads_mark_stacks ()
-#else
-void
-scm_threads_mark_stacks ()
-#endif
{
scm_pthread_info *info;
pthread_t thread;
@@ -259,14 +224,8 @@ scm_threads_mark_stacks ()
}
}
-#ifdef __STDC__
void *
launch_thread (void *p)
-#else
-void *
-launch_thread (p)
- void *p;
-#endif
{
/* The thread object will be GC protected by being a member of the
list given as argument to launch_thread. It will be marked
@@ -279,14 +238,8 @@ launch_thread (p)
return NULL;
}
-#ifdef __STDC__
SCM
scm_call_with_new_thread (SCM argl)
-#else
-SCM
-scm_call_with_new_thread (argl)
- SCM argl;
-#endif
{
SCM thread;
@@ -369,39 +322,23 @@ scm_call_with_new_thread (argl)
return thread;
}
-#ifdef __STDC__
SCM
scm_join_thread (SCM t)
-#else
-SCM
-scm_join_thread (t)
- SCM t;
-#endif
{
void *value;
pthread_join (SCM_THREAD_DATA (t), &value);
return SCM_BOOL_T;
}
-#ifdef __STDC__
SCM
scm_yield ()
-#else
-SCM
-scm_yield ()
-#endif
{
pthread_yield ();
return SCM_BOOL_T;
}
-#ifdef __STDC__
SCM
scm_make_mutex ()
-#else
-SCM
-scm_make_mutex ()
-#endif
{
SCM m;
pthread_mutex_t *data = (pthread_mutex_t *) scm_must_malloc (sizeof (pthread_mutex_t), "mutex");
@@ -410,41 +347,24 @@ scm_make_mutex ()
return m;
}
-#ifdef __STDC__
SCM
scm_lock_mutex (SCM m)
-#else
-SCM
-scm_lock_mutex (m)
- SCM m;
-#endif
{
SCM_ASSERT (SCM_MUTEXP (m), m, SCM_ARG1, s_lock_mutex);
pthread_mutex_lock (SCM_MUTEX_DATA (m));
return SCM_BOOL_T;
}
-#ifdef __STDC__
SCM
scm_unlock_mutex (SCM m)
-#else
-SCM
-scm_unlock_mutex (m)
- SCM m;
-#endif
{
SCM_ASSERT (SCM_MUTEXP (m), m, SCM_ARG1, s_unlock_mutex);
pthread_mutex_unlock (SCM_MUTEX_DATA (m));
return SCM_BOOL_T;
}
-#ifdef __STDC__
SCM
scm_make_condition_variable ()
-#else
-SCM
-scm_make_condition_variable ()
-#endif
{
SCM c;
pthread_cond_t *data = (pthread_cond_t *) scm_must_malloc (sizeof (pthread_cond_t), "condvar");
@@ -453,15 +373,8 @@ scm_make_condition_variable ()
return c;
}
-#ifdef __STDC__
SCM
scm_wait_condition_variable (SCM c, SCM m)
-#else
-SCM
-scm_wait_condition_variable (c, m)
- SCM c;
- SCM m;
-#endif
{
SCM_ASSERT (SCM_CONDVARP (c),
c,
@@ -475,14 +388,8 @@ scm_wait_condition_variable (c, m)
return SCM_BOOL_T;
}
-#ifdef __STDC__
SCM
scm_signal_condition_variable (SCM c)
-#else
-SCM
-scm_signal_condition_variable (c)
- SCM c;
-#endif
{
SCM_ASSERT (SCM_CONDVARP (c),
c,