diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2005-05-12 06:39:50 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2005-05-12 06:39:50 +0000 |
| commit | 5a6d139b3522cb821b41ff856ccd185febd8cae1 (patch) | |
| tree | a39bac4355a733ee2af5961b0a479ae9abbc310a /libguile/unif.c | |
| parent | b01532af77392c508b6850304bfefde4f7d23b7e (diff) | |
| download | guile-5a6d139b3522cb821b41ff856ccd185febd8cae1.tar.gz | |
* unif.c (scm_i_read_array): Declare rank as ssize_t, to guarantee
that it is signed.
* strports.c (st_resize_port): Add unsigned char cast.
(scm_mkstrport): Make read/write_buf cast unsigned.
* srfi-13.c (string_titlecase_x): Add unsigned char cast.
* rdelim.c (scm_read_line): Initialize slen.
* load.c (scm_search_path): Remove weird >=1, and add
parentheses to clarify conditions.
* hash.c (scm_hasher): Add const unsigned char cast.
* gh_data.c (gh_chars2byvect): Add scm_t_int8 cast.
Diffstat (limited to 'libguile/unif.c')
| -rw-r--r-- | libguile/unif.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 530da72f5..ff6cc3209 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2660,7 +2660,7 @@ read_decimal_integer (SCM port, int c, ssize_t *resp) SCM scm_i_read_array (SCM port, int c) { - size_t rank; + ssize_t rank; int got_rank; char tag[80]; int tag_len; @@ -2756,7 +2756,7 @@ scm_i_read_array (SCM port, int c) elements = scm_read (port); if (scm_is_false (shape)) - shape = scm_from_size_t (rank); + shape = scm_from_ssize_t (rank); else if (scm_ilength (shape) != rank) scm_i_input_error (NULL, port, |