mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

enable port locking

Browse source 
* libguile/ports.c (scm_c_make_port_with_encoding): Enable port
  locking.
This commit is contained in:
Andy Wingo 2011-12-06 19:06:13 +01:00
parent f5b870d816
commit 8806b4c28a
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ports.c
View file

@ -582,11 +582,8 @@ scm_c_make_port_with_encoding (scm_t_bits tag, unsigned long mode_bits,
SCM_SET_CELL_WORD_1 (ret, (scm_t_bits) entry);
SCM_SET_CELL_WORD_2 (ret, (scm_t_bits) ptob);
entry->lock = NULL;
#if 0
entry->lock = scm_gc_malloc_pointerless (sizeof (*entry->lock), "port lock");
scm_i_pthread_mutex_init (entry->lock, scm_i_pthread_mutexattr_recursive);
#endif
entry->file_name = SCM_BOOL_F;
entry->rw_active = SCM_PORT_NEITHER;