Profile fix and test for it.

1 files changed, 4 insertions, 1 deletions

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);