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

Cast the input to isalpha et al to integer

Browse source 
* 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
This commit is contained in:
Michael Gran 2009-08-28 21:19:05 -07:00
parent 5950cc3fcc
commit 6d736fdba2
4 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/inet_aton.c
View file

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