fio.h: Use off_t when appropriate.

2001-07-01  Toon Moene  <toon@moene.indiv.nluug.nl>
            Pedro Vazquez  <vazquez@penelope.iqm.unicamp.br>

	* libI77/fio.h: Use off_t when appropriate.
	* libI77/backspace.c (f_back): Ditto.
	* libI77/endfile.c (t_runc): Ditto.
	* libI77/err.c (f__nowreading): Ditto.
	* libI77/ftell_.c (unit_chk): Ditto.
	* libI77/sue.c (global f__recloc, s_wsue): Ditto.

Co-Authored-By: Pedro Vazquez <vazquez@penelope.iqm.unicamp.br>
From-SVN: r43670

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index f50ae04..3e853c2 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,13 @@
+2001-07-01  Toon Moene  <toon@moene.indiv.nluug.nl>
+            Pedro Vazquez  <vazquez@penelope.iqm.unicamp.br>
+
+       * libI77/fio.h: Use off_t when appropriate.
+       * libI77/backspace.c (f_back): Ditto.
+       * libI77/endfile.c (t_runc): Ditto.
+       * libI77/err.c (f__nowreading): Ditto.
+       * libI77/ftell_.c (unit_chk): Ditto.
+       * libI77/sue.c (global f__recloc, s_wsue): Ditto.
+
 2001-06-13  Toon Moene  <toon@moene.indiv.nluug.nl>
 
        * libI77/inquire.c: Include "config.h".

diff --git a/libf2c/libI77/backspace.c b/libf2c/libI77/backspace.c
index b2bd416..609f321 100644 (file)
--- a/libf2c/libI77/backspace.c
+++ b/libf2c/libI77/backspace.c
@@ -8,7 +8,7 @@ integer f_back(a) alist *a;
 integer f_back(alist *a)
 #endif
 {      unit *b;
-       long v, w, x, y, z;
+       off_t v, w, x, y, z;
        uiolen n;
        FILE *f;
 

diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 04f02cb..462578d 100644 (file)
--- a/libf2c/libI77/endfile.c
+++ b/libf2c/libI77/endfile.c
@@ -70,7 +70,7 @@ t_runc(a) alist *a;
 t_runc(alist *a)
 #endif
 {
-       long loc, len;
+       off_t loc, len;
        unit *b;
        int rc;
        FILE *bf;
@@ -131,10 +131,7 @@ done:
        f__cf = b->ufd = bf;
 #else  /* !defined(HAVE_FTRUNCATE) */
        fflush(b->ufd);
-       /* The cast of loc is helpful on FreeBSD.  It helps
-       in any case where ftruncate() prototype is somehow missing
-       even though autoconf test found it properly.  */
-       rc = ftruncate(fileno(b->ufd), (off_t)loc);
+       rc = ftruncate(fileno(b->ufd), loc);
 #endif /* !defined(HAVE_FTRUNCATE) */
        if (rc)
                err(a->aerr,111,"endfile");

diff --git a/libf2c/libI77/err.c b/libf2c/libI77/err.c
index 6784cdd..67b5009 100644 (file)
--- a/libf2c/libI77/err.c
+++ b/libf2c/libI77/err.c
@@ -210,7 +210,7 @@ f__nowreading(x) unit *x;
 f__nowreading(unit *x)
 #endif
 {
-       long loc;
+       off_t loc;
        int ufmt, urw;
        extern char *f__r_mode[], *f__w_mode[];
 

diff --git a/libf2c/libI77/fio.h b/libf2c/libI77/fio.h
index 846351d..d5e9157 100644 (file)
--- a/libf2c/libI77/fio.h
+++ b/libf2c/libI77/fio.h
@@ -34,7 +34,7 @@ typedef struct
        long uinode;
        int udev;
 #endif
-       int url;        /*0=sequential*/
+       off_t url;      /*0=sequential*/
        flag useek;     /*true=can backspace, use dir, ...*/
        flag ufmt;
        flag urw;       /* (1 for can read) | (2 for can write) */

diff --git a/libf2c/libI77/ftell_.c b/libf2c/libI77/ftell_.c
index 1f6d87f..ce61bd8 100644 (file)
--- a/libf2c/libI77/ftell_.c
+++ b/libf2c/libI77/ftell_.c
@@ -14,7 +14,7 @@ unit_chk(integer Unit, char *who)
        return f__units[Unit].ufd;
        }
 
- integer
+ off_t
 #ifdef KR_headers
 G77_ftell_0 (Unit) integer *Unit;
 #else

diff --git a/libf2c/libI77/sue.c b/libf2c/libI77/sue.c
index e7dbba0..50a94b8 100644 (file)
--- a/libf2c/libI77/sue.c
+++ b/libf2c/libI77/sue.c
@@ -2,7 +2,7 @@
 #include "f2c.h"
 #include "fio.h"
 extern uiolen f__reclen;
-long f__recloc;
+off_t f__recloc;
 
 #ifdef KR_headers
 c_sue(a) cilist *a;
@@ -67,7 +67,7 @@ integer s_wsue(cilist *a)
        return(0);
 }
 integer e_wsue(Void)
-{      long loc;
+{      off_t loc;
        f__init = 1;
        fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf);
 #ifdef ALWAYS_FLUSH