From: Eric S. Raymond <esr@thyrsus.com>
Date: Mon, 7 Nov 1994 03:16:05 +0000 (+0000)
Subject: Arrange for WRITE ALL to reference everything.
X-Git-Tag: 1-2~66
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=a9b0523669c5e25afe65df2adac7a8f071effadb;p=cupl.git

Arrange for WRITE ALL to reference everything.
---

diff --git a/interpret.c b/interpret.c
index 0b3d222..6a998f4 100644
--- 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);
 }