mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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

6
libguile/stackchk.c
View file

@ -86,11 +86,11 @@ scm_stack_report ()
scm_uintprint ((scm_stack_size (thread->continuation_base)
* sizeof (SCM_STACKITEM)),
16, port);
scm_puts (" of stack: 0x", port);
scm_puts_unlocked (" of stack: 0x", port);
scm_uintprint ((scm_t_bits) thread->continuation_base, 16, port);
scm_puts (" - 0x", port);
scm_puts_unlocked (" - 0x", port);
scm_uintprint ((scm_t_bits) &stack, 16, port);
scm_puts ("\n", port);
scm_puts_unlocked ("\n", port);
}