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

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index fdd3fd487c0e4f4c7b5da1c4143a420f6bdd1536..cca6118c5c2f1e24404ad4f0c01ea634589235e4 100644 (file)
--- 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 2a58b90ab873dbabebba3ffe0059fc674651328f..4067b8ce2146c0bfacf86680fa92fb2ccb02fff5 100644 (file)
--- 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 b8d1d3d2ea43d10238028c36e99d92688eb4c94c..dbbd0bea9ec2a5e746d62f9e9b63aca0e0ac2084 100644 (file)
--- 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 b03ec34b494314e2916c71ae9d7ab356a132e020..2faf6fceef49c4d29e688e7ed11b99f35b5dff6b 100644 (file)
--- 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 f6a91855ea7319a65a96005015f3e41606b281a3..1006ab1982dfead03a711a92d289a1946d26a3ae 100644 (file)
--- 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 d22e5a3a6b0c54890b91db371dca5f8f311b1207..0ee743bd7101939d3524f0649bfe6bf256a14516 100644 (file)
--- 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