suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't use isspace() on a signed character

Browse Source
This commit is contained in:
Matthew Flatt 2016-07-26 10:50:31 -06:00
parent b9a9fdaa3f
commit 453684b694
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/racket/cmdline.inc
View File

@ -756,7 +756,7 @@ static Scheme_Object *get_log_level(char *prog, char *real_switch, const char *e
l = scheme_make_null();
while (1) {
while (*str && isspace(*str)) {
while (*str && isspace(*((unsigned char *)str))) {
str++;
}
@ -797,13 +797,13 @@ static Scheme_Object *get_log_level(char *prog, char *real_switch, const char *e
if (k != -1) {
if (*str == '@') {
str++;
for (s = str; *s && !isspace(*s); s++) {
for (s = str; *s && !isspace(*((unsigned char *)s)); s++) {
}
l = scheme_make_pair(scheme_make_sized_byte_string(str, s - str, 1), l);
if (!last) last = l;
l = scheme_make_pair(scheme_make_integer(k), l);
str = s;
} else if (isspace(*str) || !*str) {
} else if (isspace(*((unsigned char *)str)) || !*str) {
if (default_lvl == -1)
default_lvl = k;
else
@ -817,7 +817,7 @@ static Scheme_Object *get_log_level(char *prog, char *real_switch, const char *e
PRINTF("%s: %s <levels> %s%s%s must be one of the following\n"
" <level>s:\n"
" none fatal error warning info debug\n"
" or up to one such <level> in space-separated sequence of\n"
" or up to one such <level> in whitespace-separated sequence of\n"
" <level>@<name>\n"
" given: %s\n",
prog, what,