summaryrefslogtreecommitdiff
path: root/libguile/objcodes.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-08 00:46:41 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-08 00:55:06 +0100
commitf209aeee9fc5032863cc07138be927da87d3a091 (patch)
treee8c4e1e701bc9081d5119613e1cf2a338daba601 /libguile/objcodes.c
parent0607ebbfcf63dc81e4bc2b10f3a8c3bc0d348c09 (diff)
downloadguile-f209aeee9fc5032863cc07138be927da87d3a091.tar.gz
locking for write, lfwrite
* libguile/ports.c (scm_c_write_unlocked, scm_c_write) (scm_lfwrite_unlocked, scm_lfwrite): Add locking and _unlocked variants. Change uses to _unlocked.
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r--libguile/objcodes.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index 77765d948..27ea111a6 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -355,9 +355,10 @@ SCM_DEFINE (scm_write_objcode, "write-objcode", 2, 0, 0,
cookie[SCM_OBJCODE_ENDIANNESS_OFFSET] = endianness;
cookie[SCM_OBJCODE_WORD_SIZE_OFFSET] = word_size;
- scm_c_write (port, cookie, strlen (SCM_OBJCODE_COOKIE));
- scm_c_write (port, SCM_OBJCODE_DATA (objcode),
- sizeof (struct scm_objcode) + SCM_OBJCODE_TOTAL_LEN (objcode));
+ scm_c_write_unlocked (port, cookie, strlen (SCM_OBJCODE_COOKIE));
+ scm_c_write_unlocked (port, SCM_OBJCODE_DATA (objcode),
+ sizeof (struct scm_objcode)
+ + SCM_OBJCODE_TOTAL_LEN (objcode));
return SCM_UNSPECIFIED;
}