[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: r6rs-ports: 'put-bytevector' accepts 64-bit integ
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 01/01: r6rs-ports: 'put-bytevector' accepts 64-bit integers. |
Date: |
Fri, 20 Jul 2018 05:45:02 -0400 (EDT) |
civodul pushed a commit to branch stable-2.2
in repository guile.
commit 741c45458da0831a12a4f8d729814bf9f2cb6571
Author: Ludovic Courtès <address@hidden>
Date: Fri Jul 20 11:43:27 2018 +0200
r6rs-ports: 'put-bytevector' accepts 64-bit integers.
* libguile/r6rs-ports.c (scm_put_bytevector): Use 'size_t' for c_start,
c_count, and c_len.
---
libguile/r6rs-ports.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c
index fe49be8..c1cbbdf 100644
--- a/libguile/r6rs-ports.c
+++ b/libguile/r6rs-ports.c
@@ -583,7 +583,7 @@ SCM_DEFINE (scm_put_bytevector, "put-bytevector", 2, 2, 0,
"octets.")
#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_BYTEVECTOR (2, bv);
@@ -592,11 +592,11 @@ SCM_DEFINE (scm_put_bytevector, "put-bytevector", 2, 2, 0,
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))
{
- c_count = scm_to_uint (count);
+ c_count = scm_to_size_t (count);
if (SCM_UNLIKELY (c_start + c_count > c_len))
scm_out_of_range (FUNC_NAME, count);
}