mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 05:50:26 +02:00
Some signed/unsigned comparison and conversions
* libguile/ports.c (scm_lfwrite_str, scm_lfwrite_substr): signed/unsigned conversion and comparison * libguile/strings.c (scm_string_append): signed/unsigned comparison
This commit is contained in:
parent
94ff26b96b
commit
bd4911efd2
2 changed files with 3 additions and 3 deletions
|
@ -1019,7 +1019,7 @@ scm_lfwrite_substr (SCM str, size_t start, size_t end, SCM port)
|
|||
if (pt->rw_active == SCM_PORT_READ)
|
||||
scm_end_input (port);
|
||||
|
||||
if (end == -1)
|
||||
if (end == (size_t) (-1))
|
||||
end = size;
|
||||
size = end - start;
|
||||
|
||||
|
@ -1042,7 +1042,7 @@ scm_lfwrite_substr (SCM str, size_t start, size_t end, SCM port)
|
|||
void
|
||||
scm_lfwrite_str (SCM str, SCM port)
|
||||
{
|
||||
scm_lfwrite_substr (str, 0, -1, port);
|
||||
scm_lfwrite_substr (str, 0, (size_t) (-1), port);
|
||||
}
|
||||
|
||||
/* scm_c_read
|
||||
|
|
|
@ -1297,7 +1297,7 @@ SCM_DEFINE (scm_string_append, "string-append", 0, 0, 1,
|
|||
size_t len = 0;
|
||||
int wide = 0;
|
||||
SCM l, s;
|
||||
int i;
|
||||
size_t i;
|
||||
union
|
||||
{
|
||||
char *narrow;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue