1
/*----------------------------------------------------------------------*\
5
Stack Handling for Alan interpreter
7
\*----------------------------------------------------------------------*/
20
/* The AMACHINE STACK */
21
static Aptr stack[STACKSIZE];
22
static int stackp = 0;
32
if (stackp == STACKSIZE)
33
syserr("Out of stack space.");
45
syserr("Stack underflow.");
46
return(stack[--stackp]);
56
return(stack[stackp-1]);