From 82ce0181bd0ab863942fd1b6c5d9de2788dc4f58 Mon Sep 17 00:00:00 2001 From: tv Date: Wed, 14 Oct 1998 14:35:59 +0000 Subject: [PATCH] Import egcs 1.1 (branch), 14 Oct 1998 sources --- gnu/dist/libf2c/ChangeLog | 25 +++++++++++++++++++++++++ gnu/dist/libf2c/Makefile.in | 2 +- gnu/dist/libf2c/libF77/Version.c | 2 +- gnu/dist/libf2c/libI77/Version.c | 2 +- gnu/dist/libf2c/libI77/open.c | 14 -------------- gnu/dist/libf2c/libI77/sfe.c | 1 + gnu/dist/libf2c/libU77/Version.c | 2 +- gnu/dist/libio/dbz/dbzmain.c | 2 +- gnu/dist/libio/dbz/fake.c | 2 +- 9 files changed, 32 insertions(+), 20 deletions(-) diff --git a/gnu/dist/libf2c/ChangeLog b/gnu/dist/libf2c/ChangeLog index a8a129efb042..04e7b09cdaea 100644 --- a/gnu/dist/libf2c/ChangeLog +++ b/gnu/dist/libf2c/ChangeLog @@ -1,3 +1,28 @@ +Fri Oct 2 01:27:50 1998 Kamil Iskra + + * Makefile.in (install): Add missing "else true;". + +1998-09-28 Dave Love + + * libI77/open.c: Back out part of last Netlib update affecting + scratch files which clashed with the g77 variations and broke + implicit endfile on rewind. + +1998-09-21 Dave Love + + * libI77/Version.c: Update. + +Sat Sep 5 23:06:56 1998 Craig Burley + + * libI77/sfe.c (e_wdfe): Set f__init to avoid spurious recursive + i/o error from formatted direct i/o. + +Tue Sep 1 10:06:06 1998 Craig Burley + + * libF77/Version.c: Update. + * libU77/Version.c: Update. + * libI77/Version.c: Update. + Wed Aug 26 23:20:12 1998 Jeffrey A Law (law@cygnus.com) * Makefile.in (FLAGS_TO_PASS): Fix typo. diff --git a/gnu/dist/libf2c/Makefile.in b/gnu/dist/libf2c/Makefile.in index ae23d613191f..ced3dd7389a6 100644 --- a/gnu/dist/libf2c/Makefile.in +++ b/gnu/dist/libf2c/Makefile.in @@ -155,7 +155,7 @@ install: all echo ' (To turn off this warning, delete the file'; \ echo ' f2c-install-ok in the source or build directory.)'; \ echo ''; \ - fi + else true; fi install-strip: $(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' install diff --git a/gnu/dist/libf2c/libF77/Version.c b/gnu/dist/libf2c/libF77/Version.c index 4ccfd3a0d458..3e46ce899d9a 100644 --- a/gnu/dist/libf2c/libF77/Version.c +++ b/gnu/dist/libf2c/libF77/Version.c @@ -3,7 +3,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19970919\n"; /* */ -char __G77_LIBF77_VERSION__[] = "0.5.23"; +char __G77_LIBF77_VERSION__[] = "0.5.24"; /* 2.00 11 June 1980. File version.c added to library. diff --git a/gnu/dist/libf2c/libI77/Version.c b/gnu/dist/libf2c/libI77/Version.c index e070d2064edf..9d80fb92ed83 100644 --- a/gnu/dist/libf2c/libI77/Version.c +++ b/gnu/dist/libf2c/libI77/Version.c @@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980617\n"; /* */ -char __G77_LIBI77_VERSION__[] = "0.5.23"; +char __G77_LIBI77_VERSION__[] = "0.5.24-19980920"; /* 2.01 $ format added diff --git a/gnu/dist/libf2c/libI77/open.c b/gnu/dist/libf2c/libI77/open.c index 29b7662b106a..ad039f6d895a 100644 --- a/gnu/dist/libf2c/libI77/open.c +++ b/gnu/dist/libf2c/libI77/open.c @@ -205,7 +205,6 @@ integer f_open(olist *a) case 's': case 'S': b->uscrtch=1; -#ifdef NON_ANSI_STDIO #ifdef HAVE_TEMPNAM /* Allow use of TMPDIR preferentially. */ s = tempnam (0, buf); if (strlen (s) >= sizeof (buf)) @@ -221,17 +220,6 @@ integer f_open(olist *a) #endif #endif /* ! defined (HAVE_TEMPNAM) */ goto replace; -#else - if (!(b->ufd = tmpfile())) - opnerr(a->oerr,errno,"open"); - b->ufnm = 0; -#ifndef NON_UNIX_STDIO - b->uinode = b->udev = -1; -#endif - b->useek = 1; - return 0; -#endif - case 'n': case 'N': #ifdef NON_POSIX_STDIO @@ -246,9 +234,7 @@ integer f_open(olist *a) /* no break */ case 'r': /* Fortran 90 replace option */ case 'R': -#ifdef NON_ANSI_STDIO replace: -#endif if (tf = fopen(buf,f__w_mode[0])) fclose(tf); } diff --git a/gnu/dist/libf2c/libI77/sfe.c b/gnu/dist/libf2c/libI77/sfe.c index c7d891804b39..eb6260fec087 100644 --- a/gnu/dist/libf2c/libI77/sfe.c +++ b/gnu/dist/libf2c/libI77/sfe.c @@ -35,5 +35,6 @@ integer e_wsfe(Void) integer e_wdfe(Void) { + f__init = 1; return en_fio(); } diff --git a/gnu/dist/libf2c/libU77/Version.c b/gnu/dist/libf2c/libU77/Version.c index 8b728c228e76..fd2527ce859b 100644 --- a/gnu/dist/libf2c/libU77/Version.c +++ b/gnu/dist/libf2c/libU77/Version.c @@ -1,6 +1,6 @@ static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n"; -char __G77_LIBU77_VERSION__[] = "0.5.23"; +char __G77_LIBU77_VERSION__[] = "0.5.24"; #include diff --git a/gnu/dist/libio/dbz/dbzmain.c b/gnu/dist/libio/dbz/dbzmain.c index 10cc08a65342..43a01a6b9291 100644 --- a/gnu/dist/libio/dbz/dbzmain.c +++ b/gnu/dist/libio/dbz/dbzmain.c @@ -19,7 +19,7 @@ #define STREQ(a, b) (*(a) == *(b) && strcmp((a), (b)) == 0) #ifndef lint -static char RCSid[] = "$Header: /cvsroot/src/gnu/dist/libio/dbz/Attic/dbzmain.c,v 1.1.1.3 1998/09/13 16:14:02 tv Exp $"; +static char RCSid[] = "$Header: /cvsroot/src/gnu/dist/libio/dbz/Attic/dbzmain.c,v 1.1.1.4 1998/10/14 14:35:59 tv Exp $"; #endif char *progname; diff --git a/gnu/dist/libio/dbz/fake.c b/gnu/dist/libio/dbz/fake.c index 8b74186f471c..74153e60a982 100644 --- a/gnu/dist/libio/dbz/fake.c +++ b/gnu/dist/libio/dbz/fake.c @@ -13,7 +13,7 @@ #define STREQ(a, b) (*(a) == *(b) && strcmp((a), (b)) == 0) #ifndef lint -static char RCSid[] = "$Header: /cvsroot/src/gnu/dist/libio/dbz/Attic/fake.c,v 1.1.1.3 1998/09/13 16:14:02 tv Exp $"; +static char RCSid[] = "$Header: /cvsroot/src/gnu/dist/libio/dbz/Attic/fake.c,v 1.1.1.4 1998/10/14 14:35:59 tv Exp $"; #endif int midonly = 0; /* just message ids, rest not realistic */