summaryrefslogtreecommitdiff
path: root/libguile/gdbint.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-08 00:29:46 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-08 00:55:01 +0100
commit4251ae2e282385be6d08b0fffab761fcc0fa93aa (patch)
tree1ed22a034053f088d63fa1c5bfd7f1dbb88a7043 /libguile/gdbint.c
parentc932ce0b559ceb7a14846241d7b1856c7c3eea3b (diff)
downloadguile-4251ae2e282385be6d08b0fffab761fcc0fa93aa.tar.gz
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.
Diffstat (limited to 'libguile/gdbint.c')
-rw-r--r--libguile/gdbint.c2
1 files changed, 1 insertions, 1 deletions
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);
}