# | Line 382 | Line 382 | register VARDEF *vp; | |
---|---|---|
382 | errno = 0; | |
383 | d = (*vp->lib->f)(vp->lib->fname); | |
384 | #ifdef IEEE | |
385 | < | if (!finite(d)) |
386 | < | errno = EDOM; |
385 | > | if (errno == 0) |
386 | > | if (isnan(d)) |
387 | > | errno = EDOM; |
388 | > | else if (isinf(d)) |
389 | > | errno = ERANGE; |
390 | #endif | |
391 | if (errno) { | |
392 | wputs(fname); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |