1985-01-21 12:47:04 +00:00
|
|
|
/* $Header$ */
|
1984-11-29 14:22:02 +00:00
|
|
|
|
|
|
|
|
#define MAXNESTING 1000
|
|
|
|
|
|
|
|
|
|
int _gotable[MAXNESTING];
|
|
|
|
|
int topstk=0;
|
|
|
|
|
|
|
|
|
|
_gosub(x)
|
|
|
|
|
int x;
|
|
|
|
|
{
|
|
|
|
|
/* administer gosub */
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
printf("store %d in %d\n",x,topstk);
|
|
|
|
|
#endif
|
|
|
|
|
if( topstk== MAXNESTING) error(26);
|
|
|
|
|
_gotable[topstk]= x;
|
|
|
|
|
topstk++;
|
|
|
|
|
}
|
|
|
|
|
_retstmt()
|
|
|
|
|
{
|
|
|
|
|
/* make sure that a return label index is on top
|
|
|
|
|
of the stack */
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
printf("return to %d %d\n",_gotable[topstk-1],topstk-1);
|
|
|
|
|
#endif
|
|
|
|
|
if( topstk==0 || topstk==MAXNESTING)
|
|
|
|
|
error(1);
|
|
|
|
|
return( _gotable[--topstk]);
|
|
|
|
|
}
|
