Index: fusl/src/math/hypotl.c |
diff --git a/fusl/src/math/hypotl.c b/fusl/src/math/hypotl.c |
index 479aa92c3dc29b235c8f6200863f73d22cd1fcef..543e1c2d5ec929975b9d3cd4b01930d8e9860fdf 100644 |
--- a/fusl/src/math/hypotl.c |
+++ b/fusl/src/math/hypotl.c |
@@ -1,66 +1,63 @@ |
#include "libm.h" |
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024 |
-long double hypotl(long double x, long double y) |
-{ |
- return hypot(x, y); |
+long double hypotl(long double x, long double y) { |
+ return hypot(x, y); |
} |
#elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384 |
#if LDBL_MANT_DIG == 64 |
-#define SPLIT (0x1p32L+1) |
+#define SPLIT (0x1p32L + 1) |
#elif LDBL_MANT_DIG == 113 |
-#define SPLIT (0x1p57L+1) |
+#define SPLIT (0x1p57L + 1) |
#endif |
-static void sq(long double *hi, long double *lo, long double x) |
-{ |
- long double xh, xl, xc; |
- xc = x*SPLIT; |
- xh = x - xc + xc; |
- xl = x - xh; |
- *hi = x*x; |
- *lo = xh*xh - *hi + 2*xh*xl + xl*xl; |
+static void sq(long double* hi, long double* lo, long double x) { |
+ long double xh, xl, xc; |
+ xc = x * SPLIT; |
+ xh = x - xc + xc; |
+ xl = x - xh; |
+ *hi = x * x; |
+ *lo = xh * xh - *hi + 2 * xh * xl + xl * xl; |
} |
-long double hypotl(long double x, long double y) |
-{ |
- union ldshape ux = {x}, uy = {y}; |
- int ex, ey; |
- long double hx, lx, hy, ly, z; |
+long double hypotl(long double x, long double y) { |
+ union ldshape ux = {x}, uy = {y}; |
+ int ex, ey; |
+ long double hx, lx, hy, ly, z; |
- ux.i.se &= 0x7fff; |
- uy.i.se &= 0x7fff; |
- if (ux.i.se < uy.i.se) { |
- ex = uy.i.se; |
- ey = ux.i.se; |
- x = uy.f; |
- y = ux.f; |
- } else { |
- ex = ux.i.se; |
- ey = uy.i.se; |
- x = ux.f; |
- y = uy.f; |
- } |
+ ux.i.se &= 0x7fff; |
+ uy.i.se &= 0x7fff; |
+ if (ux.i.se < uy.i.se) { |
+ ex = uy.i.se; |
+ ey = ux.i.se; |
+ x = uy.f; |
+ y = ux.f; |
+ } else { |
+ ex = ux.i.se; |
+ ey = uy.i.se; |
+ x = ux.f; |
+ y = uy.f; |
+ } |
- if (ex == 0x7fff && isinf(y)) |
- return y; |
- if (ex == 0x7fff || y == 0) |
- return x; |
- if (ex - ey > LDBL_MANT_DIG) |
- return x + y; |
+ if (ex == 0x7fff && isinf(y)) |
+ return y; |
+ if (ex == 0x7fff || y == 0) |
+ return x; |
+ if (ex - ey > LDBL_MANT_DIG) |
+ return x + y; |
- z = 1; |
- if (ex > 0x3fff+8000) { |
- z = 0x1p10000L; |
- x *= 0x1p-10000L; |
- y *= 0x1p-10000L; |
- } else if (ey < 0x3fff-8000) { |
- z = 0x1p-10000L; |
- x *= 0x1p10000L; |
- y *= 0x1p10000L; |
- } |
- sq(&hx, &lx, x); |
- sq(&hy, &ly, y); |
- return z*sqrtl(ly+lx+hy+hx); |
+ z = 1; |
+ if (ex > 0x3fff + 8000) { |
+ z = 0x1p10000L; |
+ x *= 0x1p-10000L; |
+ y *= 0x1p-10000L; |
+ } else if (ey < 0x3fff - 8000) { |
+ z = 0x1p-10000L; |
+ x *= 0x1p10000L; |
+ y *= 0x1p10000L; |
+ } |
+ sq(&hx, &lx, x); |
+ sq(&hy, &ly, y); |
+ return z * sqrtl(ly + lx + hy + hx); |
} |
#endif |