guile-commits
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]