--- libaitio/src/Attic/vars.c 2012/05/18 12:45:34 1.7.2.3 +++ libaitio/src/Attic/vars.c 2012/05/18 13:37:48 1.7.2.4 @@ -3,7 +3,7 @@ * by Michael Pounov * * $Author: misho $ -* $Id: vars.c,v 1.7.2.3 2012/05/18 12:45:34 misho Exp $ +* $Id: vars.c,v 1.7.2.4 2012/05/18 13:37:48 misho Exp $ * ************************************************************************** The ELWIX and AITNET software is distributed under the following @@ -510,16 +510,18 @@ io_getVars(array_t ** __restrict vars, int n) if (!(*vars = io_arrayInit(n + 1))) return NULL; } else { - if (n >= io_arraySize(*vars) && io_arrayGrow(*vars, n + 1, 0)) - return NULL; + if (n >= io_arraySize(*vars)) { + if (io_arrayGrow(*vars, n + 1, 0)) + return NULL; + if ((v = io_allocVar())) + return NULL; + else + io_arraySet(*vars, n, v); + return v; + } } - if ((v = io_allocVar())) - return NULL; - else - io_arraySet(*vars, n, v); - - return v; + return io_array(*vars, n, ait_val_t*); } /*