aboutsummaryrefslogtreecommitdiff
path: root/math/v_sin.c
diff options
context:
space:
mode:
Diffstat (limited to 'math/v_sin.c')
-rw-r--r--math/v_sin.c103
1 files changed, 0 insertions, 103 deletions
diff --git a/math/v_sin.c b/math/v_sin.c
deleted file mode 100644
index 9dbb9dec04de..000000000000
--- a/math/v_sin.c
+++ /dev/null
@@ -1,103 +0,0 @@
-/*
- * Double-precision vector sin function.
- *
- * Copyright (c) 2019-2022, Arm Limited.
- * SPDX-License-Identifier: MIT OR Apache-2.0 WITH LLVM-exception
- */
-
-#include "mathlib.h"
-#include "v_math.h"
-#if V_SUPPORTED
-
-static const double Poly[] = {
-/* worst-case error is 3.5 ulp.
- abs error: 0x1.be222a58p-53 in [-pi/2, pi/2]. */
--0x1.9f4a9c8b21dc9p-41,
- 0x1.60e88a10163f2p-33,
--0x1.ae6361b7254e7p-26,
- 0x1.71de382e8d62bp-19,
--0x1.a01a019aeb4ffp-13,
- 0x1.111111110b25ep-7,
--0x1.55555555554c3p-3,
-};
-
-#define C7 v_f64 (Poly[0])
-#define C6 v_f64 (Poly[1])
-#define C5 v_f64 (Poly[2])
-#define C4 v_f64 (Poly[3])
-#define C3 v_f64 (Poly[4])
-#define C2 v_f64 (Poly[5])
-#define C1 v_f64 (Poly[6])
-
-#define InvPi v_f64 (0x1.45f306dc9c883p-2)
-#define Pi1 v_f64 (0x1.921fb54442d18p+1)
-#define Pi2 v_f64 (0x1.1a62633145c06p-53)
-#define Pi3 v_f64 (0x1.c1cd129024e09p-106)
-#define Shift v_f64 (0x1.8p52)
-#define AbsMask v_u64 (0x7fffffffffffffff)
-
-#if WANT_SIMD_EXCEPT
-#define TinyBound 0x202 /* top12 (asuint64 (0x1p-509)). */
-#define Thresh 0x214 /* top12 (asuint64 (RangeVal)) - TinyBound. */
-#else
-#define RangeVal v_f64 (0x1p23)
-#endif
-
-VPCS_ATTR
-__attribute__ ((noinline)) static v_f64_t
-specialcase (v_f64_t x, v_f64_t y, v_u64_t cmp)
-{
- return v_call_f64 (sin, x, y, cmp);
-}
-
-VPCS_ATTR
-v_f64_t
-V_NAME(sin) (v_f64_t x)
-{
- v_f64_t n, r, r2, y;
- v_u64_t sign, odd, cmp, ir;
-
- ir = v_as_u64_f64 (x) & AbsMask;
- r = v_as_f64_u64 (ir);
- sign = v_as_u64_f64 (x) & ~AbsMask;
-
-#if WANT_SIMD_EXCEPT
- /* Detect |x| <= 0x1p-509 or |x| >= RangeVal. If fenv exceptions are to be
- triggered correctly, set any special lanes to 1 (which is neutral w.r.t.
- fenv). These lanes will be fixed by specialcase later. */
- cmp = v_cond_u64 ((ir >> 52) - TinyBound >= Thresh);
- if (unlikely (v_any_u64 (cmp)))
- r = v_sel_f64 (cmp, v_f64 (1), r);
-#else
- cmp = v_cond_u64 (ir >= v_as_u64_f64 (RangeVal));
-#endif
-
- /* n = rint(|x|/pi). */
- n = v_fma_f64 (InvPi, r, Shift);
- odd = v_as_u64_f64 (n) << 63;
- n -= Shift;
-
- /* r = |x| - n*pi (range reduction into -pi/2 .. pi/2). */
- r = v_fma_f64 (-Pi1, n, r);
- r = v_fma_f64 (-Pi2, n, r);
- r = v_fma_f64 (-Pi3, n, r);
-
- /* sin(r) poly approx. */
- r2 = r * r;
- y = v_fma_f64 (C7, r2, C6);
- y = v_fma_f64 (y, r2, C5);
- y = v_fma_f64 (y, r2, C4);
- y = v_fma_f64 (y, r2, C3);
- y = v_fma_f64 (y, r2, C2);
- y = v_fma_f64 (y, r2, C1);
- y = v_fma_f64 (y * r2, r, r);
-
- /* sign. */
- y = v_as_f64_u64 (v_as_u64_f64 (y) ^ sign ^ odd);
-
- if (unlikely (v_any_u64 (cmp)))
- return specialcase (x, y, cmp);
- return y;
-}
-VPCS_ALIAS
-#endif