| 43 |
|
static double ebotch(); |
| 44 |
|
|
| 45 |
|
unsigned int esupport = /* what to support */ |
| 46 |
< |
E_VARIABLE | E_FUNCTION | E_REDEFW; |
| 46 |
> |
E_VARIABLE | E_FUNCTION ; |
| 47 |
|
|
| 48 |
|
int nextc; /* lookahead character */ |
| 49 |
|
|
| 281 |
|
if (!finite(d)) |
| 282 |
|
errno = EDOM; |
| 283 |
|
#endif |
| 284 |
< |
if (errno) { |
| 284 |
> |
if (errno == EDOM || errno == ERANGE) { |
| 285 |
|
wputs("Illegal power\n"); |
| 286 |
|
return(0.0); |
| 287 |
|
} |
| 727 |
|
ep->type = NUM; |
| 728 |
|
errno = 0; |
| 729 |
|
ep->v.num = evalue(epar); |
| 730 |
< |
if (errno) |
| 730 |
> |
if (errno == EDOM || errno == ERANGE) |
| 731 |
|
syntax("bad constant expression"); |
| 732 |
|
epfree(epar); |
| 733 |
|
|