[unix-history] / usr / src / cmd / apl / an.c

#

#include "apl.h"

/*
 *	name line
 */

char	headline[] = {
	"a p l ? 1 1    `` 1 june 1979 ``\n"
};

int	cs_size = STKS;		/* Current stack size */

newstak()
{
register struct item **news, **olds;
register i;
struct	 item **oldstak;
unsignd	 diff;

#ifdef TRACE
	aprintf("\nnew stack allocated\n");
#endif

	diff = sp - stack;
	olds = stack;oldstak	= stack;
	stack	= alloc((cs_size+STKS)*sizeof(stack));news = stack;
	for(i=0; i<cs_size; ++i)
		*news++ = *olds++;
	cs_size += STKS;
	afree(oldstak);
	staktop = &stack[cs_size-1];
	sp = &stack[diff];
}
Commit	Line	Data
ae063bdb KT	1	#
	2
	3	#include "apl.h"
	4
	5	/*
	6	* name line
	7	*/
	8
	9	char headline[] = {
	10	"a p l ? 1 1 `` 1 june 1979 ``\n"
	11	};
	12
	13	int cs_size = STKS; /* Current stack size */
	14
	15	newstak()
	16	{
	17	register struct item news, olds;
	18	register i;
	19	struct item **oldstak;
	20	unsignd diff;
	21
	22	#ifdef TRACE
	23	aprintf("\nnew stack allocated\n");
	24	#endif
	25
	26	diff = sp - stack;
	27	olds = stack;oldstak = stack;
	28	stack = alloc((cs_size+STKS)*sizeof(stack));news = stack;
	29	for(i=0; i<cs_size; ++i)
	30	news++ = olds++;
	31	cs_size += STKS;
	32	afree(oldstak);
	33	staktop = &stack[cs_size-1];
	34	sp = &stack[diff];
	35	}