mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +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) if (pt->rw_active == SCM_PORT_READ)
scm_end_input (port); scm_end_input (port);
if (end == -1) if (end == (size_t) (-1))
end = size; end = size;
size = end - start; size = end - start;
@ -1042,7 +1042,7 @@ scm_lfwrite_substr (SCM str, size_t start, size_t end, SCM port)
void void
scm_lfwrite_str (SCM str, SCM port) 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 /* 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; size_t len = 0;
int wide = 0; int wide = 0;
SCM l, s; SCM l, s;
int i; size_t i;
union union
{ {
char *narrow; char *narrow;