fix a fence post error validating a combing mode number
[imager.git] / stackmach.c
1 #include "stackmach.h"
2
3 double
4 i_op_run(int codes[], size_t code_size, double parms[], size_t parm_size) {
5   double stack[100];
6   double *sp = stack;
7
8   while (code_size) {
9     switch (*codes++) {
10     case bcAdd:
11       sp[-2] += sp[-1];
12       --sp;
13       break;
14
15     case bcSubtract:
16       sp[-2] -= sp[-1];
17       --sp;
18       break;
19
20     case bcDiv:
21       sp[-2] /= sp[-1];
22       --sp;
23       break;
24
25     case bcMult:
26       sp[-2] *= sp[-1];
27       --sp;
28       break;
29
30     case bcParm:
31       *sp++ = parms[*codes++];
32       --code_size;
33       break;
34
35     case bcSin:
36       sp[-1] = sin(sp[-1]);
37       break;
38       
39     case bcCos:
40       sp[-1] = cos(sp[-1]);
41       break;
42       
43     }
44     --code_size;
45   }
46   
47   return sp[-1];
48 }
49