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

Bug fix involving '\\'.

Browse Source
This commit is contained in:
ceriel 1986-10-22 13:36:22 +00:00
parent 06ea1f505e
commit 55dd98fd3c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
util/LLgen/src/tokens.g
View File

@ -115,7 +115,6 @@ scanner() {
register int ch; /* Current char */
register char *p = ltext;
int reserved = 0; /* reserved word? */
int last; /* Char before current char */
char *max = &ltext[LTEXTSZ - 1];
if (ch = savedtok.t_tokno) {
@ -138,13 +137,16 @@ scanner() {
switch(c_class[ch]) {
case ISLIT :
for (;;) {
last = ch;
ch = input();
if (ch == '\n' || ch == EOF) {
error(linecount,"missing '");
break;
}
if (ch == '\'' && last != '\\') break;
if (ch == '\'') break;
if (ch == '\\') {
*p++ = ch;
ch = input();
}
*p++ = ch;
if (p > max) p--;
}