From d4cf4f9a18d40f7db0a9fe2a654b9b214d71a41c Mon Sep 17 00:00:00 2001 From: "David M. Gay" Date: Mon, 24 Jan 2000 19:59:21 +0000 Subject: [PATCH] David M. Gay : * libI77/endfile.c (t_runc): set state to writing (b->uwrt = 1) when an endfile statement requires copying the file. From-SVN: r31590 --- libf2c/ChangeLog | 5 +++++ libf2c/libI77/endfile.c | 1 + 2 files changed, 6 insertions(+) diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 4e9eccc84661..c3ca9a9043ba 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +Mon Jan 24 20:28:35 CET 2000 David M. Gay + + * 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 0e4ac0318e9f..03853de6e688 100644 --- 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) { -- 2.47.2