702 |
|
|
703 |
|
|
704 |
|
static double /* evaluate a variable */ |
705 |
< |
dvalue(char *name, EPNODE *d) |
705 |
> |
dvalue(char *name, EPNODE *d) |
706 |
|
{ |
707 |
|
EPNODE *ep1, *ep2; |
708 |
|
|
714 |
|
ep1 = d->v.kid->sibling; /* get expression */ |
715 |
|
if (ep1->type == NUM) |
716 |
|
return(ep1->v.num); /* return if number */ |
717 |
+ |
if (esupport&E_RCONST && d->type == ':') { |
718 |
+ |
wputs(name); |
719 |
+ |
wputs(": assigned non-constant value\n"); |
720 |
+ |
} |
721 |
|
ep2 = ep1->sibling; /* check time */ |
722 |
|
if (eclock >= MAXCLOCK) |
723 |
|
eclock = 1; /* wrap clock counter */ |