The InputLevel variable only exists when NOPP is not defined

This commit is contained in:
ceriel 1989-10-12 14:22:35 +00:00
parent 9d08fc6678
commit 10b58a8520
3 changed files with 15 additions and 3 deletions

View file

@ -252,7 +252,11 @@ garbage:
UnGetChar(); UnGetChar();
return ptok->tk_symb = ch; return ptok->tk_symb = ch;
case '/': case '/':
if (nch == '*' && !InputLevel) { if (nch == '*'
#ifndef NOPP
&& !InputLevel
#endif
) {
skipcomment(); skipcomment();
goto again; goto again;
} }

View file

@ -40,18 +40,22 @@ getwdir(fn)
} }
return ""; return "";
} }
int InputLevel;
#endif NOPP #endif NOPP
int NoUnstack; int NoUnstack;
int InputLevel;
AtEoIT() AtEoIT()
{ {
#ifndef NOPP
InputLevel--; InputLevel--;
unstackrepl(); unstackrepl();
#endif NOPP
return 0; return 0;
} }
AtEoIF() AtEoIF()
{ {
#ifndef NOPP #ifndef NOPP

View file

@ -67,7 +67,11 @@ SkipToNewLine(garbage)
while ((ch = GetChar()) != '\n') { while ((ch = GetChar()) != '\n') {
if (ch == '/') { if (ch == '/') {
if ((ch = GetChar()) == '*' && !InputLevel) { if ((ch = GetChar()) == '*'
#ifndef NOPP
&& !InputLevel
#endif
) {
skipcomment(); skipcomment();
continue; continue;
} }