From 10b58a85202bc6eae6c977c88ca91953f7a58e6e Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 12 Oct 1989 14:22:35 +0000
Subject: [PATCH] The InputLevel variable only exists when NOPP is not defined

---
 lang/cem/cemcom.ansi/LLlex.c | 6 +++++-
 lang/cem/cemcom.ansi/input.c | 6 +++++-
 lang/cem/cemcom.ansi/skip.c  | 6 +++++-
 3 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/lang/cem/cemcom.ansi/LLlex.c b/lang/cem/cemcom.ansi/LLlex.c
index 985691281..d3e9f788f 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 3f6250908..8ff07cebb 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 7a06c7881..599313e86 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;
 			}
-- 
2.34.1