summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--libf2c/ChangeLog22
-rw-r--r--libf2c/libF77/main.c1
-rw-r--r--libf2c/libI77/dfe.c3
-rw-r--r--libf2c/libI77/due.c1
-rw-r--r--libf2c/libI77/err.c3
-rw-r--r--libf2c/libI77/fmt.c10
-rw-r--r--libf2c/libI77/iio.c4
-rw-r--r--libf2c/libI77/lread.c3
-rw-r--r--libf2c/libI77/lwrite.c2
-rw-r--r--libf2c/libI77/open.c1
-rw-r--r--libf2c/libI77/rdfmt.c2
-rw-r--r--libf2c/libI77/rsfe.c4
-rw-r--r--libf2c/libI77/rsne.c3
-rw-r--r--libf2c/libI77/sfe.c1
-rw-r--r--libf2c/libI77/sue.c1
-rw-r--r--libf2c/libI77/uio.c1
-rw-r--r--libf2c/libI77/wref.c2
-rw-r--r--libf2c/libI77/wrtfmt.c3
18 files changed, 62 insertions, 5 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 2d4db47350d..3d9b554ea1f 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,25 @@
+Sun Jun 2 08:59:50 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
+
+ * libF77/main.c (main): Avoid implicit int.
+ * libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise.
+ * libI77/due.c (c_due): Likewise.
+ * libI77/err.c (f__canseek, f__nowreading, f__nowwriting):
+ Likewise.
+ * libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio):
+ Likewise.
+ * libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise.
+ * libI77/lread.c (t_getc, c_le, l_read): Likewise.
+ * libI77/lwrite.c (l_write): Likewise.
+ * libI77/open.c (fk_open): Likewise.
+ * libI77/rdfmt.c (rd_ed, rd_ned): Likewise.
+ * libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise.
+ * libI77/rsne.c (t_getc, x_rsne): Likewise.
+ * libI77/sfe.c (c_sfe): Likewise.
+ * libI77/sue.c (c_sue): Likewise.
+ * libI77/uio.c (do_us): Likewise.
+ * libI77/wref.c (wrt_E, wrt_F): Likewise.
+ * libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise.
+
Sun Jun 2 08:58:05 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* libI77/rdfmt.c (rd_I): Delete unused variable(s).
diff --git a/libf2c/libF77/main.c b/libf2c/libF77/main.c
index c2dc88722f2..d1b4f4bf7ca 100644
--- a/libf2c/libF77/main.c
+++ b/libf2c/libF77/main.c
@@ -14,6 +14,7 @@ extern int atexit (void (*)(void));
extern void f_init (void);
extern int MAIN__ (void);
+int
main (int argc, char **argv)
{
f_setarg (argc, argv);
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c
index ba8004c661f..e91bb38408d 100644
--- a/libf2c/libI77/dfe.c
+++ b/libf2c/libI77/dfe.c
@@ -3,6 +3,7 @@
#include "fio.h"
#include "fmt.h"
+int
y_rsk (void)
{
if (f__curunit->uend || f__curunit->url <= f__recpos
@@ -16,6 +17,7 @@ y_rsk (void)
return 0;
}
+int
y_getc (void)
{
int ch;
@@ -66,6 +68,7 @@ y_newrec (void)
return (1);
}
+int
c_dfe (cilist * a)
{
f__sequential = 0;
diff --git a/libf2c/libI77/due.c b/libf2c/libI77/due.c
index 709136ceb1e..310c6139235 100644
--- a/libf2c/libI77/due.c
+++ b/libf2c/libI77/due.c
@@ -2,6 +2,7 @@
#include "f2c.h"
#include "fio.h"
+int
c_due (cilist * a)
{
if (f__init != 1)
diff --git a/libf2c/libI77/err.c b/libf2c/libI77/err.c
index 94302f31c33..1a204e820bc 100644
--- a/libf2c/libI77/err.c
+++ b/libf2c/libI77/err.c
@@ -75,6 +75,7 @@ char *F_err[] = {
};
#define MAXERR (sizeof(F_err)/sizeof(char *)+100)
+int
f__canseek (FILE * f) /*SYSDEP*/
{
#ifdef NON_UNIX_STDIO
@@ -199,6 +200,7 @@ f_init (void)
p->uwrt = 1;
}
+int
f__nowreading (unit * x)
{
off_t loc;
@@ -229,6 +231,7 @@ done:
return 0;
}
+int
f__nowwriting (unit * x)
{
off_t loc;
diff --git a/libf2c/libI77/fmt.c b/libf2c/libI77/fmt.c
index 7443cbab8da..fa9b73cd60e 100644
--- a/libf2c/libI77/fmt.c
+++ b/libf2c/libI77/fmt.c
@@ -43,7 +43,7 @@ ap_end (char *s)
/*NOTREACHED*/ return 0;
}
-static
+static int
op_gen (int a, int b, int c, int d)
{
struct syl *p = &f__syl[f__pc];
@@ -105,7 +105,7 @@ f_s (char *s, int curloc)
return (s);
}
-static
+static int
ne_d (char *s, char **p)
{
int n, x, sign = 0;
@@ -228,7 +228,7 @@ ne_d (char *s, char **p)
return (1);
}
-static
+static int
e_d (char *s, char **p)
{
int i, im, n, w, d, e, found = 0, x = 0;
@@ -405,6 +405,7 @@ f_list (char *s)
return (NULL);
}
+int
pars_f (char *s)
{
char *e;
@@ -445,7 +446,7 @@ pars_f (char *s)
int f__cnt[STKSZ], f__ret[STKSZ], f__cp, f__rp;
flag f__workdone, f__nonl;
-static
+static int
type_f (int n)
{
switch (n)
@@ -586,6 +587,7 @@ do_fio (ftnint * number, char *ptr, ftnlen len)
return (0);
}
+int
en_fio (void)
{
ftnint one = 1;
diff --git a/libf2c/libI77/iio.c b/libf2c/libI77/iio.c
index 435b4b6c24a..a660a38f991 100644
--- a/libf2c/libI77/iio.c
+++ b/libf2c/libI77/iio.c
@@ -6,6 +6,7 @@ char *f__icend;
extern icilist *f__svic;
int f__icnum;
extern int f__hiwater;
+int
z_getc (void)
{
if (f__recpos++ < f__svic->icirlen)
@@ -23,6 +24,7 @@ z_putc (int c)
if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen)
*f__icptr++ = c;
}
+int
z_rnew (void)
{
f__icptr = f__svic->iciunit + (++f__icnum) * f__svic->icirlen;
@@ -39,6 +41,7 @@ z_endp (void)
return 0;
}
+int
c_si (icilist * a)
{
if (f__init & 2)
@@ -88,6 +91,7 @@ s_rsfi (icilist * a)
return (0);
}
+int
z_wnew (void)
{
if (f__recpos < f__hiwater)
diff --git a/libf2c/libI77/lread.c b/libf2c/libI77/lread.c
index b19c2d5e1a7..de6257d4557 100644
--- a/libf2c/libI77/lread.c
+++ b/libf2c/libI77/lread.c
@@ -65,6 +65,7 @@ un_getc (int x, FILE * f__cf)
extern int ungetc (int, FILE *); /* for systems with a buggy stdio.h */
#endif
+int
t_getc (void)
{
int ch;
@@ -662,6 +663,7 @@ have_lcount:
}
}
+int
c_le (cilist * a)
{
if (f__init != 1)
@@ -682,6 +684,7 @@ c_le (cilist * a)
return (0);
}
+int
l_read (ftnint * number, char *ptr, ftnlen len, ftnint type)
{
#define Ptr ((flex *)ptr)
diff --git a/libf2c/libI77/lwrite.c b/libf2c/libI77/lwrite.c
index c67bffce5be..da4a8e94ea9 100644
--- a/libf2c/libI77/lwrite.c
+++ b/libf2c/libI77/lwrite.c
@@ -207,6 +207,8 @@ lwrt_C (double a, double b)
l_put (bb);
PUT (')');
}
+
+int
l_write (ftnint * number, char *ptr, ftnlen len, ftnint type)
{
#define Ptr ((flex *)ptr)
diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c
index 8a2b1630f44..72816d693e1 100644
--- a/libf2c/libI77/open.c
+++ b/libf2c/libI77/open.c
@@ -277,6 +277,7 @@ f_open (olist * a)
return (0);
}
+int
fk_open (int seq, int fmt, ftnint n)
{
char nbuf[10];
diff --git a/libf2c/libI77/rdfmt.c b/libf2c/libI77/rdfmt.c
index 5371dc3a721..d5198c1def1 100644
--- a/libf2c/libI77/rdfmt.c
+++ b/libf2c/libI77/rdfmt.c
@@ -510,6 +510,7 @@ rd_POS (char *s)
return (1);
}
+int
rd_ed (struct syl * p, char *ptr, ftnlen len)
{
int ch;
@@ -584,6 +585,7 @@ rd_ed (struct syl * p, char *ptr, ftnlen len)
return (errno);
}
+int
rd_ned (struct syl * p)
{
switch (p->op)
diff --git a/libf2c/libI77/rsfe.c b/libf2c/libI77/rsfe.c
index fb332a4bffe..0faef18e072 100644
--- a/libf2c/libI77/rsfe.c
+++ b/libf2c/libI77/rsfe.c
@@ -4,6 +4,7 @@
#include "fio.h"
#include "fmt.h"
+int
xrd_SL (void)
{
int ch;
@@ -18,6 +19,7 @@ xrd_SL (void)
return (1);
}
+int
x_getc (void)
{
int ch;
@@ -43,12 +45,14 @@ x_getc (void)
return (-1);
}
+int
x_endp (void)
{
xrd_SL ();
return f__curunit->uend == 1 ? EOF : 0;
}
+int
x_rev (void)
{
(void) xrd_SL ();
diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c
index 9838f215250..85834c95ebc 100644
--- a/libf2c/libI77/rsne.c
+++ b/libf2c/libI77/rsne.c
@@ -40,7 +40,7 @@ extern ftnlen f__typesize[];
extern flag f__lquit;
extern int f__lcount, nml_read;
-extern t_getc (void);
+extern int t_getc (void);
#undef abs
#undef min
@@ -262,6 +262,7 @@ print_ne (cilist * a)
static char where0[] = "namelist read start ";
+int
x_rsne (cilist * a)
{
int ch, got1, k, n, nd, quote, readall;
diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
index 9b5212269a7..8f05e480662 100644
--- a/libf2c/libI77/sfe.c
+++ b/libf2c/libI77/sfe.c
@@ -15,6 +15,7 @@ e_rsfe (void)
return (n);
}
+int
c_sfe (cilist * a) /* check */
{
unit *p;
diff --git a/libf2c/libI77/sue.c b/libf2c/libI77/sue.c
index 70cff92c300..d4f942663d9 100644
--- a/libf2c/libI77/sue.c
+++ b/libf2c/libI77/sue.c
@@ -4,6 +4,7 @@
extern uiolen f__reclen;
off_t f__recloc;
+int
c_sue (cilist * a)
{
f__external = f__sequential = 1;
diff --git a/libf2c/libI77/uio.c b/libf2c/libI77/uio.c
index 0ee743bd710..8a66f06dc62 100644
--- a/libf2c/libI77/uio.c
+++ b/libf2c/libI77/uio.c
@@ -3,6 +3,7 @@
#include <sys/types.h>
uiolen f__reclen;
+int
do_us (ftnint * number, char *ptr, ftnlen len)
{
if (f__reading)
diff --git a/libf2c/libI77/wref.c b/libf2c/libI77/wref.c
index 4f350887d69..284bf9d1c72 100644
--- a/libf2c/libI77/wref.c
+++ b/libf2c/libI77/wref.c
@@ -13,6 +13,7 @@
#include "fmt.h"
#include "fp.h"
+int
wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
{
char buf[FMAX + EXPMAXDIGS + 4], *s, *se;
@@ -203,6 +204,7 @@ wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
return 0;
}
+int
wrt_F (ufloat * p, int w, int d, ftnlen len)
{
int d1, sign, n;
diff --git a/libf2c/libI77/wrtfmt.c b/libf2c/libI77/wrtfmt.c
index c2a440fcb90..0190f7135ed 100644
--- a/libf2c/libI77/wrtfmt.c
+++ b/libf2c/libI77/wrtfmt.c
@@ -247,6 +247,7 @@ wrt_H (int a, char *s)
return (1);
}
+int
wrt_L (Uint * n, int len, ftnlen sz)
{
int i;
@@ -320,6 +321,7 @@ wrt_G (ufloat * p, int w, int d, int e, ftnlen len)
return (wrt_E (p, w, d, e, len));
}
+int
w_ed (struct syl * p, char *ptr, ftnlen len)
{
int i;
@@ -369,6 +371,7 @@ w_ed (struct syl * p, char *ptr, ftnlen len)
}
}
+int
w_ned (struct syl * p)
{
switch (p->op)
View Lorry Controller Status