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

Remove use of SCM_CRITICAL_SECTION in smob.c

Browse source 
* libguile/smob.c (scm_make_smob_type): Use a mutex instead of a
  critical section, which does an async tick.  Not important, just a
  thing I saw.
This commit is contained in:
Andy Wingo 2013-11-15 17:14:15 +01:00
parent f8085163d6
commit cb8ea3805f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/smob.c
View file

@ -205,11 +205,11 @@ scm_make_smob_type (char const *name, size_t size)
{ {
long new_smob; long new_smob;
SCM_CRITICAL_SECTION_START; scm_i_pthread_mutex_lock (&scm_i_misc_mutex);
new_smob = scm_numsmob; new_smob = scm_numsmob;
if (scm_numsmob != MAX_SMOB_COUNT) if (scm_numsmob != MAX_SMOB_COUNT)
++scm_numsmob; ++scm_numsmob;
SCM_CRITICAL_SECTION_END; scm_i_pthread_mutex_unlock (&scm_i_misc_mutex);
if (new_smob == MAX_SMOB_COUNT) if (new_smob == MAX_SMOB_COUNT)
scm_misc_error (FUNC_NAME, "maximum number of smobs exceeded", SCM_EOL); scm_misc_error (FUNC_NAME, "maximum number of smobs exceeded", SCM_EOL);