clearerr() if b->uend set. DLW

SCCS-vsn: usr.bin/f77/libI77/backspace.c 1.4

diff --git a/usr/src/usr.bin/f77/libI77/backspace.c b/usr/src/usr.bin/f77/libI77/backspace.c
index 46bb8fd..401f0e5 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/backspace.c
+++ b/usr/src/usr.bin/f77/libI77/backspace.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_backspace[] = "@(#)backspace.c 1.3";
+char id_backspace[] = "@(#)backspace.c 1.4";

  *
  * Backspace records
  */
  *
  * Backspace records
  */


@@ -26,6 +26,7 @@ f_back(a) alist *a;
        lfname = b->ufnm;
        if(b->uend)
        {       b->uend = NO;
        lfname = b->ufnm;
        if(b->uend)
        {       b->uend = NO;

+               clearerr(b->ufd);

                return(OK);
        }
        if((x=ftell(b->ufd))==0) return(OK);
                return(OK);
        }
        if((x=ftell(b->ufd))==0) return(OK);