DevCPR: mark when condition compilation used

diff --git a/src/generic/Dev/Mod/CPR.cp b/src/generic/Dev/Mod/CPR.cp
index b3ef0524cb2474b2bafbbd6249c362ad5c3dac04..8802469cd23daaa568b389b42399ff165fa6cbca 100644 (file)
--- 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.