Fixed a small bug where two line number directives next to each other wouldn't

be parsed properly (the second one would be treated as Modula-2 syntax).
This commit is contained in:
David Given 2016-08-13 12:21:16 +02:00
parent 8e869b56e7
commit dbf8332bf0

View file

@ -188,6 +188,7 @@ CheckForLineDirective()
register char *c = buf; register char *c = buf;
for (;;) {
if (ch != '#') { if (ch != '#') {
PushBack(); PushBack();
return; return;
@ -238,6 +239,7 @@ CheckForLineDirective()
} }
LineNumber = i; LineNumber = i;
} }
}
STATIC STATIC
CheckForLet() CheckForLet()