summaryrefslogtreecommitdiff
path: root/libguile/inet_aton.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-28 21:19:05 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-28 21:19:05 -0700
commit6d736fdba2135de42e742924eac32e1c6bd9b79a (patch)
tree104b22398b200f71a729a325c7e1e11aee50096e /libguile/inet_aton.c
parent5950cc3fcc7fb0d13be23fcccb8916fd8c2da4e2 (diff)
downloadguile-6d736fdba2135de42e742924eac32e1c6bd9b79a.tar.gz
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
Diffstat (limited to 'libguile/inet_aton.c')
-rw-r--r--libguile/inet_aton.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/inet_aton.c b/libguile/inet_aton.c
index ebef71f55..c89378bb1 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