mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 17:30:24 +02:00
Code Activity

Removed SCM_API from function definitions. SCM_API is only for

Browse source 
declarations.
This commit is contained in:
Marius Vollmer 2002-11-10 22:04:26 +00:00
parent 8cb6d96d9d
commit 911782b79c
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/threads.c
View file

@ -168,34 +168,34 @@ scm_wait_condition_variable (SCM c, SCM m)
#if (SCM_ENABLE_DEPRECATED == 1) #if (SCM_ENABLE_DEPRECATED == 1)
SCM_API int int
scm_mutex_init (scm_t_mutex *m) scm_mutex_init (scm_t_mutex *m)
{ {
scm_gc_protect_object (m->m = scm_make_mutex ()); scm_gc_protect_object (m->m = scm_make_mutex ());
return 0; return 0;
} }
SCM_API int int
scm_mutex_lock (scm_t_mutex *m) scm_mutex_lock (scm_t_mutex *m)
{ {
scm_lock_mutex (m->m); scm_lock_mutex (m->m);
return 0; return 0;
} }
SCM_API int int
scm_mutex_trylock (scm_t_mutex *m) scm_mutex_trylock (scm_t_mutex *m)
{ {
return SCM_FALSEP (scm_try_mutex (m->m))? EBUSY : 0; return SCM_FALSEP (scm_try_mutex (m->m))? EBUSY : 0;
} }
SCM_API int int
scm_mutex_unlock (scm_t_mutex *m) scm_mutex_unlock (scm_t_mutex *m)
{ {
scm_unlock_mutex (m->m); scm_unlock_mutex (m->m);
return 0; return 0;
} }
SCM_API int int
scm_mutex_destroy (scm_t_mutex *m) scm_mutex_destroy (scm_t_mutex *m)
{ {
scm_gc_unprotect_object (m->m); scm_gc_unprotect_object (m->m);
@ -209,14 +209,14 @@ scm_cond_init (scm_t_cond *c, int *cattr)
return 0; return 0;
} }
SCM_API int int
scm_cond_wait (scm_t_cond *c, scm_t_mutex *m) scm_cond_wait (scm_t_cond *c, scm_t_mutex *m)
{ {
scm_wait_condition_variable (c->c, m->m); scm_wait_condition_variable (c->c, m->m);
return 0; return 0;
} }
SCM_API int int
scm_cond_timedwait (scm_t_cond *c, scm_t_mutex *m, scm_cond_timedwait (scm_t_cond *c, scm_t_mutex *m,
const struct timespec *t) const struct timespec *t)
{ {
@ -225,21 +225,21 @@ scm_cond_timedwait (scm_t_cond *c, scm_t_mutex *m,
scm_long2num (t->tv_nsec/1000)))); scm_long2num (t->tv_nsec/1000))));
} }
SCM_API int int
scm_cond_signal (scm_t_cond *c) scm_cond_signal (scm_t_cond *c)
{ {
scm_signal_condition_variable (c->c); scm_signal_condition_variable (c->c);
return 0; return 0;
} }
SCM_API int int
scm_cond_broadcast (scm_t_cond *c) scm_cond_broadcast (scm_t_cond *c)
{ {
scm_broadcast_condition_variable (c->c); scm_broadcast_condition_variable (c->c);
return 0; return 0;
} }
SCM_API int int
scm_cond_destroy (scm_t_cond *c) scm_cond_destroy (scm_t_cond *c)
{ {
scm_gc_unprotect_object (c->c); scm_gc_unprotect_object (c->c);