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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54166 138bc75d-0d04-0410-961f-82ee72b054a4

6 files changed, 14 insertions, 6 deletions

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index fdd3fd487c0..cca6118c5c2 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 2a58b90ab87..4067b8ce214 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 b8d1d3d2ea4..dbbd0bea9ec 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 b03ec34b494..2faf6fceef4 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 f6a91855ea7..1006ab1982d 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 d22e5a3a6b0..0ee743bd710 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