From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sat, 14 Dec 2019 20:39:17 +0000 (+0300)
Subject: fix char reading after preprocessor comment
X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=commitdiff_plain;h=450f7a5a7936e5dc1087cb1aa21e748d488b2d2b;hp=50e6c50492b986a1b99b26d158a0e2462662b817

fix char reading after preprocessor comment
---

diff --git a/src/generic/Dev/Mod/CPR.cp b/src/generic/Dev/Mod/CPR.cp
index 1069215..b178739 100644
--- a/src/generic/Dev/Mod/CPR.cp
+++ b/src/generic/Dev/Mod/CPR.cp
@@ -27,7 +27,7 @@ MODULE DevCPR;
     END;
 
   VAR
-    ch: CHAR; (* current character *)
+    ch-: CHAR; (* current character *)
     name: DevCPT.Name; (* ident *)
 
   VAR
@@ -207,7 +207,7 @@ MODULE DevCPR;
   PROCEDURE Parse*;
     VAR val: BOOLEAN; s: Selector;
   BEGIN
-    Get(sym);
+    ch := " "; Get(sym);
     IF sym = new THEN
       Get(sym);
       IF sym = ident THEN
diff --git a/src/generic/Dev/Mod/CPS.odc b/src/generic/Dev/Mod/CPS.odc
index 4d46b3f..3670f18 100644
Binary files a/src/generic/Dev/Mod/CPS.odc and b/src/generic/Dev/Mod/CPS.odc differ