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

7 files changed, 18 insertions, 11 deletions

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index f50ae04..3e853c2 100644
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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