| # | 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 |