diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2002-06-02 12:54:28 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2002-06-02 12:54:28 +0000 |
| commit | 1d7ed5d3ea85fbe4d609a1336819fa526481d944 (patch) | |
| tree | e4d100356bbf02423dcf42970b89108fe178a05a /libf2c | |
| parent | 92e34b6718ff0072633c8cea6520de8a052029c8 (diff) | |
| download | gcc-1d7ed5d3ea85fbe4d609a1336819fa526481d944.zip gcc-1d7ed5d3ea85fbe4d609a1336819fa526481d944.tar.gz gcc-1d7ed5d3ea85fbe4d609a1336819fa526481d944.tar.bz2 | |
getenv_.c (G77_getenv_0): Avoid signed/unsigned warning.
* libF77/getenv_.c (G77_getenv_0): Avoid signed/unsigned warning.
* libF77/system_.c (G77_system_0): Likewise.
* libI77/open.c (f_open): Likewise.
* libI77/rdfmt.c (rd_Z): Likewise.
* libI77/uio.c (do_us, do_ud): Likewise.
From-SVN: r54166
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog | 8 | ||||
| -rw-r--r-- | libf2c/libF77/getenv_.c | 2 | ||||
| -rw-r--r-- | libf2c/libF77/system_.c | 2 | ||||
| -rw-r--r-- | libf2c/libI77/open.c | 2 | ||||
| -rw-r--r-- | libf2c/libI77/rdfmt.c | 2 | ||||
| -rw-r--r-- | libf2c/libI77/uio.c | 4 |
6 files changed, 14 insertions, 6 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index fdd3fd4..cca6118c 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,11 @@ +Sun Jun 2 08:53:15 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> + + * libF77/getenv_.c (G77_getenv_0): Avoid signed/unsigned warning. + * libF77/system_.c (G77_system_0): Likewise. + * libI77/open.c (f_open): Likewise. + * libI77/rdfmt.c (rd_Z): Likewise. + * libI77/uio.c (do_us, do_ud): Likewise. + Sat Jun 1 08:33:14 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * libF77/*: Fix formatting. diff --git a/libf2c/libF77/getenv_.c b/libf2c/libF77/getenv_.c index 2a58b90..4067b8c 100644 --- a/libf2c/libF77/getenv_.c +++ b/libf2c/libF77/getenv_.c @@ -24,7 +24,7 @@ G77_getenv_0 (char *fname, char *value, ftnlen flen, ftnlen vlen) if (flen <= 0) goto add_blanks; - for (i = 0; i < sizeof (buf); i++) + for (i = 0; i < (integer) sizeof (buf); i++) { if (i == flen || (buf[i] = fname[i]) == ' ') { diff --git a/libf2c/libF77/system_.c b/libf2c/libF77/system_.c index b8d1d3d..dbbd0be 100644 --- a/libf2c/libF77/system_.c +++ b/libf2c/libF77/system_.c @@ -15,7 +15,7 @@ G77_system_0 (register char *s, ftnlen n) register char *bp, *blast; integer rv; - buff = bp = n < sizeof (buff0) ? buff0 : F77_aloc (n + 1, "system_"); + buff = bp = n < (ftnlen) sizeof (buff0) ? buff0 : F77_aloc (n + 1, "system_"); blast = bp + n; while (bp < blast && *s) diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index b03ec34..2faf6fc 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -199,7 +199,7 @@ f_open (olist * a) if (!env) env = "/tmp"; len = strlen (env); - if (len > 256 - sizeof "/tmp.FXXXXXX") + if (len > 256 - (int) sizeof ("/tmp.FXXXXXX")) err (a->oerr, 132, "open"); strcpy (buf, env); strcat (buf, "/tmp.FXXXXXX"); diff --git a/libf2c/libI77/rdfmt.c b/libf2c/libI77/rdfmt.c index f6a9185..1006ab1 100644 --- a/libf2c/libI77/rdfmt.c +++ b/libf2c/libI77/rdfmt.c @@ -34,7 +34,7 @@ rd_Z (Uint * n, int w, ftnlen len) s = s0 = (char *) x; s1 = (char *) &x[4]; se = (char *) &x[8]; - if (len > 4 * sizeof (long)) + if (len > 4 * (ftnlen) sizeof (long)) return errno = 117; while (w) { diff --git a/libf2c/libI77/uio.c b/libf2c/libI77/uio.c index d22e5a3..0ee743b 100644 --- a/libf2c/libI77/uio.c +++ b/libf2c/libI77/uio.c @@ -10,7 +10,7 @@ do_us (ftnint * number, char *ptr, ftnlen len) f__recpos += (int) (*number * len); if (f__recpos > f__reclen) err (f__elist->cierr, 110, "do_us"); - if (fread (ptr, (size_t) len, (size_t) (*number), f__cf) != *number) + if (fread (ptr, (size_t) len, (size_t) (*number), f__cf) != (size_t) *number) err (f__elist->ciend, EOF, "do_us"); return (0); } @@ -34,7 +34,7 @@ do_ud (ftnint * number, char *ptr, ftnlen len) if (!(i = fread (ptr, (size_t) len, (size_t) (*number), f__cf)) && !(f__recpos - *number * len)) err (f__elist->cierr, EOF, "do_ud"); - if (i < *number) + if (i < (size_t) *number) memset (ptr + i * len, 0, (*number - i) * len); return 0; #else |