libelwix/src/vars.c - diff

Return to vars.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / libelwix / src

version 1.5, 2013/08/22 15:21:25	version 1.7.20.1, 2015/06/25 00:36:48
Line 12 terms:	Line 12 terms:
All of the documentation and software included in the ELWIX and AITNET	All of the documentation and software included in the ELWIX and AITNET
Releases is copyrighted by ELWIX - Sofia/Bulgaria <info@elwix.org>	Releases is copyrighted by ELWIX - Sofia/Bulgaria <info@elwix.org>

Copyright 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013	Copyright 2004 - 2015
by Michael Pounov <misho@elwix.org>. All rights reserved.	by Michael Pounov <misho@elwix.org>. All rights reserved.

Redistribution and use in source and binary forms, with or without	Redistribution and use in source and binary forms, with or without
Line 409 ait_clrVars(array_t * __restrict vars)	Line 409 ait_clrVars(array_t * __restrict vars)
void	void
ait_freeVars(array_t ** __restrict vars)	ait_freeVars(array_t ** __restrict vars)
{	{
	register int i;
	ait_val_t *v;

if (!vars \|\| !*vars)	if (!vars \|\| !*vars)
return;	return;

ait_clrVars(*vars);	for (i = 0; i < array_Size(*vars); i++)
array_Free(*vars);	if ((v = array(vars, i, ait_val_t))) {
	/* free memory if isn't zero copy */
	if (!AIT_IN(v)) {
	AIT_FREE_VAL(v);
	if ((*vars)->arr_data[i])
	e_free((*vars)->arr_data[i]);
	} else
	AIT_FREE_VAL(v);
	(*vars)->arr_data[i] = NULL;
	}
	(*vars)->arr_last = -1;

array_Destroy(vars);	array_Destroy(vars);
}	}