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