mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

r6rs-ports: 'put-bytevector' accepts 64-bit integers.

Browse source 
* libguile/r6rs-ports.c (scm_put_bytevector): Use 'size_t' for c_start,
c_count, and c_len.
This commit is contained in:
Ludovic Courtès 2018-07-20 11:43:27 +02:00 • committed by Andy Wingo
parent cbc2445eb1
commit 04aa6d1fb7
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/r6rs-ports.c
View file

@ -589,7 +589,7 @@ SCM_DEFINE (scm_put_bytevector, "put-bytevector", 2, 2, 0,
"octets.") "octets.")
#define FUNC_NAME s_scm_put_bytevector #define FUNC_NAME s_scm_put_bytevector
{ {
unsigned c_start, c_count, c_len; size_t c_start, c_count, c_len;
SCM_VALIDATE_BINARY_OUTPUT_PORT (1, port); SCM_VALIDATE_BINARY_OUTPUT_PORT (1, port);
SCM_VALIDATE_BYTEVECTOR (2, bv); SCM_VALIDATE_BYTEVECTOR (2, bv);
@ -598,11 +598,11 @@ SCM_DEFINE (scm_put_bytevector, "put-bytevector", 2, 2, 0,
if (!scm_is_eq (start, SCM_UNDEFINED)) if (!scm_is_eq (start, SCM_UNDEFINED))
{ {
c_start = scm_to_uint (start); c_start = scm_to_size_t (start);
if (!scm_is_eq (count, SCM_UNDEFINED)) if (!scm_is_eq (count, SCM_UNDEFINED))
{ {
c_count = scm_to_uint (count); c_count = scm_to_size_t (count);
if (SCM_UNLIKELY (c_start + c_count > c_len)) if (SCM_UNLIKELY (c_start + c_count > c_len))
scm_out_of_range (FUNC_NAME, count); scm_out_of_range (FUNC_NAME, count);
} }