diff options
Diffstat (limited to 'contrib/libf2c/libU77/fputc_.c')
-rw-r--r-- | contrib/libf2c/libU77/fputc_.c | 35 |
1 files changed, 13 insertions, 22 deletions
diff --git a/contrib/libf2c/libU77/fputc_.c b/contrib/libf2c/libU77/fputc_.c index 5a1109e..7e45dd4 100644 --- a/contrib/libf2c/libU77/fputc_.c +++ b/contrib/libf2c/libU77/fputc_.c @@ -26,38 +26,29 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" #include "fio.h" -#ifdef KR_headers -integer G77_fputc_0 (lunit, c, Lc) - integer *lunit; - ftnlen Lc; /* should be 1 */ - char *c; -#else -integer G77_fputc_0 (const integer *lunit, const char *c, const ftnlen Lc) -#endif +integer +G77_fputc_0 (const integer * lunit, const char *c, + const ftnlen Lc __attribute__ ((__unused__))) { int err; FILE *f = f__units[*lunit].ufd; - if (*lunit>=MXUNIT || *lunit<0) + if (*lunit >= MXUNIT || *lunit < 0) return 101; /* bad unit error */ err = putc (c[0], f); - if (err == EOF) { - if (feof (f)) - return -1; - else - return ferror (f); - } + if (err == EOF) + { + if (feof (f)) + return -1; + else + return ferror (f); + } else return 0; } -#ifdef KR_headers -integer G77_fput_0 (c, Lc) - ftnlen Lc; /* should be 1 */ - char *c; -#else -integer G77_fput_0 (const char *c, const ftnlen Lc) -#endif +integer +G77_fput_0 (const char *c, const ftnlen Lc) { integer six = 6; |