X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fgeneric%2FDev%2FMod%2FCPR.cp;h=b1787397516a9f973992d5c622f678c85bc985c4;hp=10692154546406bda5ced94d1646285c4b8f265e;hb=450f7a5a7936e5dc1087cb1aa21e748d488b2d2b;hpb=50e6c50492b986a1b99b26d158a0e2462662b817

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