Patch [libf2c]: fix signed/unsigned warnings

[Kaveh R. Ghazi]

Fixes:
libF77/getenv_.c:27: warning: comparison between signed and unsigned
libF77/system_.c:18: warning: comparison between signed and unsigned
libI77/open.c:202: warning: comparison between signed and unsigned
libI77/rdfmt.c:37: warning: comparison between signed and unsigned
libI77/uio.c:13: warning: comparison between signed and unsigned
libI77/uio.c:37: warning: comparison between signed and unsigned

Tested on solaris2.7, ok to install?

		Thanks,
		--Kaveh


2002-06-01  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.

diff -rup orig/egcc-CVS20020531/libf2c/libF77/getenv_.c egcc-CVS20020531/libf2c/libF77/getenv_.c
--- orig/egcc-CVS20020531/libf2c/libF77/getenv_.c	2002-06-01 08:53:15.359780664 -0400
+++ egcc-CVS20020531/libf2c/libF77/getenv_.c	2002-06-01 08:58:08.000359331 -0400
@@ -24,7 +24,7 @@ G77_getenv_0 (char *fname, char *value, 
 
   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 -rup orig/egcc-CVS20020531/libf2c/libF77/system_.c egcc-CVS20020531/libf2c/libF77/system_.c
--- orig/egcc-CVS20020531/libf2c/libF77/system_.c	2002-06-01 08:53:15.439674896 -0400
+++ egcc-CVS20020531/libf2c/libF77/system_.c	2002-06-01 09:02:56.981797665 -0400
@@ -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 -rup orig/egcc-CVS20020531/libf2c/libI77/open.c egcc-CVS20020531/libf2c/libI77/open.c
--- orig/egcc-CVS20020531/libf2c/libI77/open.c	2002-06-01 08:53:15.489681605 -0400
+++ egcc-CVS20020531/libf2c/libI77/open.c	2002-06-01 09:03:36.657843069 -0400
@@ -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 -rup orig/egcc-CVS20020531/libf2c/libI77/rdfmt.c egcc-CVS20020531/libf2c/libI77/rdfmt.c
--- orig/egcc-CVS20020531/libf2c/libI77/rdfmt.c	2002-06-01 08:53:15.499674915 -0400
+++ egcc-CVS20020531/libf2c/libI77/rdfmt.c	2002-06-01 09:05:15.147871605 -0400
@@ -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 -rup orig/egcc-CVS20020531/libf2c/libI77/uio.c egcc-CVS20020531/libf2c/libI77/uio.c
--- orig/egcc-CVS20020531/libf2c/libI77/uio.c	2002-06-01 08:53:15.509674932 -0400
+++ egcc-CVS20020531/libf2c/libI77/uio.c	2002-06-01 09:06:50.258205864 -0400
@@ -10,7 +10,7 @@ do_us (ftnint * number, char *ptr, ftnle
       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, ftnle
       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