d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Bug fix involving '\\'.

Browse source
This commit is contained in:
ceriel 1986-10-22 13:36:22 +00:00
parent 0595f74596
commit c19358ee50
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 int ch; /* Current char */
register char *p = ltext; register char *p = ltext;
int reserved = 0; /* reserved word? */ int reserved = 0; /* reserved word? */
int last; /* Char before current char */
char *max = &ltext[LTEXTSZ - 1]; char *max = &ltext[LTEXTSZ - 1];
if (ch = savedtok.t_tokno) { if (ch = savedtok.t_tokno) {
@ -138,13 +137,16 @@ scanner() {
switch(c_class[ch]) { switch(c_class[ch]) {
case ISLIT : case ISLIT :
for (;;) { for (;;) {
last = ch;
ch = input(); ch = input();
if (ch == '\n' || ch == EOF) { if (ch == '\n' || ch == EOF) {
error(linecount,"missing '"); error(linecount,"missing '");
break; break;
} }
if (ch == '\'' && last != '\\') break; if (ch == '\'') break;
if (ch == '\\') {
*p++ = ch;
ch = input();
}
*p++ = ch; *p++ = ch;
if (p > max) p--; if (p > max) p--;
} }