--- libelwix/src/array.c	2019/01/22 16:16:45	1.7.2.1
+++ libelwix/src/array.c	2019/01/23 17:34:41	1.8.4.1
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: array.c,v 1.7.2.1 2019/01/22 16:16:45 misho Exp $
+* $Id: array.c,v 1.8.4.1 2019/01/23 17:34:41 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -68,7 +68,7 @@ array_Init(int numItems)
 		e_free(arr);
 		return NULL;
 	} else
-		array_Zero(arr);
+		memset(arr->arr_data, 0, array_Size(arr) * sizeof(intptr_t));
 
 	return arr;
 }
@@ -96,7 +96,7 @@ array_Init2(array_t * __restrict arr, int numItems)
 		e_free(arr);
 		return NULL;
 	} else
-		array_Zero(arr);
+		memset(arr->arr_data, 0, array_Size(arr) * sizeof(intptr_t));
 
 	return arr;
 }
@@ -175,12 +175,10 @@ array_Free(array_t * __restrict arr)
 		return;
 
 	for (i = 0; i < array_Size(arr); i++)
-		if (arr->arr_data[i]) {
+		if (arr->arr_data[i])
 			e_free(arr->arr_data[i]);
-			arr->arr_data[i] = NULL;
-		}
 
-	arr->arr_last = -1;
+	array_Zero(arr);
 }
 
 /*
@@ -221,7 +219,6 @@ array_Reset(array_t * __restrict arr, int purge)
 	}
 
 	array_Zero(arr);
-	arr->arr_last = -1;
 }
 
 /*