From d9d787f84d80aa322366ee451e4acceb263642b6 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 21 Jul 2009 22:20:41 +0200 Subject: [PATCH] Set the value of the new field array.hasfillp to zero --- src/c/array.d | 1 + 1 file changed, 1 insertion(+) diff --git a/src/c/array.d b/src/c/array.d index 334f96dbd..791303dff 100644 --- a/src/c/array.d +++ b/src/c/array.d @@ -421,6 +421,7 @@ si_make_pure_array(cl_object etype, cl_object dims, cl_object adj, x->array.self.t = NULL; /* for GC sake */ x->array.rank = r; x->array.elttype = (short)ecl_symbol_to_elttype(etype); + x->array.hasfillp = 0; x->array.dims = (cl_index *)ecl_alloc_atomic_align(sizeof(cl_index)*r, sizeof(cl_index)); for (i = 0, s = 1; i < r; i++, dims = ECL_CONS_CDR(dims)) { j = ecl_fixnum_in_range(@'make-array', "dimension",