summaryrefslogtreecommitdiff
path: root/libf2c/libI77
diff options
context:
space:
mode:
Diffstat (limited to 'libf2c/libI77')
-rw-r--r--libf2c/libI77/open.c2
-rw-r--r--libf2c/libI77/rdfmt.c2
-rw-r--r--libf2c/libI77/uio.c4
3 files changed, 4 insertions, 4 deletions
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