Project/Real_code/gnu/gawk-3.1.3/eval.c
static void
pop_forloop()
{
	int i, curloop;
	struct loop_info *loop;

	assert(nloops_active > 0);

	curloop = --nloops_active;	/* 0-based indexing */
	loop = & loop_stack[curloop];

	for (i = 0; i < loop->nelems; i++)
		unref(loop->elems[i]);

	free(loop->elems);

	loop->elems = NULL;
	loop->varname = NULL;
	loop->nelems = 0;
}
/* pop_forloop --- pop one for loop off the stack */
pop one for loop off the stack
pop one for loop off the stack
static void
pop_forloop()
{
	int i, curloop;
	struct loop_info *loop;
	assert(nloops_active > 0);
	curloop = --nloops_active;	
	loop = & loop_stack[curloop];
	for (i = 0; i < loop->nelems; i++)
		unref(loop->elems[i]);
	free(loop->elems);
	loop->elems = NULL;
	loop->varname = NULL;
	loop->nelems = 0;
}
static void pop_forloop ( ) { int i , curloop ; struct loop_info * loop ; assert ( nloops_active > 0 ) ; curloop = -- nloops_active ; loop = & loop_stack [ curloop ] ; for ( i = 0 ; i < loop -> nelems ; i ++ ) unref ( loop -> elems [ i ] ) ; free ( loop -> elems ) ; loop -> elems = NULL ; loop -> varname = NULL ; loop -> nelems = 0 ; }
pop_forloop --- pop one for loop off the stack
pop_forloop --- pop one for loop off the stack
/* 0-based indexing */