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

Fixe some forgotten vax -> __vax__ changes.

This commit is contained in:
ragge 1998-11-08 19:29:34 +00:00
parent 4e6a326712
commit 4380475d73
6 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/libm/noieee_src/mathimpl.h
View File

@ -1,4 +1,4 @@
/* $NetBSD: mathimpl.h,v 1.3 1998/10/20 02:26:09 matt Exp $ */
/* $NetBSD: mathimpl.h,v 1.4 1998/11/08 19:29:34 ragge Exp $ */
/*
* Copyright (c) 1988, 1993
* The Regents of the University of California. All rights reserved.
@ -47,7 +47,7 @@
# endif
/* Deal with vax/tahoe byte order issues */
# ifdef vax
# ifdef __vax__
# define cat3t(a,b,c) cat3(a,b,c)
# else
# define cat3t(a,b,c) cat3(a,c,b)
@ -76,7 +76,7 @@
# define ic(name, value, bexp, xval) ;
#else /* vax or tahoe */
#else /* __vax__ or tahoe */
/* Hooray, we have an IEEE machine */
# undef vccast
@ -85,7 +85,7 @@
# define ic(name, value, bexp, xval) \
const static double name = value;
#endif /* defined(vax)||defined(tahoe) */
#endif /* defined(__vax__)||defined(tahoe) */
/*

6
lib/libm/noieee_src/n_asincos.c
View File

@ -1,4 +1,4 @@
/* $NetBSD: n_asincos.c,v 1.3 1998/10/20 02:26:09 matt Exp $ */
/* $NetBSD: n_asincos.c,v 1.4 1998/11/08 19:29:34 ragge Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@ -165,9 +165,9 @@ acos(x)
double x;
{
double t,one=1.0;
#if !defined(vax)&&!defined(tahoe)
#if !defined(__vax__)&&!defined(tahoe)
if(x!=x) return(x);
#endif /* !defined(vax)&&!defined(tahoe) */
#endif /* !defined(__vax__)&&!defined(tahoe) */
if( x != -1.0)
t=atan2(sqrt((one-x)/(one+x)),one);
else

8
lib/libm/noieee_src/n_atan2.c
View File

@ -1,4 +1,4 @@
/* $NetBSD: n_atan2.c,v 1.2 1998/10/20 02:26:09 matt Exp $ */
/* $NetBSD: n_atan2.c,v 1.3 1998/11/08 19:29:34 ragge Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@ -269,13 +269,13 @@ begin:
/* compute atan(t) for t in [-.4375, .4375] */
z = t*t;
#if defined(vax)||defined(tahoe)
#if defined(__vax__)||defined(tahoe)
z = t*(z*(a1+z*(a2+z*(a3+z*(a4+z*(a5+z*(a6+z*(a7+z*(a8+
z*(a9+z*(a10+z*(a11+z*a12))))))))))));
#else /* defined(vax)||defined(tahoe) */
#else /* defined(__vax__)||defined(tahoe) */
z = t*(z*(a1+z*(a2+z*(a3+z*(a4+z*(a5+z*(a6+z*(a7+z*(a8+
z*(a9+z*(a10+z*a11)))))))))));
#endif /* defined(vax)||defined(tahoe) */
#endif /* defined(__vax__)||defined(tahoe) */
z = lo - z; z += t; z += hi;
return(copysign((signx>zero)?z:PI-z,signy));

6
lib/libm/noieee_src/n_atanh.c
View File

@ -1,4 +1,4 @@
/* $NetBSD: n_atanh.c,v 1.3 1998/10/20 02:26:10 matt Exp $ */
/* $NetBSD: n_atanh.c,v 1.4 1998/11/08 19:29:34 ragge Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@ -76,11 +76,11 @@ double x;
double z;
z = copysign(0.5,x);
x = copysign(x,1.0);
#if defined(vax)||defined(tahoe)
#if defined(__vax__)||defined(tahoe)
if (x == 1.0) {
return(copysign(1.0,z)*infnan(ERANGE)); /* sign(x)*INF */
}
#endif /* defined(vax)||defined(tahoe) */
#endif /* defined(__vax__)||defined(tahoe) */
x = x/(1.0-x);
return( z*log1p(x+x) );
}

6
lib/libm/noieee_src/n_cosh.c
View File

@ -1,4 +1,4 @@
/* $NetBSD: n_cosh.c,v 1.3 1998/10/20 02:26:10 matt Exp $ */
/* $NetBSD: n_cosh.c,v 1.4 1998/11/08 19:29:34 ragge Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@ -114,9 +114,9 @@ double x;
one=1.0, small=1.0E-18; /* fl(1+small)==1 */
double t;
#if !defined(vax)&&!defined(tahoe)
#if !defined(__vax__)&&!defined(tahoe)
if(x!=x) return(x); /* x is NaN */
#endif /* !defined(vax)&&!defined(tahoe) */
#endif /* !defined(__vax__)&&!defined(tahoe) */
if((x=copysign(x,one)) <= 22) {
if(x<0.3465) {
if(x<small) { return(one+x); }

6
lib/libm/noieee_src/n_exp.c
View File

@ -1,4 +1,4 @@
/* $NetBSD: n_exp.c,v 1.3 1998/10/20 02:26:10 matt Exp $ */
/* $NetBSD: n_exp.c,v 1.4 1998/11/08 19:29:34 ragge Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@ -168,9 +168,9 @@ double x, c;
double z,hi,lo;
int k;
#if !defined(vax)&&!defined(tahoe)
#if !defined(__vax__)&&!defined(tahoe)
if (x!=x) return(x); /* x is NaN */
#endif /* !defined(vax)&&!defined(tahoe) */
#endif /* !defined(__vax__)&&!defined(tahoe) */
if ( x <= lnhuge ) {
if ( x >= lntiny ) {