# | Line 13 | Line 13 | static const char RCSid[] = "$Id$"; | |
---|---|---|
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" | |
# | Line 255 | Line 254 | badarg: | |
254 | eputs(actp->name); | |
255 | eputs(": argument not a function\n"); | |
256 | quit(1); | |
257 | + | return NULL; /* pro forma return */ |
258 | } | |
259 | ||
260 | ||
# | Line 386 | Line 386 | l_select() /* return argument #(A1+1) */ | |
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) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |