/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* execgetp APL2 V1.0.0 ************************************************
* Called by execaxit and slashtra.                                     *
* Called during execute processing to return the aplcb pointer         *
* associated with a token, after freeing the token structure.  Handles *
* operand indexing.                                                    *
***********************************************************************/
#define INCLUDES APLCB+APLTOKEN
#include "includes.h"
Aplcb execgetp(tok)
Apltoken tok; /* operand token */
{
	Errstop; Execfree; Execgetr;
     Aplcb out;

     out = execgetr(tok);
     execfree(tok);
     return(errstop(0,NULL,NULL,out));
}