From c160d41490f752f55312f2de91cdd94cc9270141 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Sun, 13 Feb 2011 19:56:21 +0200
Subject: Profile fix and test for it.

---
 array.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'array.c')

diff --git a/array.c b/array.c
index 3dd9a99d..eb5ed941 100644
--- a/array.c
+++ b/array.c
@@ -698,7 +698,10 @@ do_delete(NODE *symbol, int nsubs)
 		if (r->var_array != NULL || nsubs > 1)
 			return;
 		/* else
-				cleared a sub_array, free index */
+			cleared a sub-array, free the array node
+			and the bucket in parent array */
+		efree(r->vname);
+		freenode(r);
 	} else if (--nsubs > 0) {
 		/* e.g.: a[1] = 1; delete a[1][1] */
 		free_subs(nsubs);
-- 
cgit v1.2.3