Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed warns and compile errors (under newer gcc's)

Browse Source
This commit is contained in:
chopps 1994-02-06 18:48:00 +00:00
parent 57892d4faf
commit 2595681cf2
4 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/libm/common_source/j0.c
View File

@ -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)

4
lib/libm/common_source/j1.c
View File

@ -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));

5
lib/libm/common_source/lgamma.c
View File

@ -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;

3
lib/libm/common_source/log__D.c
View File

@ -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; */