1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
/*
\funcref{fun\_asp} {void fun\_asp ()}
{}
{}
{getopcode(), pop(), discard()}
{}
{funasp.c}
{
This function is executed when an {\em op\_asp} opcode
is read from the binary makefile. Following the opcode, an {\em
UNS8} argument is expected which specifies the number of stack
positions to discard.
Function {\em fun\_asp()} repetitively calls {\em pop()} and {\em
discard()} to throw away the stack variables.
}
*/
#include "opcodefun.ih"
void fun_asp ()
{
register size_t idx = (size_t)getopcode(infile);
for ( ; idx--; )
pop();
}
|
