David M. Gay <dmg@bell-labs.com>:

	* libI77/endfile.c (t_runc): set state to writing
	(b->uwrt = 1) when an endfile statement requires copying the file.

From-SVN: r31590

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 4e9eccc846615921af9e145fd026f25dc1351d27..c3ca9a9043ba1549ad4775161294b0f9153a98fb 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jan 24 20:28:35 CET 2000  David M. Gay <dmg@bell-labs.com>
+
+       * libI77/endfile.c (t_runc): set state to writing
+       (b->uwrt = 1) when an endfile statement requires copying the file.
+
 Sun Oct 24 23:54:10 PDT 1999 Jeff Law  (law@cygnus.com)
 
        * gcc-2.95.2 Released.

diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 0e4ac0318e9f76173607fb9aa9037b8a9f37bc6f..03853de6e688b2380f86206f713e05cf3a9c9ae8 100644 (file)
--- a/libf2c/libI77/endfile.c
+++ b/libf2c/libI77/endfile.c
@@ -103,6 +103,7 @@ t_runc(alist *a)
        rewind(tf);
        if (copy(tf, loc, bf))
                goto bad1;
+       b->urwt = 1;
        b->urw = 2;
 #ifdef NON_UNIX_STDIO
        if (b->ufmt) {