From a9b0523669c5e25afe65df2adac7a8f071effadb Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Mon, 7 Nov 1994 03:16:05 +0000 Subject: [PATCH] Arrange for WRITE ALL to reference everything. --- interpret.c | 10 ++++++++++ 1 file changed, 10 insertions(+) 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); } -- 2.43.0