From 4251ae2e282385be6d08b0fffab761fcc0fa93aa Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 8 Nov 2011 00:29:46 +0100 Subject: locking on port buffering operations * libguile/ports.c (scm_fill_input_unlocked, scm_fill_input) (scm_end_input, scm_end_input_unlocked, scm_flush) (scm_flush_unlocked): Add locking and _unlocked variants. * libguile/filesys.c: * libguile/fports.c: * libguile/gdbint.c: * libguile/r6rs-ports.c: * libguile/read.c: * libguile/rw.c: Adapt callers to use _unlocked variants. --- libguile/gdbint.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/gdbint.c') diff --git a/libguile/gdbint.c b/libguile/gdbint.c index 196c498af..ae6ab63a2 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -213,7 +213,7 @@ gdb_print (SCM obj) { scm_t_port *pt = SCM_PTAB_ENTRY (gdb_output_port); - scm_flush (gdb_output_port); + scm_flush_unlocked (gdb_output_port); *(pt->write_buf + pt->read_buf_size) = 0; SEND_STRING (pt->read_buf); } -- cgit v1.2.3