/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* execinit APL2 V1.0.0 ************************************************
* Called from execexec, execexej, and execspex to create and push on   *
* the stack a new execstk element.                                     *
***********************************************************************/
#define INCLUDES APLMEM+TREE
#include "includes.h"
void execinit()
{
	extern Treelist treehdr;
	Execstk new;

	if (NULL != (new = malloc(sizeof(struct execstk)))) {
		new->execnxt = treehdr->avlexec;
		treehdr->avlexec = new;
		new->avlfunst = NULL;
		new->avloprst = NULL;
	}
}