| # | Line 358 | Line 358 | libfunc( /* execute library function */ | |
|---|---|---|
| 358 | errno = ERANGE; | |
| 359 | } | |
| 360 | #endif | |
| 361 | < | if (errno == EDOM || errno == ERANGE) { |
| 361 | > | if ((errno == EDOM) | (errno == ERANGE)) { |
| 362 | wputs(fname); | |
| 363 | if (errno == EDOM) | |
| 364 | wputs(": domain error\n"); | |
| # | Line 396 | Line 396 | l_select(char *nm) /* return argument #(A1+1) */ | |
| 396 | double a1 = argument(1); | |
| 397 | int n = (int)(a1 + .5); | |
| 398 | ||
| 399 | < | if (a1 < -.5 || n >= narg) { |
| 399 | > | if ((a1 < -.5) | (n >= narg)) { |
| 400 | errno = EDOM; | |
| 401 | return(0.0); | |
| 402 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |