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

Some signed/unsigned comparison and conversions

Browse source 
* 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:
Michael Gran 2009-08-12 08:50:12 -07:00
parent 94ff26b96b
commit bd4911efd2
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ports.c
View file

@ -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

2
libguile/strings.c
View file

@ -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;