From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Fri, 30 Apr 1982 07:28:48 +0000 (-0800)
Subject: clearerr() if b->uend set. DLW
X-Git-Tag: BSD-4_1c_2-Snapshot-Development~3595
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/1604dff529696ca7a6b28c45307b837ad3bad073

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 46bb8fddbb..401f0e5636 100644
--- 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
  */
@@ -26,6 +26,7 @@ f_back(a) alist *a;
 	lfname = b->ufnm;
 	if(b->uend)
 	{	b->uend = NO;
+		clearerr(b->ufd);
 		return(OK);
 	}
 	if((x=ftell(b->ufd))==0) return(OK);