[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. release_1-9-2-127-g6d
From: |
Michael Gran |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. release_1-9-2-127-g6d736fd |
Date: |
Sat, 29 Aug 2009 04:21:42 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=6d736fdba2135de42e742924eac32e1c6bd9b79a
The branch, master has been updated
via 6d736fdba2135de42e742924eac32e1c6bd9b79a (commit)
from 5950cc3fcc7fb0d13be23fcccb8916fd8c2da4e2 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 6d736fdba2135de42e742924eac32e1c6bd9b79a
Author: Michael Gran <address@hidden>
Date: Fri Aug 28 21:19:05 2009 -0700
Cast the input to isalpha et al to integer
* libguile/gc_os_dep.c (GC_linux_stack_base) [LINUX_STACKBOTTOM]: cast
input of ctype functions to int
* libguile/inet_aton.c (inet_aton): cast input of ctype functions to int
* libguile/read.c (scm_scan_for_encoding): cast input of isalnum to int
* libguile/win32-socket.c (scm_i_socket_uncomment): cast input of isspace
to int
-----------------------------------------------------------------------
Summary of changes:
libguile/gc_os_dep.c | 11 +++++++----
libguile/inet_aton.c | 8 ++++----
libguile/read.c | 3 ++-
libguile/win32-socket.c | 2 +-
4 files changed, 14 insertions(+), 10 deletions(-)
diff --git a/libguile/gc_os_dep.c b/libguile/gc_os_dep.c
index 7bc9644..c624180 100644
--- a/libguile/gc_os_dep.c
+++ b/libguile/gc_os_dep.c
@@ -1867,11 +1867,14 @@ void *scm_get_stack_base()
/* Skip the required number of fields. This number is hopefully */
/* constant across all Linux implementations. */
for (i = 0; i < STAT_SKIP; ++i) {
- while (isspace(c)) c = stat_buf[buf_offset++];
- while (!isspace(c)) c = stat_buf[buf_offset++];
+ while (isspace ((int) c))
+ c = stat_buf[buf_offset++];
+ while (!isspace ((int) c))
+ c = stat_buf[buf_offset++];
}
- while (isspace(c)) c = stat_buf[buf_offset++];
- while (isdigit(c)) {
+ while (isspace ((int) c))
+ c = stat_buf[buf_offset++];
+ while (isdigit ((int) c)) {
result *= 10;
result += c - '0';
c = stat_buf[buf_offset++];
diff --git a/libguile/inet_aton.c b/libguile/inet_aton.c
index ebef71f..c89378b 100644
--- a/libguile/inet_aton.c
+++ b/libguile/inet_aton.c
@@ -103,14 +103,14 @@ inet_aton(const char *cp_arg, struct in_addr *addr)
base = 8;
}
while ((c = *cp) != '\0') {
- if (isascii(c) && isdigit(c)) {
+ if (isascii ((int) c) && isdigit ((int) c)) {
val = (val * base) + (c - '0');
cp++;
continue;
}
- if (base == 16 && isascii(c) && isxdigit(c)) {
+ if (base == 16 && isascii ((int) c) && isxdigit ((int)
c)) {
val = (val << 4) +
- (c + 10 - (islower(c) ? 'a' : 'A'));
+ (c + 10 - (islower((int) c) ? 'a' : 'A'));
cp++;
continue;
}
@@ -132,7 +132,7 @@ inet_aton(const char *cp_arg, struct in_addr *addr)
/*
* Check for trailing characters.
*/
- if (*cp && (!isascii(*cp) || !isspace(*cp)))
+ if (*cp && (!isascii ((int) (*cp)) || !isspace ((int) (*cp))))
return (0);
/*
* Concoct the address according to
diff --git a/libguile/read.c b/libguile/read.c
index d91c868..a784f34 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -1437,7 +1437,8 @@ scm_scan_for_encoding (SCM port)
/* grab the next token */
i = 0;
while (pos + i - header <= SCM_ENCODING_SEARCH_SIZE
- && (isalnum(pos[i]) || pos[i] == '_' || pos[i] == '-' || pos[i] ==
'.'))
+ && (isalnum((int) pos[i]) || pos[i] == '_' || pos[i] == '-'
+ || pos[i] == '.'))
i++;
if (i == 0)
diff --git a/libguile/win32-socket.c b/libguile/win32-socket.c
index e845d88..825b4c4 100644
--- a/libguile/win32-socket.c
+++ b/libguile/win32-socket.c
@@ -435,7 +435,7 @@ scm_i_socket_uncomment (char *line)
while (end > line && (*end == '\r' || *end == '\n'))
*end-- = '\0';
}
- while (end > line && isspace (*end))
+ while (end > line && isspace ((int) (*end)))
*end-- = '\0';
return end;
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. release_1-9-2-127-g6d736fd,
Michael Gran <=