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 |
|
|