fix char reading after preprocessor comment

diff --git a/src/generic/Dev/Mod/CPR.cp b/src/generic/Dev/Mod/CPR.cp
index 10692154546406bda5ced94d1646285c4b8f265e..b1787397516a9f973992d5c622f678c85bc985c4 100644 (file)
--- 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 (file)
Binary files a/src/generic/Dev/Mod/CPS.odc and b/src/generic/Dev/Mod/CPS.odc differ