Print this page
11210 libm should be cstyle(1ONBLD) clean
*** 20,29 ****
--- 20,30 ----
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
+
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
*** 36,47 ****
#include "libm.h"
#define n0 0
long double
! scalbl(long double x, long double fn) {
! int *py = (int *) &fn, n;
long double z;
if (isnanl(x) || isnanl(fn))
return (x * fn);
--- 37,49 ----
#include "libm.h"
#define n0 0
long double
! scalbl(long double x, long double fn)
! {
! int *py = (int *)&fn, n;
long double z;
if (isnanl(x) || isnanl(fn))
return (x * fn);
*** 52,68 ****
if ((py[n0] & 0x80000000) != 0)
return (x / (-fn));
else
return (x * fn);
}
if (rintl(fn) != fn)
return ((fn - fn) / (fn - fn));
! if (fn > 65000.0L)
z = scalbnl(x, 65000);
! else if (-fn > 65000.0L)
z = scalbnl(x, -65000);
! else {
! n = (int) fn;
z = scalbnl(x, n);
}
return (z);
}
--- 54,73 ----
if ((py[n0] & 0x80000000) != 0)
return (x / (-fn));
else
return (x * fn);
}
+
if (rintl(fn) != fn)
return ((fn - fn) / (fn - fn));
!
! if (fn > 65000.0L) {
z = scalbnl(x, 65000);
! } else if (-fn > 65000.0L) {
z = scalbnl(x, -65000);
! } else {
! n = (int)fn;
z = scalbnl(x, n);
}
+
return (z);
}