Update to Netlib version of 1999-06-18

From-SVN: r27593

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 0b5f73c6551b59e4d1841c5b93151982e9f5b5fa..64e0ad361d2b2774f123be5fe9a88bacf4bd7d0a 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+Fri Jun 18 11:26:50 1999  Craig Burley  <craig@jcb-sc.com>
+
+       * news.texi: New heading for development version.
+       Doc upgrade to netlib libf2c as of today.
+
 Wed Jun 16 11:43:02 1999  Craig Burley  <craig@jcb-sc.com>
 
        * news.texi: Mention BACKSPACE fix to libg2c.

diff --git a/gcc/f/news.texi b/gcc/f/news.texi
index 9f20e65bf43be094786010f4f918cb6e2cc433f7..1b03f403210bfe9ad35c0f491caeded1d8d718f4 100644 (file)
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -9,7 +9,7 @@
 @c in the standalone derivations of this file (e.g. NEWS).
 @set copyrights-news 1995-1999
 
-@set last-update-news 1999-06-16
+@set last-update-news 1999-06-18
 
 @include root.texi
 
@@ -151,6 +151,14 @@ is available at
 
 The following information was last updated on @value{last-update-news}:
 
+@heading In development:
+@itemize @bullet
+@ifclear USERVISONLY
+@item
+Upgrade to @code{libf2c} as of 1999-06-18.
+@end ifclear
+@end itemize
+
 @heading In 0.5.25, @code{GCC} 2.95 (@code{EGCS} 1.2) versus @code{EGCS} 1.1.2:
 @itemize @bullet
 @ifclear USERVISONLY

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index c8666c674d8bef523141e4978d21267e1ab8c1a2..00f3a65ca32e657efff305124cb7e326c3533bc6 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+Fri Jun 18 11:22:21 1999  Craig Burley  <craig@jcb-sc.com>
+
+       Update to Netlib version of 1999-05-10:
+       * changes.netlib, libI77/Version.c, libI77/backspace.c
+       readme.netlib: See changes.netlib for info.
+
 Fri Jun 18 11:15:24 1999  Craig Burley  <craig@jcb-sc.com>
 
        * libI77/backspace.c: Undo Wednesday's change, in

diff --git a/libf2c/changes.netlib b/libf2c/changes.netlib
index a5252202bdbf4a4a60c6be77598088a938753a52..b0e675322309de9e58e7643edf7f2cf8a24d1e3e 100644 (file)
--- a/libf2c/changes.netlib
+++ b/libf2c/changes.netlib
@@ -3014,3 +3014,8 @@ Mon May  3 13:14:07 EDT 1999
 libf2c; two new casts in libf2c/open.c that matter with 64-bit longs,
 and one more tweak (libf2c/c_log.c) for pathological equivalences.
   Minor update to "fc" script: new -L flag and comment correction.
+
+Fri Jun 18 02:33:08 EDT 1999
+  libf2c.zip: rename backspace.c backspac.c, and fix a glitch in it
+-- b->ufd may change in t_runc().  (For now, it's still backspace.c
+in the libi77 bundle.)

diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c
index b501174b79005594a8e0ec2c4f6fad15b2d15fe0..6a09b70ca2e7cabe0e8b2d67d95c38371ce3b17f 100644 (file)
--- a/libf2c/libI77/Version.c
+++ b/libf2c/libI77/Version.c
@@ -1,4 +1,4 @@
-static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n";
+static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990618\n";
 
 /*
 */
@@ -301,6 +301,7 @@ wrtfmt.c:
                 rdfmt.c: omit fixed-length buffer that could be overwritten
                 by formats Inn or Lnn with nn > 83. */
 /* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */
+/* 18 June 1999: backspace.c: allow for b->ufd changing in t_runc */
 
 
 

diff --git a/libf2c/libI77/backspace.c b/libf2c/libI77/backspace.c
index 1da686dbb488e94caab44d7b61eb4bcd98e96c97..1968801aab75160fdb5e35d3318b664522ff3c5e 100644 (file)
--- a/libf2c/libI77/backspace.c
+++ b/libf2c/libI77/backspace.c
@@ -17,7 +17,7 @@ integer f_back(alist *a)
        if(a->aunit >= MXUNIT || a->aunit < 0)
                err(a->aerr,101,"backspace");
        if(b->useek==0) err(a->aerr,106,"backspace");
-       if((f = b->ufd) == NULL) {
+       if(b->ufd == NULL) {
                fk_open(1, 1, a->aunit);
                return(0);
                }
@@ -26,10 +26,11 @@ integer f_back(alist *a)
                return(0);
        }
        if(b->uwrt) {
-               (void) t_runc(a);
+               t_runc(a);
                if (f__nowreading(b))
                        err(a->aerr,errno,"backspace");
                }
+       f = b->ufd;     /* may have changed in t_runc() */
        if(b->url>0)
        {
                x=ftell(f);

diff --git a/libf2c/readme.netlib b/libf2c/readme.netlib
index 406a753cf30972628a60c143853942ce586a44e2..0b8b7f7ee4323c16450397eea89c8af7619b32b0 100644 (file)
--- a/libf2c/readme.netlib
+++ b/libf2c/readme.netlib
@@ -711,9 +711,14 @@ and one more tweak (libf2c/c_log.c) for pathological equivalences.
   Minor update to "fc" script: new -L flag and comment correction.
 
 Tue May  4 10:06:26 EDT 1999
-   libf77, libf2c.zip: forgot to copy yesterday's latest updates to
+  libf77, libf2c.zip: forgot to copy yesterday's latest updates to
 netlib.
 
+Fri Jun 18 02:33:08 EDT 1999
+  libf2c.zip: rename backspace.c backspac.c, and fix a glitch in it
+-- b->ufd may change in t_runc().  (For now, it's still backspace.c
+in the libi77 bundle.)
+
 Current timestamps of files in "all from f2c/src", sorted by time,
 appear below (mm/dd/year hh:mm:ss).  To bring your source up to date,
 obtain source files with a timestamp later than the time shown in your