godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bug with underscores in identifiers

Browse Source
This commit is contained in:
ceriel 1988-11-03 15:36:46 +00:00
parent b8bd81f18f
commit 28e8984b72
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lang/m2/comp/LLlex.c
View File

@ -355,11 +355,11 @@ again:
register t_idf *id; register t_idf *id;
do { do {
if (ch == '_' && *tag == '_') {
lexerror("an identifier may not contain two consecutive underscores");
}
if (tag - buf < idfsize) *tag++ = ch; if (tag - buf < idfsize) *tag++ = ch;
LoadChar(ch); LoadChar(ch);
if (ch == '_' && *(tag-1) == '_') {
lexerror("an identifier may not contain two consecutive underscores");
}
} while(in_idf(ch)); } while(in_idf(ch));
UnloadChar(ch); UnloadChar(ch);