X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fgeneric%2FDev%2FMod%2FCPR.cp;h=8802469cd23daaa568b389b42399ff165fa6cbca;hp=b3ef0524cb2474b2bafbbd6249c362ad5c3dac04;hb=28eed3a1ff043fd056912fde1864e43e4f79e9e7;hpb=4bf6d419bd3ba4bc8902de1607e60fdced58590d

diff --git a/src/generic/Dev/Mod/CPR.cp b/src/generic/Dev/Mod/CPR.cp
index b3ef052..8802469 100644
--- a/src/generic/Dev/Mod/CPR.cp
+++ b/src/generic/Dev/Mod/CPR.cp
@@ -36,6 +36,7 @@ MODULE DevCPR;
     scope: Selector;
     top: Context;
     skip-: BOOLEAN;
+    used-: BOOLEAN;
 
   PROCEDURE err (n: SHORTINT);
   BEGIN DevCPM.err(n)
@@ -187,7 +188,7 @@ MODULE DevCPR;
     VAR c: Context;
   BEGIN
     NEW(c); c.next := top; c.alt := FALSE; c.val := cond; c.ref := 0; top := c;
-    INC(fold); skip := ~Printable()
+    INC(fold); skip := ~Printable(); used := TRUE
   END If;
 
   PROCEDURE Else;
@@ -259,7 +260,7 @@ MODULE DevCPR;
   BEGIN
     ch := " "; sym := eof; name := "";
     fold := 0; top := NIL; scope := NIL;
-    skip := FALSE
+    skip := FALSE; used := FALSE
   END Close;
 
   PROCEDURE Init*;
@@ -269,7 +270,8 @@ MODULE DevCPR;
     If(TRUE);
     NEW(scope);
     Set("TRUE", TRUE);
-    Set("FALSE", FALSE)
+    Set("FALSE", FALSE);
+    used := FALSE
   END Init;
 
 END DevCPR.