Arrange for WRITE ALL to reference everything.

diff --git a/interpret.c b/interpret.c
index 0b3d222842327e9ac3d6a7d32889988220f8c0c8..6a998f41cd1b2188caed3c160f793c42f4fe9bcd 100644 (file)
--- a/interpret.c
+++ b/interpret.c
@@ -139,6 +139,16 @@ static bool r_mark_labels(node *tp)
        }
     }
 
+    /* WRITE ALLs reference everything */
+    if (tp->type == WRITE && tp->car && tp->car->type == ALL)
+    {
+       lvar    *lp;
+
+       for_symbols(lp)
+           if (lp->assigned)
+               lp->used++;
+    }
+
     return(TRUE);
 }