19 lines
497 B
C
19 lines
497 B
C
extern Push(); /* (token_p tkp)
|
|
* Push the token in tkp on the fake-stack.
|
|
*/
|
|
|
|
extern Pop(); /* (token_p tkp; offset size)
|
|
* 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.
|
|
*/
|
|
|
|
extern Dup(); /* (line_p lnp)
|
|
* Reflect the changes made by the dup-instruction
|
|
* in lnp to the EM-stack into the fake-stack.
|
|
*/
|
|
|
|
extern clr_stack(); /* ()
|
|
* Clear the fake-stack.
|
|
*/
|