From ae35b6798655bdb64a503722305201bd8d12782b Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 6 Feb 2012 22:12:22 +0100 Subject: [PATCH] In #*, when the dimension is missing, the size of the vector is uninitialized (Jerry James) --- src/c/read.d | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/read.d b/src/c/read.d index e12575134..5bdb9902f 100644 --- a/src/c/read.d +++ b/src/c/read.d @@ -889,8 +889,8 @@ sharp_asterisk_reader(cl_object in, cl_object c, cl_object d) FEreader_error("Too many elements in #*.", in, 0); unlikely_if (dim && (dimcount == 0)) FEreader_error("Cannot fill the bit-vector #*.", in, 0); - last = ECL_STACK_REF(env,-1); } + last = ECL_STACK_REF(env,-1); x = ecl_alloc_simple_vector(dim, aet_bit); for (i = 0; i < dim; i++) { elt = (i < dimcount) ? env->stack[sp+i] : last;