| 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 |