From 6d3e8f6239565bad3095d0825338df98acfd2600 Mon Sep 17 00:00:00 2001
From: Craig Burley <burley@gnu.org>
Date: Tue, 19 May 1998 11:01:52 +0000
Subject: Tweaks to eliminate unnecessary differences vs.

Tweaks to eliminate unnecessary
differences vs. netlib libf2c.

From-SVN: r19878
---
 libf2c/libF77/Version.c | 2 +-
 libf2c/libF77/signal_.c | 1 -
 libf2c/libI77/Version.c | 2 +-
 libf2c/libI77/dfe.c     | 2 +-
 libf2c/libI77/due.c     | 4 ++--
 libf2c/libI77/wsfe.c    | 1 +
 libf2c/libU77/dbes.c    | 2 +-
 7 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'libf2c')

diff --git a/libf2c/libF77/Version.c b/libf2c/libF77/Version.c
index 2460a81..562d074 100644
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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);
 }
-- 
cgit v1.1