diff --git a/lang/cem/cemcom.ansi/LLlex.c b/lang/cem/cemcom.ansi/LLlex.c index 98569128..d3e9f788 100644 --- a/lang/cem/cemcom.ansi/LLlex.c +++ b/lang/cem/cemcom.ansi/LLlex.c @@ -252,7 +252,11 @@ garbage: UnGetChar(); return ptok->tk_symb = ch; case '/': - if (nch == '*' && !InputLevel) { + if (nch == '*' +#ifndef NOPP + && !InputLevel +#endif + ) { skipcomment(); goto again; } diff --git a/lang/cem/cemcom.ansi/input.c b/lang/cem/cemcom.ansi/input.c index 3f625090..8ff07ceb 100644 --- a/lang/cem/cemcom.ansi/input.c +++ b/lang/cem/cemcom.ansi/input.c @@ -40,18 +40,22 @@ getwdir(fn) } return ""; } + +int InputLevel; #endif NOPP int NoUnstack; -int InputLevel; AtEoIT() { +#ifndef NOPP InputLevel--; unstackrepl(); +#endif NOPP return 0; } + AtEoIF() { #ifndef NOPP diff --git a/lang/cem/cemcom.ansi/skip.c b/lang/cem/cemcom.ansi/skip.c index 7a06c788..599313e8 100644 --- a/lang/cem/cemcom.ansi/skip.c +++ b/lang/cem/cemcom.ansi/skip.c @@ -67,7 +67,11 @@ SkipToNewLine(garbage) while ((ch = GetChar()) != '\n') { if (ch == '/') { - if ((ch = GetChar()) == '*' && !InputLevel) { + if ((ch = GetChar()) == '*' +#ifndef NOPP + && !InputLevel +#endif + ) { skipcomment(); continue; }