/* If expression is a numeric constant, fills 'v' with its value and returns 1. Otherwise, returns 0.  */
static int tonumeral(const expdesc *e, TValue *v)
/* If expression is a numeric constant, fills 'v' with its value and returns 1. Otherwise, returns 0.  */
static int tonumeral(const expdesc *e, TValue *v)
{
    case VKINT:
      if (v) setivalue(v, e->u.ival);
      return 1;
    case VKFLT:
      if (v) setfltvalue(v, e->u.nval);
      return 1;
    default: return 0;
  }
}