From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 6 Oct 2013 22:21:13 +0000 (+0000)
Subject: Add cast to avoid negative arguments to isalnum.
X-Git-Tag: release-9.2.0~94
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=732dcd67aaf8cc03283495137426917dfee4097e;p=mit-scheme.git

Add cast to avoid negative arguments to isalnum.
---

diff --git a/src/microcode/extract-liarc-decls.c b/src/microcode/extract-liarc-decls.c
index 7323d5bd2..e34824b21 100644
--- a/src/microcode/extract-liarc-decls.c
+++ b/src/microcode/extract-liarc-decls.c
@@ -167,7 +167,7 @@ mangle_line (const char * line, const char * prefix)
 static const char *
 skip_name (const char * scan)
 {
-  while ((isalnum (*scan)) || ((*scan) == '_'))
+  while ((isalnum ((unsigned char) (*scan))) || ((*scan) == '_'))
     write_char (*scan++);
   return (scan);
 }