From 450f7a5a7936e5dc1087cb1aa21e748d488b2d2b Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sat, 14 Dec 2019 23:39:17 +0300
Subject: [PATCH] fix char reading after preprocessor comment

---
 src/generic/Dev/Mod/CPR.cp  |   4 ++--
 src/generic/Dev/Mod/CPS.odc | Bin 15907 -> 15902 bytes
 2 files changed, 2 insertions(+), 2 deletions(-)

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 4d46b3f62ca4739e242b658df8627c5908f3a04f..3670f1835ba017505235d5584b5e2bab31387b53 100644
GIT binary patch
delta 144
zcmZ2nGp}YsJ>%?&4RM?=Z5S9h85kHIPJHgl*gaX7(O#I#nt_2ID8vM$A>j1pdd6Ms
z0+EbBZWs##1B(wxeD3C8&YeoqL3#m+Ma8Msyquhz$r%b(whAt(WzGRXddV4+MRi*E
a(Zn_{*ZIoA5}ch`F!`3A$>v9fjywQe*(VJE

delta 150
zcmbPNv$$qLJ>!Cj4RM_BY#10g85kIzO?>XkIAO9bqrEV{H3I`bP>3B!L%`L|^^CjN
zrQ8^S+%Ogf1{NidxF`^_fD|%p-0aD@Q)%*b9lps*I`xzJZA3S3*LlaH;gVYB91x@z
nkXTflYORo;lcHc{s{j`C)k`fZD#$OkRtV0{EZDr?FrEhh^Q0%o

-- 
2.29.2