Tweaks to eliminate unnecessary

differences vs. netlib libf2c.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19878 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libf2c/libF77/Version.c b/libf2c/libF77/Version.c
index 2460a81..562d074 100644 (file)
--- a/libf2c/libF77/Version.c
+++ b/libf2c/libF77/Version.c
@@ -3,7 +3,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19970919\n";
 /*
 */
 
-char __G77_LIBF77_VERSION__[] = "0.5.23-19980501";
+char __G77_LIBF77_VERSION__[] = "0.5.23-19980503";
 
 /*
 2.00   11 June 1980.  File version.c added to library.

diff --git a/libf2c/libF77/signal_.c b/libf2c/libF77/signal_.c
index efd969b..b0d7ce6 100644 (file)
--- a/libf2c/libF77/signal_.c
+++ b/libf2c/libF77/signal_.c
@@ -14,4 +14,3 @@ G77_signal_0 (integer *sigp, sig_pf proc)
 
        return (void *) signal(sig, proc);
        }
-

diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c
index 0cdeb88..6b7eed0 100644 (file)
--- a/libf2c/libI77/Version.c
+++ b/libf2c/libI77/Version.c
@@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980405\n";
 /*
 */
 
-char __G77_LIBI77_VERSION__[] = "0.5.23-19980502";
+char __G77_LIBI77_VERSION__[] = "0.5.23-19980503";
 
 /*
 2.01   $ format added

diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c
index 3a93659..e4bd565 100644 (file)
--- a/libf2c/libI77/dfe.c
+++ b/libf2c/libI77/dfe.c
@@ -81,7 +81,7 @@ c_dfe(cilist *a)
        f__fmtbuf=a->cifmt;
        if(a->cirec <= 0)
                err(a->cierr,130,"dfe");
-       (void) fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
+       fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
        f__curunit->uend = 0;
        return(0);
 }

diff --git a/libf2c/libI77/due.c b/libf2c/libI77/due.c
index dec5865..9e28eb9 100644 (file)
--- a/libf2c/libI77/due.c
+++ b/libf2c/libI77/due.c
@@ -22,7 +22,7 @@ c_due(cilist *a)
        if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue");
        if(a->cirec <= 0)
                err(a->cierr,130,"due");
-       (void) fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET);
+       fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET);
        f__curunit->uend = 0;
        return(0);
 }
@@ -57,7 +57,7 @@ integer e_rdue(Void)
        f__init = 1;
        if(f__curunit->url==1 || f__recpos==f__curunit->url)
                return(0);
-       (void) fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR);
+       fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR);
        if(ftell(f__cf)%f__curunit->url)
                err(f__elist->cierr,200,"syserr");
        return(0);

diff --git a/libf2c/libI77/wsfe.c b/libf2c/libI77/wsfe.c
index 6cb4e50..279fbf7 100644 (file)
--- a/libf2c/libI77/wsfe.c
+++ b/libf2c/libI77/wsfe.c
@@ -4,6 +4,7 @@
 #include "fmt.h"
 extern int f__hiwater;
 
+ int
 x_wSL(Void)
 {
        int n = f__putbuf('\n');

diff --git a/libf2c/libU77/dbes.c b/libf2c/libU77/dbes.c
index 8c245cf..1ef5978 100644 (file)
--- a/libf2c/libU77/dbes.c
+++ b/libf2c/libU77/dbes.c
@@ -16,10 +16,10 @@ License along with GNU Fortran; see the file COPYING.LIB.  If
 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 
+#if 0  /* Don't include these unless necessary -- dnp. */
 #include "f2c.h"
 #include <math.h>
 
-#if 0  /* Don't include these unless necessary -- dnp. */
 double G77_dbesj0_0 (const double *x) {
     return j0 (*x);
 }