Gcc 3.4.4 F77 runtime support bits.

This commit is contained in:
Alexander Kabaev 2005-06-03 03:30:16 +00:00
parent ef4048012a
commit 502dfb0aa3
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/vendor/gcc/dist/; revision=146901
2 changed files with 24 additions and 1 deletions

View File

@ -1,3 +1,20 @@
2005-05-19 Release Manager
* GCC 3.4.4 released.
2005-01-05 Eric Botcazou <ebotcazou@libertysurf.fr>
PR libf2c/17636
* libI77/err.c (f__nowwriting): Call fseek if end-of-file.
2004-11-04 Release Manager
* GCC 3.4.3 released.
2004-09-06 Release Manager
* GCC 3.4.2 released.
2004-07-01 Release Manager
* GCC 3.4.1 released.

View File

@ -239,7 +239,13 @@ f__nowwriting (unit * x)
extern char *f__w_mode[];
if (x->urw & 2)
goto done;
{
/* Not required according to C99 7.19.5.3, but
this really helps on Solaris. */
if (feof (x->ufd))
FSEEK (x->ufd, 0, SEEK_END);
goto done;
}
if (!x->ufnm)
goto cantwrite;
ufmt = x->url ? 0 : x->ufmt;