OLD | NEW |
1 /* origin: FreeBSD /usr/src/lib/msun/src/e_scalbf.c */ | 1 /* origin: FreeBSD /usr/src/lib/msun/src/e_scalbf.c */ |
2 /* | 2 /* |
3 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. | 3 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. |
4 */ | 4 */ |
5 /* | 5 /* |
6 * ==================================================== | 6 * ==================================================== |
7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. | 7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. |
8 * | 8 * |
9 * Developed at SunPro, a Sun Microsystems, Inc. business. | 9 * Developed at SunPro, a Sun Microsystems, Inc. business. |
10 * Permission to use, copy, modify, and distribute this | 10 * Permission to use, copy, modify, and distribute this |
11 * software is freely granted, provided that this notice | 11 * software is freely granted, provided that this notice |
12 * is preserved. | 12 * is preserved. |
13 * ==================================================== | 13 * ==================================================== |
14 */ | 14 */ |
15 | 15 |
16 #define _GNU_SOURCE | 16 #define _GNU_SOURCE |
17 #include <math.h> | 17 #include <math.h> |
18 | 18 |
19 float scalbf(float x, float fn) | 19 float scalbf(float x, float fn) { |
20 { | 20 if (isnan(x) || isnan(fn)) |
21 » if (isnan(x) || isnan(fn)) return x*fn; | 21 return x * fn; |
22 » if (!isfinite(fn)) { | 22 if (!isfinite(fn)) { |
23 » » if (fn > 0.0f) | 23 if (fn > 0.0f) |
24 » » » return x*fn; | 24 return x * fn; |
25 » » else | 25 else |
26 » » » return x/(-fn); | 26 return x / (-fn); |
27 » } | 27 } |
28 » if (rintf(fn) != fn) return (fn-fn)/(fn-fn); | 28 if (rintf(fn) != fn) |
29 » if ( fn > 65000.0f) return scalbnf(x, 65000); | 29 return (fn - fn) / (fn - fn); |
30 » if (-fn > 65000.0f) return scalbnf(x,-65000); | 30 if (fn > 65000.0f) |
31 » return scalbnf(x,(int)fn); | 31 return scalbnf(x, 65000); |
| 32 if (-fn > 65000.0f) |
| 33 return scalbnf(x, -65000); |
| 34 return scalbnf(x, (int)fn); |
32 } | 35 } |
OLD | NEW |