/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* execterm APL2 V1.0.0 ************************************************
* Called from - aplclean, execexej, execexek, execspee, execspem, and  *
* funcmain and funcsusp to pop and delete the top execstk element,     *
* which is pushed on avlexec by a call to execinit.                    *
***********************************************************************/
#define INCLUDES APLMEM+APLTOKEN+TREE
#include "includes.h"
void execterm(void)
{
	Execpop; Pop;
	extern Treelist treehdr;
	Execstk old;

	old = pop(&(treehdr->avlexec));
	execpop(&(old->avlfunst));
	execpop(&(old->avloprst));
	free(old);
}