File Coverage

stackmach.c

Criterion	Covered	Total	%
statement	0	32	0.0
branch	0	2	0.0
condition			n/a
subroutine			n/a
pod			n/a
total	0	34	0.0

#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];
}