OLD | NEW |
1 /* origin: FreeBSD /usr/src/lib/msun/src/e_scalb.c */ | 1 /* origin: FreeBSD /usr/src/lib/msun/src/e_scalb.c */ |
2 /* | 2 /* |
3 * ==================================================== | 3 * ==================================================== |
4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. | 4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. |
5 * | 5 * |
6 * Developed at SunSoft, a Sun Microsystems, Inc. business. | 6 * Developed at SunSoft, a Sun Microsystems, Inc. business. |
7 * Permission to use, copy, modify, and distribute this | 7 * Permission to use, copy, modify, and distribute this |
8 * software is freely granted, provided that this notice | 8 * software is freely granted, provided that this notice |
9 * is preserved. | 9 * is preserved. |
10 * ==================================================== | 10 * ==================================================== |
11 */ | 11 */ |
12 /* | 12 /* |
13 * scalb(x, fn) is provide for | 13 * scalb(x, fn) is provide for |
14 * passing various standard test suite. One | 14 * passing various standard test suite. One |
15 * should use scalbn() instead. | 15 * should use scalbn() instead. |
16 */ | 16 */ |
17 | 17 |
18 #define _GNU_SOURCE | 18 #define _GNU_SOURCE |
19 #include <math.h> | 19 #include <math.h> |
20 | 20 |
21 double scalb(double x, double fn) | 21 double scalb(double x, double fn) { |
22 { | 22 if (isnan(x) || isnan(fn)) |
23 » if (isnan(x) || isnan(fn)) | 23 return x * fn; |
24 » » return x*fn; | 24 if (!isfinite(fn)) { |
25 » if (!isfinite(fn)) { | 25 if (fn > 0.0) |
26 » » if (fn > 0.0) | 26 return x * fn; |
27 » » » return x*fn; | 27 else |
28 » » else | 28 return x / (-fn); |
29 » » » return x/(-fn); | 29 } |
30 » } | 30 if (rint(fn) != fn) |
31 » if (rint(fn) != fn) return (fn-fn)/(fn-fn); | 31 return (fn - fn) / (fn - fn); |
32 » if ( fn > 65000.0) return scalbn(x, 65000); | 32 if (fn > 65000.0) |
33 » if (-fn > 65000.0) return scalbn(x,-65000); | 33 return scalbn(x, 65000); |
34 » return scalbn(x,(int)fn); | 34 if (-fn > 65000.0) |
| 35 return scalbn(x, -65000); |
| 36 return scalbn(x, (int)fn); |
35 } | 37 } |
OLD | NEW |