From 0e08b8c2e485c355acc4818c1b04a81bc7e150be Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Fri, 7 Jun 2002 14:44:21 +0000
Subject: 17299: Use reference counts in Eprogs so as to be able to free them
 as soon as finished with.

---
 Src/builtin.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Src/builtin.c')

diff --git a/Src/builtin.c b/Src/builtin.c
index 90681fc3a..60971b9e1 100644
--- a/Src/builtin.c
+++ b/Src/builtin.c
@@ -2322,6 +2322,7 @@ mkautofn(Shfunc shf)
     p->strs = NULL;
     p->shf = shf;
     p->npats = 0;
+    p->nref = 1; /* allocated from permanent storage */
     p->pats = (Patprog *) p->prog;
     p->flags = EF_REAL;
     p->dump = NULL;
-- 
cgit v1.2.3