diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-19 10:52:03 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-05-19 10:52:03 +0000 |
| commit | 3ad649e5f9e3e4dd6f1c965916b1427a7d56fdd5 (patch) | |
| tree | c4e8e02849cc5a16fa5bc00db65b9b2aa8561eaf /libf2c/libI77/sfe.c | |
| parent | 6e0804a53327a47eadbc1edac8c64e3aa7b1f579 (diff) | |
| download | gcc-3ad649e5f9e3e4dd6f1c965916b1427a7d56fdd5.tar.gz | |
Update to Netlib version of 1998-04-20
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19877 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libI77/sfe.c')
| -rw-r--r-- | libf2c/libI77/sfe.c | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c index 1bb10d9052d..c7d891804b3 100644 --- a/libf2c/libI77/sfe.c +++ b/libf2c/libI77/sfe.c @@ -8,10 +8,6 @@ integer e_rsfe(Void) { int n; f__init = 1; n=en_fio(); - if (f__cf == stdout) - fflush(stdout); - else if (f__cf == stderr) - fflush(stderr); f__fmtbuf=NULL; return(n); } @@ -30,15 +26,14 @@ c_sfe(cilist *a) /* check */ } integer e_wsfe(Void) { -#ifdef ALWAYS_FLUSH int n; f__init = 1; n = en_fio(); f__fmtbuf=NULL; - if (!n && fflush(f__cf)) - err(f__elist->cierr, errno, "write end"); return n; -#else - return(e_rsfe()); -#endif +} + +integer e_wdfe(Void) +{ + return en_fio(); } |