diff options
| author | kan <kan@FreeBSD.org> | 2005-06-03 03:30:16 +0000 |
|---|---|---|
| committer | kan <kan@FreeBSD.org> | 2005-06-03 03:30:16 +0000 |
| commit | 8a6911d2bb988a943624cbf4e4041b827d9ade53 (patch) | |
| tree | 2cc127c23fb312923b30f1f595931aa99aaa634e /contrib/libf2c/libI77/err.c | |
| parent | eeb997f51096076ea71f59fc8177e7d4c9ecddf7 (diff) | |
| download | FreeBSD-src-8a6911d2bb988a943624cbf4e4041b827d9ade53.zip FreeBSD-src-8a6911d2bb988a943624cbf4e4041b827d9ade53.tar.gz | |
Gcc 3.4.4 F77 runtime support bits.
Diffstat (limited to 'contrib/libf2c/libI77/err.c')
| -rw-r--r-- | contrib/libf2c/libI77/err.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/contrib/libf2c/libI77/err.c b/contrib/libf2c/libI77/err.c index 1a204e8..d643d3b 100644 --- a/contrib/libf2c/libI77/err.c +++ b/contrib/libf2c/libI77/err.c @@ -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; |
