fixed to not accept dots in numbers

diff --git a/mach/proto/as/comm5.c b/mach/proto/as/comm5.c
index 60b65f6..37246ad 100644 (file)
--- a/mach/proto/as/comm5.c
+++ b/mach/proto/as/comm5.c
@@ -311,7 +311,7 @@ register c;
                        c += ('a' - 'A');
                *p++ = c;
                c = nextchar();
-       } while (ISALNUM(c));
+       } while (isalnum(c));
        peekc = c;
        *p = '\0';
        c = *--p;
@@ -335,7 +335,7 @@ register c;
                if (c > '9')
                        c -= ('a' - '9' - 1);
                c -= '0';
-               if (c >= radix)
+               if ((unsigned)c >= radix)
                        serror("digit exceeds radix");
                yylval.y_valu = yylval.y_valu * radix + c;
        }