|
|
|
@ -50,11 +50,6 @@ |
|
|
|
* In the tests over the interval exp(+-10000), the logarithms |
|
|
|
* of the random arguments were uniformly distributed over |
|
|
|
* [-10000, +10000]. |
|
|
|
* |
|
|
|
* ERROR MESSAGES: |
|
|
|
* |
|
|
|
* log singularity: x = 0; returns -INFINITY |
|
|
|
* log domain: x < 0; returns NAN |
|
|
|
*/ |
|
|
|
|
|
|
|
#include "libm.h" |
|
|
|
@ -121,8 +116,8 @@ long double logl(long double x) |
|
|
|
return x; |
|
|
|
if (x <= 0.0) { |
|
|
|
if (x == 0.0) |
|
|
|
return -INFINITY; |
|
|
|
return NAN; |
|
|
|
return -1/(x+0); /* -inf with divbyzero */ |
|
|
|
return 0/0.0f; /* nan with invalid */ |
|
|
|
} |
|
|
|
|
|
|
|
/* separate mantissa from exponent */ |
|
|
|
|