The InputLevel variable only exists when NOPP is not defined

diff --git a/lang/cem/cemcom.ansi/LLlex.c b/lang/cem/cemcom.ansi/LLlex.c
index 9856912..d3e9f78 100644 (file)
--- 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 3f62509..8ff07ce 100644 (file)
--- 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 7a06c78..599313e 100644 (file)
--- 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;
                        }