| # | Line 193 | Line 193 | argument(n) /* return nth argument for active functi | |
|---|---|---|
| 193 | register int n; | |
| 194 | { | |
| 195 | register ACTIVATION *actp = curact; | |
| 196 | < | register EPNODE *ep; |
| 196 | > | register EPNODE *ep = NULL; |
| 197 | double aval; | |
| 198 | ||
| 199 | if (actp == NULL || --n < 0) { | |
| # | Line 344 | Line 344 | VARDEF *vp; | |
| 344 | lasterrno = errno; | |
| 345 | errno = 0; | |
| 346 | d = (*lp->f)(lp->fname); | |
| 347 | < | #ifdef IEEE |
| 347 | > | #ifdef isnan |
| 348 | if (errno == 0) | |
| 349 | if (isnan(d)) | |
| 350 | errno = EDOM; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |