Print this page
11210 libm should be cstyle(1ONBLD) clean
*** 20,55 ****
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#pragma weak __acoshl = acoshl
#include "libm.h"
! static const long double
! zero = 0.0L,
ln2 = 6.931471805599453094172321214581765680755e-0001L,
one = 1.0L,
big = 1.e+20L;
long double
! acoshl(long double x) {
long double t;
! if (isnanl(x))
return (x + x);
! else if (x > big)
return (logl(x) + ln2);
! else if (x > one) {
t = sqrtl(x - one);
return (log1pl(t * (t + sqrtl(x + one))));
! } else if (x == one)
return (zero);
! else
return ((x - x) / (x - x));
}
--- 20,57 ----
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
+
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#pragma weak __acoshl = acoshl
#include "libm.h"
! static const long double zero = 0.0L,
ln2 = 6.931471805599453094172321214581765680755e-0001L,
one = 1.0L,
big = 1.e+20L;
long double
! acoshl(long double x)
! {
long double t;
! if (isnanl(x)) {
return (x + x);
! } else if (x > big) {
return (logl(x) + ln2);
! } else if (x > one) {
t = sqrtl(x - one);
return (log1pl(t * (t + sqrtl(x + one))));
! } else if (x == one) {
return (zero);
! } else {
return ((x - x) / (x - x));
+ }
}