Print this page
11210 libm should be cstyle(1ONBLD) clean
@@ -20,10 +20,11 @@
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
+
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
@@ -36,12 +37,13 @@
#include "libm.h"
#define n0 0
long double
-scalbl(long double x, long double fn) {
- int *py = (int *) &fn, n;
+scalbl(long double x, long double fn)
+{
+ int *py = (int *)&fn, n;
long double z;
if (isnanl(x) || isnanl(fn))
return (x * fn);
@@ -52,17 +54,20 @@
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)
+
+ if (fn > 65000.0L) {
z = scalbnl(x, 65000);
- else if (-fn > 65000.0L)
+ } else if (-fn > 65000.0L) {
z = scalbnl(x, -65000);
- else {
- n = (int) fn;
+ } else {
+ n = (int)fn;
z = scalbnl(x, n);
}
+
return (z);
}