mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(scm_i_misc_mutex): New SCM_GLOBAL_MUTEX.

Browse source
This commit is contained in:
Kevin Ryde 2004-07-23 23:51:58 +00:00
parent 6364df3429
commit 50dc184000
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/threads.c
View file

@ -1329,6 +1329,12 @@ scm_init_threads (SCM_STACKITEM *base)
threads_initialized_p = 1;
}
/* scm_i_misc_mutex is intended for miscellaneous uses, to protect
operations which are non-reentrant or non-thread-safe but which are
either not important enough or not used often enough to deserve their own
private mutex. */
SCM_GLOBAL_MUTEX (scm_i_misc_mutex);
void
scm_init_thread_procs ()
{

4
libguile/threads.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_THREADS_H
#define SCM_THREADS_H
/* Copyright (C) 1996,1997,1998,2000,2001, 2002, 2003 Free Software Foundation, Inc.
/* Copyright (C) 1996,1997,1998,2000,2001, 2002, 2003, 2004 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -242,6 +242,8 @@ extern scm_t_key scm_i_thread_key;
SCM_API scm_t_key scm_i_root_state_key;
SCM_API void scm_i_set_thread_data (void *);
SCM_API scm_t_mutex scm_i_misc_mutex;
#endif /* SCM_THREADS_H */
/*