mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-04 09:14:04 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

main.c (main): Avoid implicit int.

Browse Source 
* 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.

From-SVN: r54169
This commit is contained in:
Kaveh R. Ghazi 2002-06-02 13:01:12 +00:00 committed by Kaveh Ghazi
parent 682413221b
commit 1fc04640bb
18 changed files with 62 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
libf2c/ChangeLog
View File

@ -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).

1
libf2c/libF77/main.c
View File

@ -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);

3
libf2c/libI77/dfe.c
View File

@ -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;

1
libf2c/libI77/due.c
View File

@ -2,6 +2,7 @@
#include "f2c.h"
#include "fio.h"
int
c_due (cilist * a)
{
if (f__init != 1)

3
libf2c/libI77/err.c
View File

@ -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;

10
libf2c/libI77/fmt.c
View File

@ -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;

4
libf2c/libI77/iio.c
View File

@ -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)

3
libf2c/libI77/lread.c
View File

@ -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)

2
libf2c/libI77/lwrite.c
View File

@ -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)

1
libf2c/libI77/open.c
View File

@ -277,6 +277,7 @@ f_open (olist * a)
return (0);
}
int
fk_open (int seq, int fmt, ftnint n)
{
char nbuf[10];

2
libf2c/libI77/rdfmt.c
View File

@ -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)

4
libf2c/libI77/rsfe.c
View File

@ -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 ();

3
libf2c/libI77/rsne.c
View File

@ -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;

1
libf2c/libI77/sfe.c
View File

@ -15,6 +15,7 @@ e_rsfe (void)
return (n);
}
int
c_sfe (cilist * a) /* check */
{
unit *p;

1
libf2c/libI77/sue.c
View File

@ -4,6 +4,7 @@
extern uiolen f__reclen;
off_t f__recloc;
int
c_sue (cilist * a)
{
f__external = f__sequential = 1;

1
libf2c/libI77/uio.c
View File

@ -3,6 +3,7 @@
#include <sys/types.h>
uiolen f__reclen;
int
do_us (ftnint * number, char *ptr, ftnlen len)
{
if (f__reading)

2
libf2c/libI77/wref.c
View File

@ -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;

3
libf2c/libI77/wrtfmt.c
View File

@ -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)