diff options
author | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-02 13:01:12 +0000 |
---|---|---|
committer | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-02 13:01:12 +0000 |
commit | ad9db2b65d85fef521d7f253c9f008de5c2839ec (patch) | |
tree | 299d815612ee47dcccb175a194200617f912025f /libf2c/libI77/fmt.c | |
parent | df6e014b382dfaae07a7966c3b6bb046aeba172e (diff) | |
download | gcc-ad9db2b65d85fef521d7f253c9f008de5c2839ec.tar.gz |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54169 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libI77/fmt.c')
-rw-r--r-- | libf2c/libI77/fmt.c | 10 |
1 files changed, 6 insertions, 4 deletions
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; |