evolve4src/src/evolve_simulator/kforth_execute.cpp
static KFORTH_STACK_NODE *kforth_stack_pop(KFORTH_STACK_NODE **sp)
{
	KFORTH_STACK_NODE *top;

	ASSERT( sp != NULL );
	ASSERT( *sp != NULL );

	top = *sp;
	*sp = (*sp)->prev;
	if( *sp != NULL )
		(*sp)->next = NULL;
	top->prev = NULL;

	return top;
}
/*
 * Remove top element from stack. Requires
 * the stack not be empty.
 *
 * 'sp' is updated to point to the previous 'top' element
 * (or NULL if the stack becomes empty).
 *
 */
Remove top element from stack. Requires
the stack not be empty.

'sp' is updated to point to the previous 'top' element
(or NULL if the stack becomes empty).
Remove top element from stack . Requires the stack not be empty . ' sp ' is updated to point to the previous ' top ' element ( or NULL if the stack becomes empty ) .
static KFORTH_STACK_NODE *kforth_stack_pop(KFORTH_STACK_NODE **sp)
{
	KFORTH_STACK_NODE *top;
	ASSERT( sp != NULL );
	ASSERT( *sp != NULL );
	top = *sp;
	*sp = (*sp)->prev;
	if( *sp != NULL )
		(*sp)->next = NULL;
	top->prev = NULL;
	return top;
}
static KFORTH_STACK_NODE * kforth_stack_pop ( KFORTH_STACK_NODE * * sp ) { KFORTH_STACK_NODE * top ; ASSERT ( sp != NULL ) ; ASSERT ( * sp != NULL ) ; top = * sp ; * sp = ( * sp ) -> prev ; if ( * sp != NULL ) ( * sp ) -> next = NULL ; top -> prev = NULL ; return top ; }
Remove top element from stack.
Remove top element from stack .