mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 07:40:30 +02:00
Code Activity

put-bytevector: Allow start == bytevector length.

Browse source 
* libguile/r6rs-ports.c (scm_put_bytevector): When three arguments (port
bv start) are provided, allow start to be equal to the length of the
bytevector, resulting in a zero-length write.
This commit is contained in:
Mark H Weaver 2017-07-31 12:24:11 -04:00
parent 73d9d18488
commit 72d80a1ea3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/r6rs-ports.c
View file

@ -800,7 +800,7 @@ SCM_DEFINE (scm_put_bytevector, "put-bytevector", 2, 2, 0,
} }
else else
{ {
if (SCM_UNLIKELY (c_start >= c_len)) if (SCM_UNLIKELY (c_start > c_len))
scm_out_of_range (FUNC_NAME, start); scm_out_of_range (FUNC_NAME, start);
else else
c_count = c_len - c_start; c_count = c_len - c_start;