fix char reading after preprocessor comment

[cpc.git] / src / generic / Dev / Mod / CPR.cp

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