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

disable port locking

Browse source 
* libguile/ports.h (scm_c_lock_port, scm_c_try_lock_port)
  (scm_c_unlock_port): Disable port locking until I have time to sort
  out the bugs that are coming up.
This commit is contained in:
Andy Wingo 2011-11-09 23:02:02 +01:00
parent 880e794812
commit b86b70fece
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ports.h
View file

@ -385,7 +385,7 @@ SCM_INTERNAL void scm_init_ports (void);
SCM_INLINE_IMPLEMENTATION int SCM_INLINE_IMPLEMENTATION int
scm_c_lock_port (SCM port) scm_c_lock_port (SCM port)
{ {
#if SCM_USE_PTHREAD_THREADS #if 0 && SCM_USE_PTHREAD_THREADS
return scm_i_pthread_mutex_lock (&SCM_PTAB_ENTRY (port)->lock); return scm_i_pthread_mutex_lock (&SCM_PTAB_ENTRY (port)->lock);
#else #else
return 0; return 0;
@ -395,7 +395,7 @@ scm_c_lock_port (SCM port)
SCM_INLINE_IMPLEMENTATION int SCM_INLINE_IMPLEMENTATION int
scm_c_try_lock_port (SCM port) scm_c_try_lock_port (SCM port)
{ {
#if SCM_USE_PTHREAD_THREADS #if 0 && SCM_USE_PTHREAD_THREADS
return scm_i_pthread_mutex_trylock (&SCM_PTAB_ENTRY (port)->lock); return scm_i_pthread_mutex_trylock (&SCM_PTAB_ENTRY (port)->lock);
#else #else
return 0; return 0;
@ -405,7 +405,7 @@ scm_c_try_lock_port (SCM port)
SCM_INLINE_IMPLEMENTATION int SCM_INLINE_IMPLEMENTATION int
scm_c_unlock_port (SCM port) scm_c_unlock_port (SCM port)
{ {
#if SCM_USE_PTHREAD_THREADS #if 0 && SCM_USE_PTHREAD_THREADS
return scm_i_pthread_mutex_unlock (&SCM_PTAB_ENTRY (port)->lock); return scm_i_pthread_mutex_unlock (&SCM_PTAB_ENTRY (port)->lock);
#else #else
return 0; return 0;