1994-06-24 11:31:16 +00:00
|
|
|
/* $Id$ */
|
1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
2018-02-05 21:09:30 +00:00
|
|
|
extern void Push(token_p tkp);
|
|
|
|
|
/*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Push the token in tkp on the fake-stack.
|
|
|
|
|
*/
|
|
|
|
|
|
2018-02-05 21:09:30 +00:00
|
|
|
extern void Pop(token_p tkp, offset size);
|
|
|
|
|
/*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Pop a token of size bytes from the fake-stack
|
|
|
|
|
* into tkp. If such a token is not there
|
|
|
|
|
* we put a dummy in tkp and adjust the fake-stack.
|
|
|
|
|
*/
|
|
|
|
|
|
2018-02-05 21:09:30 +00:00
|
|
|
extern void Dup(line_p lnp);
|
|
|
|
|
/*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Reflect the changes made by the dup-instruction
|
|
|
|
|
* in lnp to the EM-stack into the fake-stack.
|
|
|
|
|
*/
|
|
|
|
|
|
2018-02-05 21:09:30 +00:00
|
|
|
extern void clr_stack(void);
|
|
|
|
|
/*
|
1984-11-26 13:43:22 +00:00
|
|
|
* Clear the fake-stack.
|
|
|
|
|
*/
|
