mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

locking for putc, puts

Browse source 
* libguile/ports.c (scm_putc, scm_puts):
* libguile/ports.h (scm_putc_unlocked, scm_puts_unlocked): Separate into
  _unlocked and locked variants.  Change all callers to use the
  _unlocked versions.
This commit is contained in:
Andy Wingo 2011-11-08 00:36:48 +01:00
parent 4251ae2e28
commit 0607ebbfcf
44 changed files with 233 additions and 215 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/srfi-14.c
View file

@ -597,27 +597,27 @@ charset_print (SCM charset, SCM port, scm_print_state *pstate SCM_UNUSED)
p = SCM_CHARSET_DATA (charset);
scm_puts ("#<charset {", port);
scm_puts_unlocked ("#<charset {", port);
for (i = 0; i < p->len; i++)
{
if (first)
first = 0;
else
scm_puts (" ", port);
scm_puts_unlocked (" ", port);
scm_write (SCM_MAKE_CHAR (p->ranges[i].lo), port);
if (p->ranges[i].lo != p->ranges[i].hi)
{
scm_puts ("..", port);
scm_puts_unlocked ("..", port);
scm_write (SCM_MAKE_CHAR (p->ranges[i].hi), port);
}
if (i >= max_ranges_to_print)
{
/* Too many to print here. Quit early. */
scm_puts (" ...", port);
scm_puts_unlocked (" ...", port);
break;
}
}
scm_puts ("}>", port);
scm_puts_unlocked ("}>", port);
return 1;
}
@ -630,16 +630,16 @@ charset_cursor_print (SCM cursor, SCM port,
cur = (scm_t_char_set_cursor *) SCM_SMOB_DATA (cursor);
scm_puts ("#<charset-cursor ", port);
scm_puts_unlocked ("#<charset-cursor ", port);
if (cur->range == (size_t) (-1))
scm_puts ("(empty)", port);
scm_puts_unlocked ("(empty)", port);
else
{
scm_write (scm_from_size_t (cur->range), port);
scm_puts (":", port);
scm_puts_unlocked (":", port);
scm_write (scm_from_int32 (cur->n), port);
}
scm_puts (">", port);
scm_puts_unlocked (">", port);
return 1;
}