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

libf2c/ChangeLog

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

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]) == ' ')
 	{

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)

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

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

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