diff options
Diffstat (limited to 'lib/libI77/sfe.c')
-rw-r--r-- | lib/libI77/sfe.c | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/lib/libI77/sfe.c b/lib/libI77/sfe.c index eea9078..cade56a 100644 --- a/lib/libI77/sfe.c +++ b/lib/libI77/sfe.c @@ -7,10 +7,6 @@ extern char *f__fmtbuf; integer e_rsfe(Void) { int n; n=en_fio(); - if (f__cf == stdout) - fflush(stdout); - else if (f__cf == stderr) - fflush(stderr); f__fmtbuf=NULL; return(n); } @@ -20,23 +16,16 @@ c_sfe(a) cilist *a; /* check */ c_sfe(cilist *a) /* check */ #endif { unit *p; + f__curunit = p = &f__units[a->ciunit]; if(a->ciunit >= MXUNIT || a->ciunit<0) err(a->cierr,101,"startio"); - p = &f__units[a->ciunit]; if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe") if(!p->ufmt) err(a->cierr,102,"sfe") return(0); } integer e_wsfe(Void) { -#ifdef ALWAYS_FLUSH - int n; - n = en_fio(); - f__fmtbuf=NULL; - if (!n && fflush(f__cf)) - err(f__elist->cierr, errno, "write end"); + int n = en_fio(); + f__fmtbuf = NULL; return n; -#else - return(e_rsfe()); -#endif } |