mirror of
git://c9x.me/qbe.git
synced 2026-04-07 02:49:47 +00:00
support dots in idents for k0ga
This commit is contained in:
parent
46f99ac5b7
commit
07c46bc6f9
@ -217,7 +217,7 @@ lex()
|
|||||||
t = TXXX;
|
t = TXXX;
|
||||||
if (0)
|
if (0)
|
||||||
Alpha: c = fgetc(inf);
|
Alpha: c = fgetc(inf);
|
||||||
if (!isalpha(c))
|
if (!isalpha(c) && c != '.')
|
||||||
err("lexing failure");
|
err("lexing failure");
|
||||||
i = 0;
|
i = 0;
|
||||||
do {
|
do {
|
||||||
@ -225,7 +225,7 @@ Alpha: c = fgetc(inf);
|
|||||||
err("identifier too long");
|
err("identifier too long");
|
||||||
tok[i++] = c;
|
tok[i++] = c;
|
||||||
c = fgetc(inf);
|
c = fgetc(inf);
|
||||||
} while (isalpha(c) || isdigit(c));
|
} while (isalpha(c) || c == '.' || isdigit(c));
|
||||||
tok[i] = 0;
|
tok[i] = 0;
|
||||||
ungetc(c, inf);
|
ungetc(c, inf);
|
||||||
if (t != TXXX) {
|
if (t != TXXX) {
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user