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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#include "stackmach.h"
double
i_op_run(int codes[], size_t code_size, double parms[], size_t parm_size) {
double stack[100];
double *sp = stack;
while (code_size) {
switch (*codes++) {
case bcAdd:
sp[-2] += sp[-1];
--sp;
break;
case bcSubtract:
sp[-2] -= sp[-1];
--sp;
break;
case bcDiv:
sp[-2] /= sp[-1];
--sp;
break;
case bcMult:
sp[-2] *= sp[-1];
--sp;
break;
case bcParm:
*sp++ = parms[*codes++];
--code_size;
break;
case bcSin:
sp[-1] = sin(sp[-1]);
break;
case bcCos:
sp[-1] = cos(sp[-1]);
break;
}
--code_size;
}
return sp[-1];
}
|
