/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* execqfxj APL2 V1.0.0 ************************************************
* Called from execqfxb and apledit to initialize arrays in the function*
* definition structure dependent on statement count.                   *
***********************************************************************/
#define INCLUDES APLCB+APLFUNCI+APLMEM+APLTOKEN
#include "includes.h"
void execqfxj(fp)
struct aplfunc *fp; /* function definition structure */
{
	Apltoken *tokary;
	int stmtcnt,stmtno;

	stmtcnt = fp->funcstmt; /* number of statements */
	fp->functokp = malloc(stmtcnt * sizeof(struct apltoken *));
	fp->functokc = malloc(stmtcnt * sizeof(int));
	if (NULL == fp->functokp || NULL == fp->functokc)
		return; /* out of memory - malloc will have set aplerr */
	tokary = fp->functokp;
	for (stmtno = 0; stmtno < stmtcnt; stmtno++)
		*tokary++ = NULL; /* initialize the head pointers */
}