mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2024-12-29 13:03:42 +01:00
Add k_log.h and k_logf.h
This commit is contained in:
Viral B. Shah
parent
d8bc4c085d
commit
b38406550b
3 changed files with 171 additions and 984 deletions
984
src/err
984
src/err
|
|
@ -1,984 +0,0 @@
|
||||||
e_acosf.c:59:10: warning: implicitly declaring C library function 'sqrtf' with type 'float (float)'
|
|
||||||
s = sqrtf(z);
|
|
||||||
^
|
|
||||||
e_acosf.c:59:10: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtf'
|
|
||||||
1 warning generated.
|
|
||||||
e_acosh.c:60:13: warning: implicit declaration of function 'log1p' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return log1p(t+sqrt(2.0*t+t*t));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_acoshf.c:38:10: warning: implicit declaration of function 'logf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_logf(x)+ln2; /* acosh(huge)=log(2x) */
|
|
||||||
^
|
|
||||||
In file included from e_acoshf.c:20:
|
|
||||||
./math_private.h:325:24: note: instantiated from:
|
|
||||||
#define __ieee754_logf logf
|
|
||||||
^
|
|
||||||
e_acoshf.c:43:48: warning: implicitly declaring C library function 'sqrtf' with type 'float (float)'
|
|
||||||
return __ieee754_logf((float)2.0*x-one/(x+__ieee754_sqrtf(t-one)));
|
|
||||||
^
|
|
||||||
In file included from e_acoshf.c:20:
|
|
||||||
./math_private.h:322:25: note: instantiated from:
|
|
||||||
#define __ieee754_sqrtf sqrtf
|
|
||||||
^
|
|
||||||
e_acoshf.c:43:48: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtf'
|
|
||||||
e_acoshf.c:46:13: warning: implicit declaration of function 'log1pf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return log1pf(t+__ieee754_sqrtf((float)2.0*t+t*t));
|
|
||||||
^
|
|
||||||
3 warnings generated.
|
|
||||||
e_acosl.c:25:10: fatal error: 'invtrig.h' file not found
|
|
||||||
#include "invtrig.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
e_asinf.c:57:10: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
w = one-fabsf(x);
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_asinl.c:25:10: fatal error: 'invtrig.h' file not found
|
|
||||||
#include "invtrig.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
e_atan2f.c:45:28: warning: implicit declaration of function 'atanf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(hx==0x3f800000) return atanf(y); /* x=1.0 */
|
|
||||||
^
|
|
||||||
e_atan2f.c:88:15: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
else z=atanf(fabsf(y/x)); /* safe to do y/x */
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
e_atan2l.c:26:10: fatal error: 'invtrig.h' file not found
|
|
||||||
#include "invtrig.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
e_atanh.c:58:14: warning: implicit declaration of function 'log1p' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = 0.5*log1p(t+t*x/(one-x));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_atanhf.c:41:21: warning: implicit declaration of function 'log1pf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = (float)0.5*log1pf(t+t*x/(one-x));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_cosh.c:59:10: warning: implicit declaration of function 'expm1' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1(fabs(x));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_coshf.c:38:10: warning: implicit declaration of function 'expm1f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1f(fabsf(x));
|
|
||||||
^
|
|
||||||
e_coshf.c:38:17: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1f(fabsf(x));
|
|
||||||
^
|
|
||||||
e_coshf.c:46:7: warning: implicit declaration of function 'expf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = __ieee754_expf(fabsf(x));
|
|
||||||
^
|
|
||||||
In file included from e_coshf.c:20:
|
|
||||||
./math_private.h:329:24: note: instantiated from:
|
|
||||||
#define __ieee754_expf expf
|
|
||||||
^
|
|
||||||
3 warnings generated.
|
|
||||||
e_gamma.c:32:9: warning: implicit declaration of function 'gamma_r' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_gamma_r(x,&signgam);
|
|
||||||
^
|
|
||||||
In file included from e_gamma.c:25:
|
|
||||||
./math_private.h:310:27: note: instantiated from:
|
|
||||||
#define __ieee754_gamma_r gamma_r
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_gamma_r.c:31:9: warning: implicit declaration of function 'lgamma_r' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_lgamma_r(x,signgamp);
|
|
||||||
^
|
|
||||||
In file included from e_gamma_r.c:26:
|
|
||||||
./math_private.h:309:28: note: instantiated from:
|
|
||||||
#define __ieee754_lgamma_r lgamma_r
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_gammaf.c:33:9: warning: implicit declaration of function 'gammaf_r' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_gammaf_r(x,&signgam);
|
|
||||||
^
|
|
||||||
In file included from e_gammaf.c:26:
|
|
||||||
./math_private.h:336:28: note: instantiated from:
|
|
||||||
#define __ieee754_gammaf_r gammaf_r
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_gammaf_r.c:32:9: warning: implicit declaration of function 'lgammaf_r' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_lgammaf_r(x,signgamp);
|
|
||||||
^
|
|
||||||
In file included from e_gammaf_r.c:27:
|
|
||||||
./math_private.h:335:29: note: instantiated from:
|
|
||||||
#define __ieee754_lgammaf_r lgammaf_r
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_hypotf.c:33:6: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
a = fabsf(a);
|
|
||||||
^
|
|
||||||
e_hypotf.c:70:11: warning: implicitly declaring C library function 'sqrtf' with type 'float (float)'
|
|
||||||
w = __ieee754_sqrtf(t1*t1-(b*(-b)-t2*(a+t1)));
|
|
||||||
^
|
|
||||||
In file included from e_hypotf.c:20:
|
|
||||||
./math_private.h:322:25: note: instantiated from:
|
|
||||||
#define __ieee754_sqrtf sqrtf
|
|
||||||
^
|
|
||||||
e_hypotf.c:70:11: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtf'
|
|
||||||
2 warnings generated.
|
|
||||||
e_hypotl.c:74:6: warning: implicit declaration of function 'fabsl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
a = fabsl(a);
|
|
||||||
^
|
|
||||||
e_hypotl.c:120:11: warning: implicitly declaring C library function 'sqrtl' with type 'long double (long double)'
|
|
||||||
w = sqrtl(t1*t1-(b*(-b)-t2*(a+t1)));
|
|
||||||
^
|
|
||||||
e_hypotl.c:120:11: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtl'
|
|
||||||
2 warnings generated.
|
|
||||||
e_j0f.c:50:6: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
x = fabsf(x);
|
|
||||||
^
|
|
||||||
e_j0f.c:52:7: warning: implicitly declaring C library function 'sinf' with type 'float (float)'
|
|
||||||
s = sinf(x);
|
|
||||||
^
|
|
||||||
e_j0f.c:52:7: note: please include the header <math.h> or explicitly provide a declaration for 'sinf'
|
|
||||||
e_j0f.c:53:7: warning: implicitly declaring C library function 'cosf' with type 'float (float)'
|
|
||||||
c = cosf(x);
|
|
||||||
^
|
|
||||||
e_j0f.c:53:7: note: please include the header <math.h> or explicitly provide a declaration for 'cosf'
|
|
||||||
e_j0f.c:65:40: warning: implicitly declaring C library function 'sqrtf' with type 'float (float)'
|
|
||||||
if(ix>0x80000000) z = (invsqrtpi*cc)/sqrtf(x);
|
|
||||||
^
|
|
||||||
e_j0f.c:65:40: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtf'
|
|
||||||
e_j0f.c:147:23: warning: implicit declaration of function 'logf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return(u00 + tpi*__ieee754_logf(x));
|
|
||||||
^
|
|
||||||
In file included from e_j0f.c:20:
|
|
||||||
./math_private.h:325:24: note: instantiated from:
|
|
||||||
#define __ieee754_logf logf
|
|
||||||
^
|
|
||||||
5 warnings generated.
|
|
||||||
e_j1f.c:51:6: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
y = fabsf(x);
|
|
||||||
^
|
|
||||||
e_j1f.c:53:7: warning: implicitly declaring C library function 'sinf' with type 'float (float)'
|
|
||||||
s = sinf(y);
|
|
||||||
^
|
|
||||||
e_j1f.c:53:7: note: please include the header <math.h> or explicitly provide a declaration for 'sinf'
|
|
||||||
e_j1f.c:54:7: warning: implicitly declaring C library function 'cosf' with type 'float (float)'
|
|
||||||
c = cosf(y);
|
|
||||||
^
|
|
||||||
e_j1f.c:54:7: note: please include the header <math.h> or explicitly provide a declaration for 'cosf'
|
|
||||||
e_j1f.c:66:40: warning: implicitly declaring C library function 'sqrtf' with type 'float (float)'
|
|
||||||
if(ix>0x80000000) z = (invsqrtpi*cc)/sqrtf(y);
|
|
||||||
^
|
|
||||||
e_j1f.c:66:40: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtf'
|
|
||||||
e_j1f.c:145:48: warning: implicit declaration of function 'logf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return(x*(u/v) + tpi*(__ieee754_j1f(x)*__ieee754_logf(x)-one/x));
|
|
||||||
^
|
|
||||||
In file included from e_j1f.c:20:
|
|
||||||
./math_private.h:325:24: note: instantiated from:
|
|
||||||
#define __ieee754_logf logf
|
|
||||||
^
|
|
||||||
5 warnings generated.
|
|
||||||
e_jn.c:72:18: warning: implicit declaration of function 'j0' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==0) return(__ieee754_j0(x));
|
|
||||||
^
|
|
||||||
In file included from e_jn.c:44:
|
|
||||||
./math_private.h:314:22: note: instantiated from:
|
|
||||||
#define __ieee754_j0 j0
|
|
||||||
^
|
|
||||||
e_jn.c:73:18: warning: implicit declaration of function 'j1' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==1) return(__ieee754_j1(x));
|
|
||||||
^
|
|
||||||
In file included from e_jn.c:44:
|
|
||||||
./math_private.h:315:22: note: instantiated from:
|
|
||||||
#define __ieee754_j1 j1
|
|
||||||
^
|
|
||||||
e_jn.c:232:18: warning: implicit declaration of function 'y0' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==0) return(__ieee754_y0(x));
|
|
||||||
^
|
|
||||||
In file included from e_jn.c:44:
|
|
||||||
./math_private.h:316:22: note: instantiated from:
|
|
||||||
#define __ieee754_y0 y0
|
|
||||||
^
|
|
||||||
e_jn.c:233:23: warning: implicit declaration of function 'y1' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==1) return(sign*__ieee754_y1(x));
|
|
||||||
^
|
|
||||||
In file included from e_jn.c:44:
|
|
||||||
./math_private.h:317:22: note: instantiated from:
|
|
||||||
#define __ieee754_y1 y1
|
|
||||||
^
|
|
||||||
4 warnings generated.
|
|
||||||
e_jnf.c:47:18: warning: implicit declaration of function 'j0f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==0) return(__ieee754_j0f(x));
|
|
||||||
^
|
|
||||||
In file included from e_jnf.c:20:
|
|
||||||
./math_private.h:341:23: note: instantiated from:
|
|
||||||
#define __ieee754_j0f j0f
|
|
||||||
^
|
|
||||||
e_jnf.c:48:18: warning: implicit declaration of function 'j1f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==1) return(__ieee754_j1f(x));
|
|
||||||
^
|
|
||||||
In file included from e_jnf.c:20:
|
|
||||||
./math_private.h:342:23: note: instantiated from:
|
|
||||||
#define __ieee754_j1f j1f
|
|
||||||
^
|
|
||||||
e_jnf.c:50:6: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
x = fabsf(x);
|
|
||||||
^
|
|
||||||
e_jnf.c:131:13: warning: implicit declaration of function 'logf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
tmp = tmp*__ieee754_logf(fabsf(v*tmp));
|
|
||||||
^
|
|
||||||
In file included from e_jnf.c:20:
|
|
||||||
./math_private.h:325:24: note: instantiated from:
|
|
||||||
#define __ieee754_logf logf
|
|
||||||
^
|
|
||||||
e_jnf.c:184:18: warning: implicit declaration of function 'y0f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==0) return(__ieee754_y0f(x));
|
|
||||||
^
|
|
||||||
In file included from e_jnf.c:20:
|
|
||||||
./math_private.h:343:23: note: instantiated from:
|
|
||||||
#define __ieee754_y0f y0f
|
|
||||||
^
|
|
||||||
e_jnf.c:185:23: warning: implicit declaration of function 'y1f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(n==1) return(sign*__ieee754_y1f(x));
|
|
||||||
^
|
|
||||||
In file included from e_jnf.c:20:
|
|
||||||
./math_private.h:344:23: note: instantiated from:
|
|
||||||
#define __ieee754_y1f y1f
|
|
||||||
^
|
|
||||||
6 warnings generated.
|
|
||||||
e_lgamma.c:32:9: warning: implicit declaration of function 'lgamma_r' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_lgamma_r(x,&signgam);
|
|
||||||
^
|
|
||||||
In file included from e_lgamma.c:25:
|
|
||||||
./math_private.h:309:28: note: instantiated from:
|
|
||||||
#define __ieee754_lgamma_r lgamma_r
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_lgammaf.c:33:9: warning: implicit declaration of function 'lgammaf_r' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_lgammaf_r(x,&signgam);
|
|
||||||
^
|
|
||||||
In file included from e_lgammaf.c:26:
|
|
||||||
./math_private.h:335:29: note: instantiated from:
|
|
||||||
#define __ieee754_lgammaf_r lgammaf_r
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_lgammaf_r.c:107:6: warning: implicit declaration of function 'floorf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
z = floorf(y);
|
|
||||||
^
|
|
||||||
e_lgammaf_r.c:154:18: warning: implicit declaration of function 'logf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return -__ieee754_logf(-x);
|
|
||||||
^
|
|
||||||
In file included from e_lgammaf_r.c:20:
|
|
||||||
./math_private.h:325:24: note: instantiated from:
|
|
||||||
#define __ieee754_logf logf
|
|
||||||
^
|
|
||||||
e_lgammaf_r.c:162:31: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
nadj = __ieee754_logf(pi/fabsf(t*x));
|
|
||||||
^
|
|
||||||
3 warnings generated.
|
|
||||||
e_log10.c:23:10: fatal error: 'k_log.h' file not found
|
|
||||||
#include "k_log.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
e_log10f.c:21:10: fatal error: 'k_logf.h' file not found
|
|
||||||
#include "k_logf.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
e_pow.c:300:21: warning: implicit declaration of function 'scalbn' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if((j>>20)<=0) z = scalbn(z,n); /* subnormal output */
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_powf.c:105:13: warning: implicitly declaring C library function 'sqrtf' with type 'float (float)'
|
|
||||||
return __ieee754_sqrtf(x);
|
|
||||||
^
|
|
||||||
In file included from e_powf.c:20:
|
|
||||||
./math_private.h:322:25: note: instantiated from:
|
|
||||||
#define __ieee754_sqrtf sqrtf
|
|
||||||
^
|
|
||||||
e_powf.c:105:13: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtf'
|
|
||||||
e_powf.c:108:9: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
ax = fabsf(x);
|
|
||||||
^
|
|
||||||
e_powf.c:243:21: warning: implicit declaration of function 'scalbnf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if((j>>23)<=0) z = scalbnf(z,n); /* subnormal output */
|
|
||||||
^
|
|
||||||
3 warnings generated.
|
|
||||||
e_remainderf.c:45:26: warning: implicit declaration of function 'fmodf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (hp<=0x7effffff) x = __ieee754_fmodf(x,p+p); /* now x < 2p */
|
|
||||||
^
|
|
||||||
In file included from e_remainderf.c:20:
|
|
||||||
./math_private.h:331:25: note: instantiated from:
|
|
||||||
#define __ieee754_fmodf fmodf
|
|
||||||
^
|
|
||||||
e_remainderf.c:47:7: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
x = fabsf(x);
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
e_remainderl.c:37:10: warning: implicit declaration of function 'remquol' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (remquol(x, y, &quo));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_scalb.c:37:6: warning: implicit declaration of function 'isnan' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (isnan(x)||isnan(fn)) return x*fn;
|
|
||||||
^
|
|
||||||
e_scalb.c:38:7: warning: implicit declaration of function 'finite' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!finite(fn)) {
|
|
||||||
^
|
|
||||||
e_scalb.c:42:6: warning: implicit declaration of function 'rint' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (rint(fn)!=fn) return (fn-fn)/(fn-fn);
|
|
||||||
^
|
|
||||||
e_scalb.c:43:28: warning: implicit declaration of function 'scalbn' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if ( fn > 65000.0) return scalbn(x, 65000);
|
|
||||||
^
|
|
||||||
4 warnings generated.
|
|
||||||
e_scalbf.c:33:7: error: use of undeclared identifier 'isnanf'; did you mean '__isnanf'?
|
|
||||||
if ((isnanf)(x)||(isnanf)(fn)) return x*fn;
|
|
||||||
^~~~~~
|
|
||||||
__isnanf
|
|
||||||
./openlibm.h:182:5: note: '__isnanf' declared here
|
|
||||||
int __isnanf(float) __pure2;
|
|
||||||
^
|
|
||||||
e_scalbf.c:33:20: error: use of undeclared identifier 'isnanf'; did you mean '__isnanf'?
|
|
||||||
if ((isnanf)(x)||(isnanf)(fn)) return x*fn;
|
|
||||||
^~~~~~
|
|
||||||
__isnanf
|
|
||||||
./openlibm.h:182:5: note: '__isnanf' declared here
|
|
||||||
int __isnanf(float) __pure2;
|
|
||||||
^
|
|
||||||
e_scalbf.c:34:7: warning: implicit declaration of function 'finitef' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!finitef(fn)) {
|
|
||||||
^
|
|
||||||
e_scalbf.c:38:6: warning: implicit declaration of function 'rintf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (rintf(fn)!=fn) return (fn-fn)/(fn-fn);
|
|
||||||
^
|
|
||||||
e_scalbf.c:39:35: warning: implicit declaration of function 'scalbnf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if ( fn > (float)65000.0) return scalbnf(x, 65000);
|
|
||||||
^
|
|
||||||
3 warnings and 2 errors generated.
|
|
||||||
e_sinh.c:60:10: warning: implicit declaration of function 'expm1' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1(fabs(x));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
e_sinhf.c:42:10: warning: implicit declaration of function 'expm1f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1f(fabsf(x));
|
|
||||||
^
|
|
||||||
e_sinhf.c:42:17: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1f(fabsf(x));
|
|
||||||
^
|
|
||||||
e_sinhf.c:48:33: warning: implicit declaration of function 'expf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (ix < 0x42b17217) return h*__ieee754_expf(fabsf(x));
|
|
||||||
^
|
|
||||||
In file included from e_sinhf.c:20:
|
|
||||||
./math_private.h:329:24: note: instantiated from:
|
|
||||||
#define __ieee754_expf expf
|
|
||||||
^
|
|
||||||
3 warnings generated.
|
|
||||||
e_sqrtl.c:68:14: warning: pragma STDC FENV_ACCESS ON is not supported, ignoring pragma [-Wunknown-pragmas]
|
|
||||||
#pragma STDC FENV_ACCESS ON
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
k_rem_pio2.c:327:7: warning: implicit declaration of function 'scalbn' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
z = scalbn(z,q0); /* actual value of z */
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_asinh.c:53:9: warning: implicit declaration of function 'log1p' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
w =log1p(fabs(x)+t/(one+__ieee754_sqrt(one+t)));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_asinhf.c:39:10: warning: implicit declaration of function 'logf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
w = __ieee754_logf(fabsf(x))+ln2;
|
|
||||||
^
|
|
||||||
In file included from s_asinhf.c:20:
|
|
||||||
./math_private.h:325:24: note: instantiated from:
|
|
||||||
#define __ieee754_logf logf
|
|
||||||
^
|
|
||||||
s_asinhf.c:39:25: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
w = __ieee754_logf(fabsf(x))+ln2;
|
|
||||||
^
|
|
||||||
s_asinhf.c:42:43: warning: implicitly declaring C library function 'sqrtf' with type 'float (float)'
|
|
||||||
w = __ieee754_logf((float)2.0*t+one/(__ieee754_sqrtf(x*x+one)+t));
|
|
||||||
^
|
|
||||||
In file included from s_asinhf.c:20:
|
|
||||||
./math_private.h:322:25: note: instantiated from:
|
|
||||||
#define __ieee754_sqrtf sqrtf
|
|
||||||
^
|
|
||||||
s_asinhf.c:42:43: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtf'
|
|
||||||
s_asinhf.c:45:9: warning: implicit declaration of function 'log1pf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
w =log1pf(fabsf(x)+t/(one+__ieee754_sqrtf(one+t)));
|
|
||||||
^
|
|
||||||
4 warnings generated.
|
|
||||||
s_atanf.c:67:6: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
x = fabsf(x);
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_atanl.c:24:10: fatal error: 'invtrig.h' file not found
|
|
||||||
#include "invtrig.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_cargf.c:37:10: warning: implicit declaration of function 'atan2f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (atan2f(cimagf(z), crealf(z)));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_cargl.c:37:10: warning: implicit declaration of function 'atan2l' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (atan2l(cimagl(z), creall(z)));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_cbrt.c:42:6: error: unknown type name 'uint64_t'
|
|
||||||
uint64_t bits;
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_cimag.c:35:8: error: unknown type name 'double_complex'
|
|
||||||
const double_complex z1 = { .f = z };
|
|
||||||
^
|
|
||||||
s_cimag.c:37:10: warning: implicit declaration of function 'IMAGPART' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (IMAGPART(z1));
|
|
||||||
^
|
|
||||||
1 warning and 1 error generated.
|
|
||||||
s_cimagf.c:35:8: error: unknown type name 'float_complex'
|
|
||||||
const float_complex z1 = { .f = z };
|
|
||||||
^
|
|
||||||
s_cimagf.c:37:10: warning: implicit declaration of function 'IMAGPART' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (IMAGPART(z1));
|
|
||||||
^
|
|
||||||
1 warning and 1 error generated.
|
|
||||||
s_cimagl.c:35:8: error: unknown type name 'long_double_complex'
|
|
||||||
const long_double_complex z1 = { .f = z };
|
|
||||||
^
|
|
||||||
s_cimagl.c:37:10: warning: implicit declaration of function 'IMAGPART' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (IMAGPART(z1));
|
|
||||||
^
|
|
||||||
1 warning and 1 error generated.
|
|
||||||
s_conj.c:37:10: warning: implicit declaration of function 'cpack' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpack(creal(z), -cimag(z)));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_conjf.c:37:10: warning: implicit declaration of function 'cpackf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackf(crealf(z), -cimagf(z)));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_conjl.c:37:10: warning: implicit declaration of function 'cpackl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackl(creall(z), -cimagl(z)));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_cosf.c:33:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
c1pio2 = 1*M_PI_2, /* 0x3FF921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
s_cosf.c:34:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
c2pio2 = 2*M_PI_2, /* 0x400921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
s_cosf.c:35:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
c3pio2 = 3*M_PI_2, /* 0x4012D97C, 0x7F3321D2 */
|
|
||||||
^
|
|
||||||
s_cosf.c:36:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
c4pio2 = 4*M_PI_2; /* 0x401921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
4 errors generated.
|
|
||||||
s_cosl.c:40:10: fatal error: '../ld80/e_rem_pio2l.h' file not found
|
|
||||||
#include "../ld80/e_rem_pio2l.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_cproj.c:39:7: warning: implicit declaration of function 'isinf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isinf(creal(z)) && !isinf(cimag(z)))
|
|
||||||
^
|
|
||||||
s_cproj.c:42:11: warning: implicit declaration of function 'cpack' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpack(INFINITY, copysign(0.0, cimag(z))));
|
|
||||||
^
|
|
||||||
s_cproj.c:42:17: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (cpack(INFINITY, copysign(0.0, cimag(z))));
|
|
||||||
^
|
|
||||||
2 warnings and 1 error generated.
|
|
||||||
s_cprojf.c:39:7: warning: implicit declaration of function 'isinf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isinf(crealf(z)) && !isinf(cimagf(z)))
|
|
||||||
^
|
|
||||||
s_cprojf.c:42:11: warning: implicit declaration of function 'cpackf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackf(INFINITY, copysignf(0.0, cimagf(z))));
|
|
||||||
^
|
|
||||||
s_cprojf.c:42:18: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (cpackf(INFINITY, copysignf(0.0, cimagf(z))));
|
|
||||||
^
|
|
||||||
2 warnings and 1 error generated.
|
|
||||||
s_cprojl.c:39:7: warning: implicit declaration of function 'isinf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isinf(creall(z)) && !isinf(cimagl(z)))
|
|
||||||
^
|
|
||||||
s_cprojl.c:42:11: warning: implicit declaration of function 'cpackl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackl(INFINITY, copysignl(0.0, cimagl(z))));
|
|
||||||
^
|
|
||||||
s_cprojl.c:42:18: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (cpackl(INFINITY, copysignl(0.0, cimagl(z))));
|
|
||||||
^
|
|
||||||
2 warnings and 1 error generated.
|
|
||||||
s_csqrt.c:61:11: warning: implicit declaration of function 'cpack' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpack(0, b));
|
|
||||||
^
|
|
||||||
s_csqrt.c:62:6: warning: implicit declaration of function 'isinf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (isinf(b))
|
|
||||||
^
|
|
||||||
s_csqrt.c:63:17: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (cpack(INFINITY, b));
|
|
||||||
^
|
|
||||||
s_csqrt.c:64:6: warning: implicit declaration of function 'isnan' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (isnan(a)) {
|
|
||||||
^
|
|
||||||
s_csqrt.c:75:7: warning: implicit declaration of function 'signbit' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (signbit(a))
|
|
||||||
^
|
|
||||||
s_csqrt.c:76:31: warning: implicit declaration of function 'copysign' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpack(fabs(b - b), copysign(a, b)));
|
|
||||||
^
|
|
||||||
s_csqrt.c:96:17: warning: implicit declaration of function 'hypot' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = sqrt((a + hypot(a, b)) * 0.5);
|
|
||||||
^
|
|
||||||
6 warnings and 1 error generated.
|
|
||||||
s_csqrtf.c:52:11: warning: implicit declaration of function 'cpackf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackf(0, b));
|
|
||||||
^
|
|
||||||
s_csqrtf.c:53:6: warning: implicit declaration of function 'isinf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (isinf(b))
|
|
||||||
^
|
|
||||||
s_csqrtf.c:54:18: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (cpackf(INFINITY, b));
|
|
||||||
^
|
|
||||||
s_csqrtf.c:55:6: warning: implicit declaration of function 'isnan' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (isnan(a)) {
|
|
||||||
^
|
|
||||||
s_csqrtf.c:66:7: warning: implicit declaration of function 'signbit' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (signbit(a))
|
|
||||||
^
|
|
||||||
s_csqrtf.c:67:19: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackf(fabsf(b - b), copysignf(a, b)));
|
|
||||||
^
|
|
||||||
s_csqrtf.c:67:33: warning: implicit declaration of function 'copysignf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackf(fabsf(b - b), copysignf(a, b)));
|
|
||||||
^
|
|
||||||
s_csqrtf.c:82:17: warning: implicit declaration of function 'hypot' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = sqrt((a + hypot(a, b)) * 0.5);
|
|
||||||
^
|
|
||||||
7 warnings and 1 error generated.
|
|
||||||
s_csqrtl.c:61:11: warning: implicit declaration of function 'cpackl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackl(0, b));
|
|
||||||
^
|
|
||||||
s_csqrtl.c:62:6: warning: implicit declaration of function 'isinf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (isinf(b))
|
|
||||||
^
|
|
||||||
s_csqrtl.c:63:18: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (cpackl(INFINITY, b));
|
|
||||||
^
|
|
||||||
s_csqrtl.c:64:6: warning: implicit declaration of function 'isnan' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (isnan(a)) {
|
|
||||||
^
|
|
||||||
s_csqrtl.c:75:7: warning: implicit declaration of function 'signbit' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (signbit(a))
|
|
||||||
^
|
|
||||||
s_csqrtl.c:76:19: warning: implicit declaration of function 'fabsl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackl(fabsl(b - b), copysignl(a, b)));
|
|
||||||
^
|
|
||||||
s_csqrtl.c:76:33: warning: implicit declaration of function 'copysignl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (cpackl(fabsl(b - b), copysignl(a, b)));
|
|
||||||
^
|
|
||||||
s_csqrtl.c:96:7: warning: implicitly declaring C library function 'sqrtl' with type 'long double (long double)'
|
|
||||||
t = sqrtl((a + hypotl(a, b)) * 0.5);
|
|
||||||
^
|
|
||||||
s_csqrtl.c:96:7: note: please include the header <math.h> or explicitly provide a declaration for 'sqrtl'
|
|
||||||
s_csqrtl.c:96:18: warning: implicit declaration of function 'hypotl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = sqrtl((a + hypotl(a, b)) * 0.5);
|
|
||||||
^
|
|
||||||
8 warnings and 1 error generated.
|
|
||||||
s_erff.c:123:10: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
s = fabsf(x)-one;
|
|
||||||
^
|
|
||||||
s_erff.c:146:8: warning: implicit declaration of function 'expf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
r = __ieee754_expf(-z*z-(float)0.5625)*__ieee754_expf((z-x)*(z+x)+R/S);
|
|
||||||
^
|
|
||||||
In file included from s_erff.c:20:
|
|
||||||
./math_private.h:329:24: note: instantiated from:
|
|
||||||
#define __ieee754_expf expf
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
s_fdim.c:44:1: warning: implicit declaration of function 'isnan' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
DECL(double, fdim)
|
|
||||||
^
|
|
||||||
s_fdim.c:37:6: note: instantiated from:
|
|
||||||
if (isnan(x)) \
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_fma.c:72:7: warning: implicit declaration of function 'isfinite' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isfinite(x) || !isfinite(y))
|
|
||||||
^
|
|
||||||
s_fma.c:100:9: warning: implicit declaration of function 'nextafter' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
r = nextafter(r, 0);
|
|
||||||
^
|
|
||||||
s_fma.c:109:23: error: use of undeclared identifier 'INFINITY'
|
|
||||||
r = nextafter(r, -INFINITY);
|
|
||||||
^
|
|
||||||
s_fma.c:118:22: error: use of undeclared identifier 'INFINITY'
|
|
||||||
r = nextafter(r, INFINITY);
|
|
||||||
^
|
|
||||||
s_fma.c:125:8: warning: implicit declaration of function 'isnormal' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isnormal(z))
|
|
||||||
^
|
|
||||||
s_fma.c:139:27: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (nextafter(z, -INFINITY));
|
|
||||||
^
|
|
||||||
s_fma.c:142:26: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (nextafter(z, INFINITY));
|
|
||||||
^
|
|
||||||
s_fma.c:176:15: warning: implicit declaration of function 'ilogb' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (spread + ilogb(r) > -1023) {
|
|
||||||
^
|
|
||||||
s_fma.c:184:13: warning: implicit declaration of function 'copysign' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
p = ldexp(copysign(0x1p-1022, r), -spread);
|
|
||||||
^
|
|
||||||
5 warnings and 4 errors generated.
|
|
||||||
s_fmal.c:67:7: warning: implicit declaration of function 'isfinite' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isfinite(x) || !isfinite(y))
|
|
||||||
^
|
|
||||||
s_fmal.c:72:7: warning: implicit declaration of function 'frexpl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
xs = frexpl(x, &ex);
|
|
||||||
^
|
|
||||||
s_fmal.c:95:9: warning: implicit declaration of function 'nextafterl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
r = nextafterl(r, 0);
|
|
||||||
^
|
|
||||||
s_fmal.c:104:24: error: use of undeclared identifier 'INFINITY'
|
|
||||||
r = nextafterl(r, -INFINITY);
|
|
||||||
^
|
|
||||||
s_fmal.c:113:23: error: use of undeclared identifier 'INFINITY'
|
|
||||||
r = nextafterl(r, INFINITY);
|
|
||||||
^
|
|
||||||
s_fmal.c:120:8: warning: implicit declaration of function 'isnormal' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isnormal(z))
|
|
||||||
^
|
|
||||||
s_fmal.c:134:28: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (nextafterl(z, -INFINITY));
|
|
||||||
^
|
|
||||||
s_fmal.c:137:27: error: use of undeclared identifier 'INFINITY'
|
|
||||||
return (nextafterl(z, INFINITY));
|
|
||||||
^
|
|
||||||
s_fmal.c:165:7: warning: implicit declaration of function 'ldexpl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
zs = ldexpl(zs, -spread);
|
|
||||||
^
|
|
||||||
s_fmal.c:171:15: warning: implicit declaration of function 'ilogbl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (spread + ilogbl(r) > -16383) {
|
|
||||||
^
|
|
||||||
s_fmal.c:179:14: warning: implicit declaration of function 'copysignl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
p = ldexpl(copysignl(0x1p-16382L, r), -spread);
|
|
||||||
^
|
|
||||||
7 warnings and 4 errors generated.
|
|
||||||
s_ilogb.c:36:10: error: use of undeclared identifier 'FP_ILOGB0'
|
|
||||||
return FP_ILOGB0;
|
|
||||||
^
|
|
||||||
s_ilogb.c:46:42: error: use of undeclared identifier 'FP_ILOGBNAN'
|
|
||||||
else if (hx>0x7ff00000 || lx!=0) return FP_ILOGBNAN;
|
|
||||||
^
|
|
||||||
2 errors generated.
|
|
||||||
s_ilogbf.c:32:10: error: use of undeclared identifier 'FP_ILOGB0'
|
|
||||||
return FP_ILOGB0;
|
|
||||||
^
|
|
||||||
s_ilogbf.c:38:33: error: use of undeclared identifier 'FP_ILOGBNAN'
|
|
||||||
else if (hx>0x7f800000) return FP_ILOGBNAN;
|
|
||||||
^
|
|
||||||
2 errors generated.
|
|
||||||
s_ilogbl.c:32:12: error: use of undeclared identifier 'FP_ILOGB0'
|
|
||||||
return (FP_ILOGB0);
|
|
||||||
^
|
|
||||||
s_ilogbl.c:50:11: error: use of undeclared identifier 'FP_ILOGBNAN'
|
|
||||||
return (FP_ILOGBNAN);
|
|
||||||
^
|
|
||||||
2 errors generated.
|
|
||||||
s_isnan.c:64:1: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
|
|
||||||
__weak_reference(__isnanf, isnanf);
|
|
||||||
^~~~~~~~~~~~~~~~
|
|
||||||
s_isnan.c:64:18: error: a parameter list without types is only allowed in a function definition
|
|
||||||
__weak_reference(__isnanf, isnanf);
|
|
||||||
^
|
|
||||||
1 warning and 1 error generated.
|
|
||||||
In file included from s_llrint.c:9:
|
|
||||||
./s_lrint.c:53:13: warning: implicit declaration of function 'rint' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
d = (dtype)roundit(x);
|
|
||||||
^
|
|
||||||
s_llrint.c:5:18: note: instantiated from:
|
|
||||||
#define roundit rint
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
In file included from s_llrintf.c:9:
|
|
||||||
./s_lrint.c:53:13: warning: implicit declaration of function 'rintf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
d = (dtype)roundit(x);
|
|
||||||
^
|
|
||||||
s_llrintf.c:5:18: note: instantiated from:
|
|
||||||
#define roundit rintf
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
In file included from s_llrintl.c:9:
|
|
||||||
./s_lrint.c:53:13: warning: implicit declaration of function 'rintl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
d = (dtype)roundit(x);
|
|
||||||
^
|
|
||||||
s_llrintl.c:5:18: note: instantiated from:
|
|
||||||
#define roundit rintl
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
In file included from s_llround.c:11:
|
|
||||||
./s_lround.c:28:10: fatal error: 'sys/limits.h' file not found
|
|
||||||
#include <sys/limits.h>
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
In file included from s_llroundf.c:11:
|
|
||||||
./s_lround.c:28:10: fatal error: 'sys/limits.h' file not found
|
|
||||||
#include <sys/limits.h>
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
In file included from s_llroundl.c:11:
|
|
||||||
./s_lround.c:28:10: fatal error: 'sys/limits.h' file not found
|
|
||||||
#include <sys/limits.h>
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_logbf.c:31:31: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if(ix==0) return (float)-1.0/fabsf(x);
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_lrint.c:53:13: warning: implicit declaration of function 'rint' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
d = (dtype)roundit(x);
|
|
||||||
^
|
|
||||||
s_lrint.c:34:18: note: instantiated from:
|
|
||||||
#define roundit rint
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
In file included from s_lrintf.c:9:
|
|
||||||
./s_lrint.c:53:13: warning: implicit declaration of function 'rintf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
d = (dtype)roundit(x);
|
|
||||||
^
|
|
||||||
s_lrintf.c:5:18: note: instantiated from:
|
|
||||||
#define roundit rintf
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
In file included from s_lrintl.c:9:
|
|
||||||
./s_lrint.c:53:13: warning: implicit declaration of function 'rintl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
d = (dtype)roundit(x);
|
|
||||||
^
|
|
||||||
s_lrintl.c:5:18: note: instantiated from:
|
|
||||||
#define roundit rintl
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_lround.c:28:10: fatal error: 'sys/limits.h' file not found
|
|
||||||
#include <sys/limits.h>
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
In file included from s_lroundf.c:11:
|
|
||||||
./s_lround.c:28:10: fatal error: 'sys/limits.h' file not found
|
|
||||||
#include <sys/limits.h>
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
In file included from s_lroundl.c:11:
|
|
||||||
./s_lround.c:28:10: fatal error: 'sys/limits.h' file not found
|
|
||||||
#include <sys/limits.h>
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_modfl.c:70:9: error: use of undeclared identifier 'uint32_t'
|
|
||||||
if ((GETFRAC(ux.bits.manh, HIBITS - 1 - e) |
|
|
||||||
^
|
|
||||||
s_modfl.c:51:38: note: instantiated from:
|
|
||||||
#define GETFRAC(bits, n) ((bits) & ~(MASK << (n)))
|
|
||||||
^
|
|
||||||
s_modfl.c:48:16: note: instantiated from:
|
|
||||||
#define MASK ((uint32_t)-1)
|
|
||||||
^
|
|
||||||
s_modfl.c:89:7: error: use of undeclared identifier 'uint32_t'
|
|
||||||
if (GETFRAC(ux.bits.manl, LDBL_MANT_DIG - 1 - e) == 0) {
|
|
||||||
^
|
|
||||||
s_modfl.c:51:38: note: instantiated from:
|
|
||||||
#define GETFRAC(bits, n) ((bits) & ~(MASK << (n)))
|
|
||||||
^
|
|
||||||
s_modfl.c:48:16: note: instantiated from:
|
|
||||||
#define MASK ((uint32_t)-1)
|
|
||||||
^
|
|
||||||
2 errors generated.
|
|
||||||
s_nan.c:29:10: fatal error: 'sys/endian.h' file not found
|
|
||||||
#include <sys/endian.h>
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_nearbyint.c:53:1: warning: implicit declaration of function 'rint' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
DECL(double, nearbyint, rint)
|
|
||||||
^
|
|
||||||
s_nearbyint.c:53:25: note: instantiated from:
|
|
||||||
DECL(double, nearbyint, rint)
|
|
||||||
^
|
|
||||||
s_nearbyint.c:54:1: warning: implicit declaration of function 'rintf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
DECL(float, nearbyintf, rintf)
|
|
||||||
^
|
|
||||||
s_nearbyint.c:54:25: note: instantiated from:
|
|
||||||
DECL(float, nearbyintf, rintf)
|
|
||||||
^
|
|
||||||
s_nearbyint.c:55:1: warning: implicit declaration of function 'rintl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
DECL(long double, nearbyintl, rintl)
|
|
||||||
^
|
|
||||||
s_nearbyint.c:55:31: note: instantiated from:
|
|
||||||
DECL(long double, nearbyintl, rintl)
|
|
||||||
^
|
|
||||||
3 warnings generated.
|
|
||||||
s_nextafterl.c:80:1: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
|
|
||||||
__strong_reference(nextafterl, nexttowardl);
|
|
||||||
^~~~~~~~~~~~~~~~~~
|
|
||||||
s_nextafterl.c:80:20: error: a parameter list without types is only allowed in a function definition
|
|
||||||
__strong_reference(nextafterl, nexttowardl);
|
|
||||||
^
|
|
||||||
1 warning and 1 error generated.
|
|
||||||
s_remquof.c:106:6: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
y = fabsf(y);
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_remquol.c:159:6: warning: implicit declaration of function 'fabsl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
y = fabsl(y);
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_rintl.c:58:2: error: use of undeclared identifier 'uint32_t'
|
|
||||||
uint32_t expsign;
|
|
||||||
^
|
|
||||||
s_rintl.c:62:2: error: use of undeclared identifier 'expsign'
|
|
||||||
expsign = u.xbits.expsign;
|
|
||||||
^
|
|
||||||
s_rintl.c:63:7: error: use of undeclared identifier 'expsign'
|
|
||||||
ex = expsign & 0x7fff;
|
|
||||||
^
|
|
||||||
s_rintl.c:70:9: error: use of undeclared identifier 'expsign'
|
|
||||||
sign = expsign >> 15;
|
|
||||||
^
|
|
||||||
4 errors generated.
|
|
||||||
s_round.c:37:7: warning: implicit declaration of function 'isfinite' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isfinite(x))
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_roundf.c:37:7: warning: implicit declaration of function 'isfinite' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isfinite(x))
|
|
||||||
^
|
|
||||||
s_roundf.c:41:7: warning: implicit declaration of function 'floorf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = floorf(x);
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
s_roundl.c:37:7: warning: implicit declaration of function 'isfinite' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (!isfinite(x))
|
|
||||||
^
|
|
||||||
s_roundl.c:41:7: warning: implicit declaration of function 'floorl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = floorl(x);
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
s_scalbln.c:45:10: warning: implicit declaration of function 'scalbn' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (scalbn(x, in));
|
|
||||||
^
|
|
||||||
s_scalbln.c:60:10: warning: implicit declaration of function 'scalbnf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (scalbnf(x, in));
|
|
||||||
^
|
|
||||||
s_scalbln.c:75:10: warning: implicit declaration of function 'scalbnl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (scalbnl(x, (int)n));
|
|
||||||
^
|
|
||||||
3 warnings generated.
|
|
||||||
s_scalbn.c:51:37: warning: implicit declaration of function 'copysign' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (k > 0x7fe) return huge*copysign(huge,x); /* overflow */
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_scalbnf.c:46:36: warning: implicit declaration of function 'copysignf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (k > 0xfe) return huge*copysignf(huge,x); /* overflow */
|
|
||||||
^
|
|
||||||
s_scalbnf.c:58:1: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
|
|
||||||
__strong_reference(scalbnf, ldexpf);
|
|
||||||
^~~~~~~~~~~~~~~~~~
|
|
||||||
s_scalbnf.c:58:20: error: a parameter list without types is only allowed in a function definition
|
|
||||||
__strong_reference(scalbnf, ldexpf);
|
|
||||||
^
|
|
||||||
2 warnings and 1 error generated.
|
|
||||||
s_scalbnl.c:59:38: warning: implicit declaration of function 'copysignl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
if (k >= 0x7fff) return huge*copysignl(huge,x); /* overflow */
|
|
||||||
^
|
|
||||||
s_scalbnl.c:64:15: warning: implicit declaration of function 'copysign' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return huge*copysign(huge,x); /*overflow*/
|
|
||||||
^
|
|
||||||
s_scalbnl.c:71:1: warning: type specifier missing, defaults to 'int' [-Wimplicit-int]
|
|
||||||
__strong_reference(scalbnl, ldexpl);
|
|
||||||
^~~~~~~~~~~~~~~~~~
|
|
||||||
s_scalbnl.c:71:20: error: a parameter list without types is only allowed in a function definition
|
|
||||||
__strong_reference(scalbnl, ldexpl);
|
|
||||||
^
|
|
||||||
3 warnings and 1 error generated.
|
|
||||||
s_significand.c:28:9: warning: implicit declaration of function 'scalb' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_scalb(x,(double) -ilogb(x));
|
|
||||||
^
|
|
||||||
In file included from s_significand.c:23:
|
|
||||||
./math_private.h:321:25: note: instantiated from:
|
|
||||||
#define __ieee754_scalb scalb
|
|
||||||
^
|
|
||||||
s_significand.c:28:37: warning: implicit declaration of function 'ilogb' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_scalb(x,(double) -ilogb(x));
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
s_significandf.c:25:9: warning: implicit declaration of function 'scalbf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_scalbf(x,(float) -ilogbf(x));
|
|
||||||
^
|
|
||||||
In file included from s_significandf.c:20:
|
|
||||||
./math_private.h:348:26: note: instantiated from:
|
|
||||||
#define __ieee754_scalbf scalbf
|
|
||||||
^
|
|
||||||
s_significandf.c:25:37: warning: implicit declaration of function 'ilogbf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return __ieee754_scalbf(x,(float) -ilogbf(x));
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
s_sinf.c:33:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
s1pio2 = 1*M_PI_2, /* 0x3FF921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
s_sinf.c:34:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
s2pio2 = 2*M_PI_2, /* 0x400921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
s_sinf.c:35:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
s3pio2 = 3*M_PI_2, /* 0x4012D97C, 0x7F3321D2 */
|
|
||||||
^
|
|
||||||
s_sinf.c:36:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
s4pio2 = 4*M_PI_2; /* 0x401921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
4 errors generated.
|
|
||||||
s_sinl.c:35:10: fatal error: '../ld80/e_rem_pio2l.h' file not found
|
|
||||||
#include "../ld80/e_rem_pio2l.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_tanf.c:31:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
t1pio2 = 1*M_PI_2, /* 0x3FF921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
s_tanf.c:32:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
t2pio2 = 2*M_PI_2, /* 0x400921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
s_tanf.c:33:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
t3pio2 = 3*M_PI_2, /* 0x4012D97C, 0x7F3321D2 */
|
|
||||||
^
|
|
||||||
s_tanf.c:34:12: error: use of undeclared identifier 'M_PI_2'
|
|
||||||
t4pio2 = 4*M_PI_2; /* 0x401921FB, 0x54442D18 */
|
|
||||||
^
|
|
||||||
4 errors generated.
|
|
||||||
s_tanh.c:66:7: warning: implicit declaration of function 'expm1' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1(two*fabs(x));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
s_tanhf.c:44:7: warning: implicit declaration of function 'expm1f' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1f(two*fabsf(x));
|
|
||||||
^
|
|
||||||
s_tanhf.c:44:18: warning: implicit declaration of function 'fabsf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
t = expm1f(two*fabsf(x));
|
|
||||||
^
|
|
||||||
2 warnings generated.
|
|
||||||
s_tanl.c:41:10: fatal error: '../ld80/e_rem_pio2l.h' file not found
|
|
||||||
#include "../ld80/e_rem_pio2l.h"
|
|
||||||
^
|
|
||||||
1 error generated.
|
|
||||||
s_tgammaf.c:42:10: warning: implicit declaration of function 'tgamma' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return (tgamma(x));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
w_cabs.c:18:9: warning: implicit declaration of function 'hypot' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return hypot(creal(z), cimag(z));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
w_cabsf.c:22:9: warning: implicit declaration of function 'hypotf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return hypotf(crealf(z), cimagf(z));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
w_cabsl.c:19:9: warning: implicit declaration of function 'hypotl' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return hypotl(creall(z), cimagl(z));
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
w_drem.c:14:9: warning: implicit declaration of function 'remainder' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return remainder(x, y);
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
w_dremf.c:15:9: warning: implicit declaration of function 'remainderf' is invalid in C99 [-Wimplicit-function-declaration]
|
|
||||||
return remainderf(x, y);
|
|
||||||
^
|
|
||||||
1 warning generated.
|
|
||||||
116
src/k_log.h
Normal file
116
src/k_log.h
Normal file
|
|
@ -0,0 +1,116 @@
|
||||||
|
|
||||||
|
/* @(#)e_log.c 1.3 95/01/18 */
|
||||||
|
/*
|
||||||
|
* ====================================================
|
||||||
|
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
||||||
|
*
|
||||||
|
* Developed at SunSoft, a Sun Microsystems, Inc. business.
|
||||||
|
* Permission to use, copy, modify, and distribute this
|
||||||
|
* software is freely granted, provided that this notice
|
||||||
|
* is preserved.
|
||||||
|
* ====================================================
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <sys/cdefs.h>
|
||||||
|
__FBSDID("$FreeBSD: src/lib/msun/src/k_log.h,v 1.1.2.2 2011/03/06 08:49:44 das Exp $");
|
||||||
|
|
||||||
|
/* __kernel_log(x)
|
||||||
|
* Return log(x) - (x-1) for x in ~[sqrt(2)/2, sqrt(2)].
|
||||||
|
*
|
||||||
|
* The following describes the overall strategy for computing
|
||||||
|
* logarithms in base e. The argument reduction and adding the final
|
||||||
|
* term of the polynomial are done by the caller for increased accuracy
|
||||||
|
* when different bases are used.
|
||||||
|
*
|
||||||
|
* Method :
|
||||||
|
* 1. Argument Reduction: find k and f such that
|
||||||
|
* x = 2^k * (1+f),
|
||||||
|
* where sqrt(2)/2 < 1+f < sqrt(2) .
|
||||||
|
*
|
||||||
|
* 2. Approximation of log(1+f).
|
||||||
|
* Let s = f/(2+f) ; based on log(1+f) = log(1+s) - log(1-s)
|
||||||
|
* = 2s + 2/3 s**3 + 2/5 s**5 + .....,
|
||||||
|
* = 2s + s*R
|
||||||
|
* We use a special Reme algorithm on [0,0.1716] to generate
|
||||||
|
* a polynomial of degree 14 to approximate R The maximum error
|
||||||
|
* of this polynomial approximation is bounded by 2**-58.45. In
|
||||||
|
* other words,
|
||||||
|
* 2 4 6 8 10 12 14
|
||||||
|
* R(z) ~ Lg1*s +Lg2*s +Lg3*s +Lg4*s +Lg5*s +Lg6*s +Lg7*s
|
||||||
|
* (the values of Lg1 to Lg7 are listed in the program)
|
||||||
|
* and
|
||||||
|
* | 2 14 | -58.45
|
||||||
|
* | Lg1*s +...+Lg7*s - R(z) | <= 2
|
||||||
|
* | |
|
||||||
|
* Note that 2s = f - s*f = f - hfsq + s*hfsq, where hfsq = f*f/2.
|
||||||
|
* In order to guarantee error in log below 1ulp, we compute log
|
||||||
|
* by
|
||||||
|
* log(1+f) = f - s*(f - R) (if f is not too large)
|
||||||
|
* log(1+f) = f - (hfsq - s*(hfsq+R)). (better accuracy)
|
||||||
|
*
|
||||||
|
* 3. Finally, log(x) = k*ln2 + log(1+f).
|
||||||
|
* = k*ln2_hi+(f-(hfsq-(s*(hfsq+R)+k*ln2_lo)))
|
||||||
|
* Here ln2 is split into two floating point number:
|
||||||
|
* ln2_hi + ln2_lo,
|
||||||
|
* where n*ln2_hi is always exact for |n| < 2000.
|
||||||
|
*
|
||||||
|
* Special cases:
|
||||||
|
* log(x) is NaN with signal if x < 0 (including -INF) ;
|
||||||
|
* log(+INF) is +INF; log(0) is -INF with signal;
|
||||||
|
* log(NaN) is that NaN with no signal.
|
||||||
|
*
|
||||||
|
* Accuracy:
|
||||||
|
* according to an error analysis, the error is always less than
|
||||||
|
* 1 ulp (unit in the last place).
|
||||||
|
*
|
||||||
|
* Constants:
|
||||||
|
* The hexadecimal values are the intended ones for the following
|
||||||
|
* constants. The decimal values may be used, provided that the
|
||||||
|
* compiler will convert from decimal to binary accurately enough
|
||||||
|
* to produce the hexadecimal values shown.
|
||||||
|
*/
|
||||||
|
|
||||||
|
static const double
|
||||||
|
Lg1 = 6.666666666666735130e-01, /* 3FE55555 55555593 */
|
||||||
|
Lg2 = 3.999999999940941908e-01, /* 3FD99999 9997FA04 */
|
||||||
|
Lg3 = 2.857142874366239149e-01, /* 3FD24924 94229359 */
|
||||||
|
Lg4 = 2.222219843214978396e-01, /* 3FCC71C5 1D8E78AF */
|
||||||
|
Lg5 = 1.818357216161805012e-01, /* 3FC74664 96CB03DE */
|
||||||
|
Lg6 = 1.531383769920937332e-01, /* 3FC39A09 D078C69F */
|
||||||
|
Lg7 = 1.479819860511658591e-01; /* 3FC2F112 DF3E5244 */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* We always inline __kernel_log(), since doing so produces a
|
||||||
|
* substantial performance improvement (~40% on amd64).
|
||||||
|
*/
|
||||||
|
static inline double
|
||||||
|
__kernel_log(double x)
|
||||||
|
{
|
||||||
|
double hfsq,f,s,z,R,w,t1,t2;
|
||||||
|
int32_t hx,i,j;
|
||||||
|
u_int32_t lx;
|
||||||
|
|
||||||
|
EXTRACT_WORDS(hx,lx,x);
|
||||||
|
|
||||||
|
f = x-1.0;
|
||||||
|
if((0x000fffff&(2+hx))<3) { /* -2**-20 <= f < 2**-20 */
|
||||||
|
if(f==0.0) return 0.0;
|
||||||
|
return f*f*(0.33333333333333333*f-0.5);
|
||||||
|
}
|
||||||
|
s = f/(2.0+f);
|
||||||
|
z = s*s;
|
||||||
|
hx &= 0x000fffff;
|
||||||
|
i = hx-0x6147a;
|
||||||
|
w = z*z;
|
||||||
|
j = 0x6b851-hx;
|
||||||
|
t1= w*(Lg2+w*(Lg4+w*Lg6));
|
||||||
|
t2= z*(Lg1+w*(Lg3+w*(Lg5+w*Lg7)));
|
||||||
|
i |= j;
|
||||||
|
R = t2+t1;
|
||||||
|
if (i>0) {
|
||||||
|
hfsq=0.5*f*f;
|
||||||
|
return s*(hfsq+R) - hfsq;
|
||||||
|
} else {
|
||||||
|
return s*(R-f);
|
||||||
|
}
|
||||||
|
}
|
||||||
55
src/k_logf.h
Normal file
55
src/k_logf.h
Normal file
|
|
@ -0,0 +1,55 @@
|
||||||
|
/*
|
||||||
|
* ====================================================
|
||||||
|
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
||||||
|
*
|
||||||
|
* Developed at SunPro, a Sun Microsystems, Inc. business.
|
||||||
|
* Permission to use, copy, modify, and distribute this
|
||||||
|
* software is freely granted, provided that this notice
|
||||||
|
* is preserved.
|
||||||
|
* ====================================================
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <sys/cdefs.h>
|
||||||
|
__FBSDID("$FreeBSD: src/lib/msun/src/k_logf.h,v 1.2.2.2 2011/03/06 08:49:44 das Exp $");
|
||||||
|
|
||||||
|
/* __kernel_logf(x)
|
||||||
|
* Return log(x) - (x-1) for x in ~[sqrt(2)/2, sqrt(2)].
|
||||||
|
*/
|
||||||
|
|
||||||
|
static const float
|
||||||
|
/* |(log(1+s)-log(1-s))/s - Lg(s)| < 2**-34.24 (~[-4.95e-11, 4.97e-11]). */
|
||||||
|
Lg1 = 0xaaaaaa.0p-24, /* 0.66666662693 */
|
||||||
|
Lg2 = 0xccce13.0p-25, /* 0.40000972152 */
|
||||||
|
Lg3 = 0x91e9ee.0p-25, /* 0.28498786688 */
|
||||||
|
Lg4 = 0xf89e26.0p-26; /* 0.24279078841 */
|
||||||
|
|
||||||
|
static inline float
|
||||||
|
__kernel_logf(float x)
|
||||||
|
{
|
||||||
|
float hfsq,f,s,z,R,w,t1,t2;
|
||||||
|
int32_t ix,i,j;
|
||||||
|
|
||||||
|
GET_FLOAT_WORD(ix,x);
|
||||||
|
|
||||||
|
f = x-(float)1.0;
|
||||||
|
if((0x007fffff&(0x8000+ix))<0xc000) { /* -2**-9 <= f < 2**-9 */
|
||||||
|
if(f==0.0) return 0.0;
|
||||||
|
return f*f*((float)0.33333333333333333*f-(float)0.5);
|
||||||
|
}
|
||||||
|
s = f/((float)2.0+f);
|
||||||
|
z = s*s;
|
||||||
|
ix &= 0x007fffff;
|
||||||
|
i = ix-(0x6147a<<3);
|
||||||
|
w = z*z;
|
||||||
|
j = (0x6b851<<3)-ix;
|
||||||
|
t1= w*(Lg2+w*Lg4);
|
||||||
|
t2= z*(Lg1+w*Lg3);
|
||||||
|
i |= j;
|
||||||
|
R = t2+t1;
|
||||||
|
if(i>0) {
|
||||||
|
hfsq=(float)0.5*f*f;
|
||||||
|
return s*(hfsq+R) - hfsq;
|
||||||
|
} else {
|
||||||
|
return s*(R-f);
|
||||||
|
}
|
||||||
|
}
|
||||||
Loading…
Reference in a new issue