From 2595681cf29c94dd9d11cf2eccd2d5b270ed7dc1 Mon Sep 17 00:00:00 2001
From: chopps <chopps@NetBSD.org>
Date: Sun, 6 Feb 1994 18:48:00 +0000
Subject: [PATCH] fixed warns and compile errors (under newer gcc's)

---
 lib/libm/common_source/j0.c     | 4 ++--
 lib/libm/common_source/j1.c     | 4 ++--
 lib/libm/common_source/lgamma.c | 5 ++---
 lib/libm/common_source/log__D.c | 3 +--
 4 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/lib/libm/common_source/j0.c b/lib/libm/common_source/j0.c
index b034110f6016..45650cbfcffc 100644
--- a/lib/libm/common_source/j0.c
+++ b/lib/libm/common_source/j0.c
@@ -33,7 +33,7 @@
 
 #ifndef lint
 /*static char sccsid[] = "from: @(#)j0.c	5.5 (Berkeley) 12/16/92";*/
-static char rcsid[] = "$Id: j0.c,v 1.1 1993/08/14 13:42:52 mycroft Exp $";
+static char rcsid[] = "$Id: j0.c,v 1.2 1994/02/06 18:48:00 chopps Exp $";
 #endif /* not lint */
 
 /*
@@ -205,7 +205,7 @@ double
 y0(x) 
 	double x;
 {
-	double z, s,c,ss,cc,u,v,j0();
+	double z, s,c,ss,cc,u,v;
     /* Y0(NaN) is NaN, y0(-inf) is Nan, y0(inf) is 0  */
 	if (!finite(x))
 		if (_IEEE)
diff --git a/lib/libm/common_source/j1.c b/lib/libm/common_source/j1.c
index 243ad025a74b..e66a0dc8354a 100644
--- a/lib/libm/common_source/j1.c
+++ b/lib/libm/common_source/j1.c
@@ -33,7 +33,7 @@
 
 #ifndef lint
 /*static char sccsid[] = "from: @(#)j1.c	5.5 (Berkeley) 12/16/92";*/
-static char rcsid[] = "$Id: j1.c,v 1.1 1993/08/14 13:42:53 mycroft Exp $";
+static char rcsid[] = "$Id: j1.c,v 1.2 1994/02/06 18:48:02 chopps Exp $";
 #endif /* not lint */
 
 /*
@@ -209,7 +209,7 @@ static double v0[5] = {
 double y1(x) 
 	double x;
 {
-	double z, s,c,ss,cc,u,v,j1();
+	double z, s,c,ss,cc,u,v;
     /* if Y1(NaN) is NaN, Y1(-inf) is NaN, Y1(inf) is 0 */
 	if (!finite(x))
 		if (!_IEEE) return (infnan(EDOM));
diff --git a/lib/libm/common_source/lgamma.c b/lib/libm/common_source/lgamma.c
index 57cb6899e178..83b6d5d03ddb 100644
--- a/lib/libm/common_source/lgamma.c
+++ b/lib/libm/common_source/lgamma.c
@@ -33,7 +33,7 @@
 
 #ifndef lint
 /*static char sccsid[] = "from: @(#)lgamma.c	5.11 (Berkeley) 12/16/92";*/
-static char rcsid[] = "$Id: lgamma.c,v 1.1 1993/08/14 13:42:55 mycroft Exp $";
+static char rcsid[] = "$Id: lgamma.c,v 1.2 1994/02/06 18:48:04 chopps Exp $";
 #endif /* not lint */
 
 /*
@@ -81,7 +81,6 @@ static int endian;
 #define infnan(x)	0.0
 #endif
 
-extern double log1p(double);
 static double small_lgam(double);
 static double large_lgam(double);
 static double neg_lgam(double);
@@ -140,7 +139,7 @@ int signgam;
 #define pb6	 5.69394463439411649408050664078e-03
 #define pb7	-1.44705562421428915453880392761e-02
 
-double
+__pure double
 lgamma(double x)
 {
 	double r;
diff --git a/lib/libm/common_source/log__D.c b/lib/libm/common_source/log__D.c
index ec8d216c2932..1ad36fa5a5f9 100644
--- a/lib/libm/common_source/log__D.c
+++ b/lib/libm/common_source/log__D.c
@@ -33,7 +33,7 @@
 
 #ifndef lint
 /*static char sccsid[] = "from: @(#)log.c	5.10 (Berkeley) 1/10/93";*/
-static char rcsid[] = "$Id: log__D.c,v 1.2 1993/08/14 19:31:27 mycroft Exp $";
+static char rcsid[] = "$Id: log__D.c,v 1.3 1994/02/06 18:48:06 chopps Exp $";
 #endif /* not lint */
 
 #include <math.h>
@@ -90,7 +90,6 @@ log__D(x) double x;
 	int m, j;
 	double F, f, g, q, u, u2, v, zero = 0.0, one = 1.0;
 	struct Double r;
-	double logb(), ldexp();
 	volatile double u1;
 
 	/* Argument reduction: 1 <= g < 2; x/2^m = g;	*/