procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fio.h: Use off_t when appropriate.

Browse source 
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
This commit is contained in:
Toon Moene 2001-07-01 15:18:08 +02:00 • committed by Toon Moene
parent e514984118
commit cf382a9154
7 changed files with 18 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
libf2c/ChangeLog
View file

@ -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".

2
libf2c/libI77/backspace.c
View file

@ -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;

7
libf2c/libI77/endfile.c
View file

@ -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");

2
libf2c/libI77/err.c
View file

@ -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[];

2
libf2c/libI77/fio.h
View file

@ -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) */

2
libf2c/libI77/ftell_.c
View file

@ -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

4
libf2c/libI77/sue.c
View file

@ -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