13 |
|
#include "copyright.h" |
14 |
|
|
15 |
|
#include <stdio.h> |
16 |
< |
|
16 |
> |
#include <string.h> |
17 |
|
#include <errno.h> |
18 |
– |
|
18 |
|
#include <math.h> |
19 |
|
|
20 |
|
#include "calcomp.h" |
254 |
|
eputs(actp->name); |
255 |
|
eputs(": argument not a function\n"); |
256 |
|
quit(1); |
257 |
+ |
return NULL; /* pro forma return */ |
258 |
|
} |
259 |
|
|
260 |
|
|
350 |
|
else if (isinf(d)) |
351 |
|
errno = ERANGE; |
352 |
|
#endif |
353 |
< |
if (errno) { |
353 |
> |
if (errno == EDOM || errno == ERANGE) { |
354 |
|
wputs(fname); |
355 |
|
if (errno == EDOM) |
356 |
|
wputs(": domain error\n"); |
386 |
|
{ |
387 |
|
register int n; |
388 |
|
|
389 |
< |
n = argument(1) + .5; |
389 |
> |
n = (int)(argument(1) + .5); |
390 |
|
if (n == 0) |
391 |
|
return(nargum()-1); |
392 |
|
if (n < 1 || n > nargum()-1) { |