[libc-commits] [libc] [libc][math][c23] add sinpi function (PR #129379)
via libc-commits
libc-commits at lists.llvm.org
Thu Mar 13 11:10:06 PDT 2025
https://github.com/lara254 updated https://github.com/llvm/llvm-project/pull/129379
>From b4d31d0b5c0303e25054dcb43fcd1db41684f1c7 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Sat, 1 Mar 2025 03:29:20 -0800
Subject: [PATCH 01/12] add draft for sinpi
---
libc/src/math/generic/sinpi.cpp | 63 +++++++++++++++++++++++++++++++++
1 file changed, 63 insertions(+)
create mode 100644 libc/src/math/generic/sinpi.cpp
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
new file mode 100644
index 0000000000000..69116ced9fbc7
--- /dev/null
+++ b/libc/src/math/generic/sinpi.cpp
@@ -0,0 +1,63 @@
+//===-- double-precision sinpi function ----------------------------------===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===----------------------------------------------------------------------===//
+
+#include "src/math/sinpi.h"
+#include "sincos_eval.h"
+#include "src/__support/FPUtil/FEnvImpl.h"
+#include "src/__support/FPUtil/FPBits.h"
+#include "src/__support/FPUtil/PolyEval.h"
+#include "src/__support/FPUtil/multiply_add.h"
+#include "src/__support/common.h"
+#include "src/__support/macros/config.h"
+#include "src/__support/macros/optimization.h" // LIBC_UNLIKELY
+
+namespace LIBC_NAMESPACE_DECL {
+
+LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
+ using FPBits = typename fputil::FPBits<double>;
+ FPBits xbits(x);
+
+ uint64_t x_u = xbits.uintval();
+ uint64_t x_abs = x_u & 0x7fff'ffffU;
+ long double xd = static_cast<long double>(x);
+
+ if (LIBC_UNLIKELY(x_abs >= 0x7c00)) {
+ if (x_abs == 0x7c00) {
+ fputil::set_errno_if_required(EDOM);
+ fputil::raise_except_if_required(FE_INVALID);
+ }
+ return x + FPBits::quiet_nan().get_val();
+ } else {
+ return FPBits::zero(xbits.sign()).get_val();
+ }
+
+ if (LIBC_UNLIKELY(x_abs <= 0x3d80'0000U)) {
+ if (LIBC_UNLIKELY(x_abs < 0x33CD'01D7U)) {
+ if (LIBC_UNLIKELY(x_abs == 0U)) {
+ return x;
+ }
+ long double xdpi = xd * 0x1.921fb5444d18p1;
+ return static_cast<double>(xdpi);
+ }
+ long double xsq = xd * xd;
+
+ long double result = fputil::polyeval(xsq,0x1.921fb54442d183f07b2385653d8p1, -0x1.4abbce625bd95cdc955aeed9abcp2, 0x1.466bc6769ddfdb085486c0ff3ep1, -0x1.32d2c4a48bfd71fa9cdf60a0e4p-1, 0x1.502cbd2c72e3168ff209bc7656cp-4);
+
+ return static_cast<double>(xd * result);
+ }
+
+ long double sin_k, cos_k, sin_y, cosm1_y;
+ sincospi_eval(xd, sin_k, cos_k, sin_y, cosm1_y);
+
+ if (LIBC_UNLIKELY(sin_y == 0 && sin_k == 0))
+ return FPBits::zero(xbits.sign()).get_val();
+
+ return static_cast<double>(fputil::multiply_add(
+ sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
+}
+}
>From b85e0dcef49a06f3054cea2882f186c3b78a20a7 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Tue, 11 Mar 2025 11:27:01 -0700
Subject: [PATCH 02/12] add outline
---
libc/src/math/generic/sinpi.cpp | 46 ++++++++++++++++++++++++++-------
1 file changed, 36 insertions(+), 10 deletions(-)
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index 69116ced9fbc7..f343e0b74aa4d 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -8,6 +8,7 @@
#include "src/math/sinpi.h"
#include "sincos_eval.h"
+#include "src/__support/FPUtil/double_double.h"
#include "src/__support/FPUtil/FEnvImpl.h"
#include "src/__support/FPUtil/FPBits.h"
#include "src/__support/FPUtil/PolyEval.h"
@@ -15,18 +16,43 @@
#include "src/__support/common.h"
#include "src/__support/macros/config.h"
#include "src/__support/macros/optimization.h" // LIBC_UNLIKELY
+#include "src/math/fmul.h"
namespace LIBC_NAMESPACE_DECL {
+
+static LIB_INLINE int64_t range_reduction_sincospi(double x, double &y) {
+ double b = 32.0;
+
+ //fputil::DoubleDouble prod = fputil::exact_mult(x, b);
+ //using DoubleBits = fputil::FPBits<double>;
+ //using DoubleStorageType = typename DoubleBits::StorageType;
+
+
+ float result = fmul(x, b);
+ double res = static_cast<double>(result);
+ fputil::DoubleDouble sum = fputil::exact_add(res, -res);
+ double sum_result = sum.hi;
+ // do the exceptions here...
+
+ return static_cast<int64_t>(sum_result);
+}
+
+LIBC_INLINE void sincospi_eval(double xd, double &sin_k, double &cos_k, double &sin_k, double &cosm1_y) {
+ double y;
+ int64_t k = range_reduction_sincospi(xd, y);
+ sincospi_eval(xd, sin_k, cos_k, sin_y, cosm1_y);
+ }
+
LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
using FPBits = typename fputil::FPBits<double>;
FPBits xbits(x);
uint64_t x_u = xbits.uintval();
uint64_t x_abs = x_u & 0x7fff'ffffU;
- long double xd = static_cast<long double>(x);
if (LIBC_UNLIKELY(x_abs >= 0x7c00)) {
+ // If value is equal to infinity
if (x_abs == 0x7c00) {
fputil::set_errno_if_required(EDOM);
fputil::raise_except_if_required(FE_INVALID);
@@ -41,23 +67,23 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
if (LIBC_UNLIKELY(x_abs == 0U)) {
return x;
}
- long double xdpi = xd * 0x1.921fb5444d18p1;
- return static_cast<double>(xdpi);
+ double xdpi = xd * 0x1.921fb5444d18p1;
+ return xdpi;
+
}
- long double xsq = xd * xd;
-
- long double result = fputil::polyeval(xsq,0x1.921fb54442d183f07b2385653d8p1, -0x1.4abbce625bd95cdc955aeed9abcp2, 0x1.466bc6769ddfdb085486c0ff3ep1, -0x1.32d2c4a48bfd71fa9cdf60a0e4p-1, 0x1.502cbd2c72e3168ff209bc7656cp-4);
+ double xsq = xd * xd;
+ // todo: generate a new polynomial using double precision
+ double result = fputil::polyeval(xsq,0x1.921fb54442d183f07b2385653d8p1, -0x1.4abbce625bd95cdc955aeed9abcp2, 0x1.466bc6769ddfdb085486c0ff3ep1, -0x1.32d2c4a48bfd71fa9cdf60a0e4p-1, 0x1.502cbd2c72e3168ff209bc7656cp-4);
- return static_cast<double>(xd * result);
+ return (xd * result);
}
- long double sin_k, cos_k, sin_y, cosm1_y;
+ double sin_k, cos_k, sin_y, cosm1_y;
sincospi_eval(xd, sin_k, cos_k, sin_y, cosm1_y);
if (LIBC_UNLIKELY(sin_y == 0 && sin_k == 0))
return FPBits::zero(xbits.sign()).get_val();
- return static_cast<double>(fputil::multiply_add(
- sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
+ return fputil::multiply_add(sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
}
}
>From a8dae3106a4186095ec24908ac3b0905d3e9f8a3 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Tue, 11 Mar 2025 12:18:14 -0700
Subject: [PATCH 03/12] fix bug in range reduction
---
libc/src/math/generic/sinpi.cpp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index f343e0b74aa4d..55d2a9d350e5d 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -29,13 +29,13 @@ static LIB_INLINE int64_t range_reduction_sincospi(double x, double &y) {
float result = fmul(x, b);
- double res = static_cast<double>(result);
- fputil::DoubleDouble sum = fputil::exact_add(res, -res);
- double sum_result = sum.hi;
+ double k = static_cast<double>(result);
+ fputil::DoubleDouble y = fputil::exact_add(res, -res);
+ double y = sum.hi;
// do the exceptions here...
- return static_cast<int64_t>(sum_result);
+ return static_cast<int64_t>(k);
}
LIBC_INLINE void sincospi_eval(double xd, double &sin_k, double &cos_k, double &sin_k, double &cosm1_y) {
>From 9cd84a103de81438b06803feeba4a1ad2f431096 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Tue, 11 Mar 2025 14:01:29 -0700
Subject: [PATCH 04/12] improve styling
---
libc/src/math/generic/sinpi.cpp | 40 +++++++++++----------------------
1 file changed, 13 insertions(+), 27 deletions(-)
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index 55d2a9d350e5d..c946f7749b678 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -13,6 +13,7 @@
#include "src/__support/FPUtil/FPBits.h"
#include "src/__support/FPUtil/PolyEval.h"
#include "src/__support/FPUtil/multiply_add.h"
+#include "src/__support/FPUtil/BasicOperations.h"
#include "src/__support/common.h"
#include "src/__support/macros/config.h"
#include "src/__support/macros/optimization.h" // LIBC_UNLIKELY
@@ -49,33 +50,18 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
FPBits xbits(x);
uint64_t x_u = xbits.uintval();
- uint64_t x_abs = x_u & 0x7fff'ffffU;
-
- if (LIBC_UNLIKELY(x_abs >= 0x7c00)) {
- // If value is equal to infinity
- if (x_abs == 0x7c00) {
- fputil::set_errno_if_required(EDOM);
- fputil::raise_except_if_required(FE_INVALID);
- }
- return x + FPBits::quiet_nan().get_val();
- } else {
- return FPBits::zero(xbits.sign()).get_val();
+ double x_abs = fputil::abs(x);
+ double p = 0x1p52; // precision = 52; 2^p
+
+ if (x_abs >= p) {
+ if (xbits.is_nan())
+ return x;
+ if (x.bits.is_inf()) {
+ fputil::set_errno_if_required(EDOM);
+ fputil::raise_except_if_required(FE_INVALID);
+ return FPBits::quiet_nan().get_val();
}
-
- if (LIBC_UNLIKELY(x_abs <= 0x3d80'0000U)) {
- if (LIBC_UNLIKELY(x_abs < 0x33CD'01D7U)) {
- if (LIBC_UNLIKELY(x_abs == 0U)) {
- return x;
- }
- double xdpi = xd * 0x1.921fb5444d18p1;
- return xdpi;
-
- }
- double xsq = xd * xd;
- // todo: generate a new polynomial using double precision
- double result = fputil::polyeval(xsq,0x1.921fb54442d183f07b2385653d8p1, -0x1.4abbce625bd95cdc955aeed9abcp2, 0x1.466bc6769ddfdb085486c0ff3ep1, -0x1.32d2c4a48bfd71fa9cdf60a0e4p-1, 0x1.502cbd2c72e3168ff209bc7656cp-4);
-
- return (xd * result);
+ return FPBits::zero(xbits.sign()).get_val();
}
double sin_k, cos_k, sin_y, cosm1_y;
@@ -86,4 +72,4 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
return fputil::multiply_add(sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
}
-}
+
>From ad06de0756f5ea156ede5aef4475f01fc701c4ee Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Tue, 11 Mar 2025 17:38:57 -0700
Subject: [PATCH 05/12] add tests
---
libc/config/darwin/arm/entrypoints.txt | 1 +
libc/include/math.yaml | 6 +++
libc/src/math/CMakeLists.txt | 2 +
libc/src/math/generic/CMakeLists.txt | 21 +++++++++-
libc/src/math/generic/sinpi.cpp | 44 +++++++--------------
libc/src/math/sinpi.h | 20 ++++++++++
libc/test/src/math/CMakeLists.txt | 15 ++++++++
libc/test/src/math/sinpi_test.cpp | 40 +++++++++++++++++++
libc/test/src/math/smoke/CMakeLists.txt | 12 ++++++
libc/test/src/math/smoke/sinpi_test.cpp | 51 +++++++++++++++++++++++++
10 files changed, 180 insertions(+), 32 deletions(-)
create mode 100644 libc/src/math/sinpi.h
create mode 100644 libc/test/src/math/sinpi_test.cpp
create mode 100644 libc/test/src/math/smoke/sinpi_test.cpp
diff --git a/libc/config/darwin/arm/entrypoints.txt b/libc/config/darwin/arm/entrypoints.txt
index 7972d285f963a..9ba935670d915 100644
--- a/libc/config/darwin/arm/entrypoints.txt
+++ b/libc/config/darwin/arm/entrypoints.txt
@@ -253,6 +253,7 @@ set(TARGET_LIBM_ENTRYPOINTS
libc.src.math.sin
libc.src.math.sinf
libc.src.math.sinpif
+ libc.src.math.sinpi
libc.src.math.sqrt
libc.src.math.sqrtf
libc.src.math.sqrtl
diff --git a/libc/include/math.yaml b/libc/include/math.yaml
index a66f981030864..5623ff0a73c2a 100644
--- a/libc/include/math.yaml
+++ b/libc/include/math.yaml
@@ -2496,6 +2496,12 @@ functions:
arguments:
- type: const long double *
- type: const long double *
+ - name: sinpi
+ standards:
+ - stdc
+ return_type: double
+ arguments:
+ - type: double
- name: totalordermag
standards:
- stdc
diff --git a/libc/src/math/CMakeLists.txt b/libc/src/math/CMakeLists.txt
index f18a73d46f9aa..94f9c24cd9fb0 100644
--- a/libc/src/math/CMakeLists.txt
+++ b/libc/src/math/CMakeLists.txt
@@ -490,6 +490,8 @@ add_math_entrypoint_object(sincosf)
add_math_entrypoint_object(sin)
add_math_entrypoint_object(sinf)
add_math_entrypoint_object(sinf16)
+
+add_math_entrypoint_object(sinpi)
add_math_entrypoint_object(sinpif)
add_math_entrypoint_object(sinpif16)
diff --git a/libc/src/math/generic/CMakeLists.txt b/libc/src/math/generic/CMakeLists.txt
index 3114289bad486..c0b024e123dd3 100644
--- a/libc/src/math/generic/CMakeLists.txt
+++ b/libc/src/math/generic/CMakeLists.txt
@@ -1,5 +1,3 @@
-
-
add_entrypoint_object(
canonicalize
SRCS
@@ -495,6 +493,25 @@ add_entrypoint_object(
libc.src.__support.macros.optimization
)
+add_entrypoint_object(
+ sinpi
+ SRCS
+ sinpi.cpp
+ HDRS
+ ../sinpi.h
+ DEPENDS
+ .sincosf_utils
+ libc.src.__support.FPUtil.fenv_impl
+ libc.src.__support.FPUtil.fp_bits
+ libc.src.__support.FPUtil.fma
+ libc.src.__support.FPUtil.multiply_add
+ libc.src.__support.FPUtil.polyeval
+ libc.src.__support.common
+ libc.src.__support.macros.optimization
+ libc.src.__support.FPUtil.basic_operations
+ libc.src.__support.FPUtil.double_double
+)
+
add_entrypoint_object(
sinpif
SRCS
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index c946f7749b678..5fab152646100 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -14,62 +14,46 @@
#include "src/__support/FPUtil/PolyEval.h"
#include "src/__support/FPUtil/multiply_add.h"
#include "src/__support/FPUtil/BasicOperations.h"
+#include "src/math/pow.h"
+#include "src/math/generic/sincosf_utils.h"
#include "src/__support/common.h"
#include "src/__support/macros/config.h"
#include "src/__support/macros/optimization.h" // LIBC_UNLIKELY
#include "src/math/fmul.h"
namespace LIBC_NAMESPACE_DECL {
-
-static LIB_INLINE int64_t range_reduction_sincospi(double x, double &y) {
- double b = 32.0;
-
- //fputil::DoubleDouble prod = fputil::exact_mult(x, b);
- //using DoubleBits = fputil::FPBits<double>;
- //using DoubleStorageType = typename DoubleBits::StorageType;
-
-
- float result = fmul(x, b);
- double k = static_cast<double>(result);
- fputil::DoubleDouble y = fputil::exact_add(res, -res);
- double y = sum.hi;
-
- // do the exceptions here...
-
- return static_cast<int64_t>(k);
-}
-
-LIBC_INLINE void sincospi_eval(double xd, double &sin_k, double &cos_k, double &sin_k, double &cosm1_y) {
- double y;
- int64_t k = range_reduction_sincospi(xd, y);
- sincospi_eval(xd, sin_k, cos_k, sin_y, cosm1_y);
- }
-
+
LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
using FPBits = typename fputil::FPBits<double>;
FPBits xbits(x);
- uint64_t x_u = xbits.uintval();
+ //uint64_t x_u = xbits.uintval();
double x_abs = fputil::abs(x);
double p = 0x1p52; // precision = 52; 2^p
+
+ if (LIBC_UNLIKELY(x_abs == 0U))
+ return x;
if (x_abs >= p) {
if (xbits.is_nan())
return x;
- if (x.bits.is_inf()) {
+ if (xbits.is_inf()) {
fputil::set_errno_if_required(EDOM);
fputil::raise_except_if_required(FE_INVALID);
return FPBits::quiet_nan().get_val();
}
return FPBits::zero(xbits.sign()).get_val();
}
-
+ double n = pow(2, -52);
+ double k = fputil::nearest_integer(x * n);
+ double y = x - k;
double sin_k, cos_k, sin_y, cosm1_y;
- sincospi_eval(xd, sin_k, cos_k, sin_y, cosm1_y);
+ sincosf_poly_eval(k, y, sin_k, cos_k, sin_y, cosm1_y);
if (LIBC_UNLIKELY(sin_y == 0 && sin_k == 0))
return FPBits::zero(xbits.sign()).get_val();
- return fputil::multiply_add(sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
+ return fputil::multiply_add(sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k));
+}
}
diff --git a/libc/src/math/sinpi.h b/libc/src/math/sinpi.h
new file mode 100644
index 0000000000000..f4c9d2f9a8a7b
--- /dev/null
+++ b/libc/src/math/sinpi.h
@@ -0,0 +1,20 @@
+//===-- Implementation header for sinpi -------------------------*- C++ -*-===//
+//
+// Part of the LLVM Project, under the Apache Licese v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===---------------------------------------------------------------------===//
+
+#ifndef LLVM_LIBC_SRC_MATH_SINPI_H
+#define LLVM_LIBC_SRC_MATH_SINPI_H
+
+#include "src/__support/macros/config.h"
+
+namespace LIBC_NAMESPACE_DECL {
+
+double sinpi(double x);
+
+} // namespace LIBC_NAMESPACE_DECL
+
+#endif // LLVM_LIBC_SRC_MATH_SINPI_H
diff --git a/libc/test/src/math/CMakeLists.txt b/libc/test/src/math/CMakeLists.txt
index 53ddd301900c0..7c3a4419b4e7f 100644
--- a/libc/test/src/math/CMakeLists.txt
+++ b/libc/test/src/math/CMakeLists.txt
@@ -106,6 +106,21 @@ add_fp_unittest(
DEPENDS
libc.src.math.sinf16
)
+add_fp_unittest(
+ sinpi_test
+ NEED_MPFR
+ SUITE
+ libc-math-unittests
+ SRCS
+ sinpi_test.cpp
+ HDRS
+ sdcomp26094.h
+ DEPENDS
+ libc.src.errno.errno
+ libc.src.math.sinpi
+ libc.src.__support.CPP.array
+ libc.src.__support.FPUtil.fp_bits
+)
add_fp_unittest(
sinpif_test
diff --git a/libc/test/src/math/sinpi_test.cpp b/libc/test/src/math/sinpi_test.cpp
new file mode 100644
index 0000000000000..a5ea0c1b9528a
--- /dev/null
+++ b/libc/test/src/math/sinpi_test.cpp
@@ -0,0 +1,40 @@
+//===-- Exhaustive test for sinpif16 --------------------------------------===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===---------------------------------------------------------------------===//
+
+#include "src/math/sinpi.h"
+#include "test/UnitTest/FPMatcher.h"
+#include "test/UnitTest/Test.h"
+#include "utils/MPFRWrapper/MPFRUtils.h"
+
+using LlvmLibcSinpiTest = LIBC_NAMESPACE::testing::FPTest<double>;
+
+namespace mpfr = LIBC_NAMESPACE::testing::mpfr;
+
+// Range: [0, Inf]
+static constexpr uint64_t POS_START = 0x0000U;
+static constexpr uint64_t POS_STOP = 0x7c00U;
+
+// Range: [-Inf, 0]
+static constexpr uint16_t NEG_START = 0x8000U;
+static constexpr uint16_t NEG_STOP = 0xfc00U;
+
+TEST_F(LlvmLibcSinpif16Test, PositiveRange) {
+ for (uint64_t v = POS_START; v <= POS_STOP; ++v) {
+ double x = FPBits(v).get_val();
+ EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, x,
+ LIBC_NAMESPACE::sinpi(x), 0.5);
+ }
+}
+
+TEST_F(LlvmLibcSinpif16Test, NegativeRange) {
+ for (uint64_t v = NEG_START; v <= NEG_STOP; ++v) {
+ double x = FPBits(v).get_val();
+ EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, x,
+ LIBC_NAMESPACE::sinpi(x), 0.5);
+ }
+}
diff --git a/libc/test/src/math/smoke/CMakeLists.txt b/libc/test/src/math/smoke/CMakeLists.txt
index 6f94440d826d9..9892f0b4dfa47 100644
--- a/libc/test/src/math/smoke/CMakeLists.txt
+++ b/libc/test/src/math/smoke/CMakeLists.txt
@@ -73,6 +73,18 @@ add_fp_unittest(
libc.src.__support.FPUtil.cast
)
+add_fp_unittest(
+ sinpi_test
+ SUITE
+ libc-math-smoke-tests
+ SRCS
+ sinpi_test.cpp
+ DEPENDS
+ libc.src.errno.errno
+ libc.src.math.sinpif
+ libc.src.__support.CPP.array
+ libc.src.__support.FPUtil.fp_bits
+)
add_fp_unittest(
sinpif_test
SUITE
diff --git a/libc/test/src/math/smoke/sinpi_test.cpp b/libc/test/src/math/smoke/sinpi_test.cpp
new file mode 100644
index 0000000000000..a4ecffb19a236
--- /dev/null
+++ b/libc/test/src/math/smoke/sinpi_test.cpp
@@ -0,0 +1,51 @@
+//===-- Unittests for sinpi -----------------------------------------------===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===----------------------------------------------------------------------===//
+
+#include "src/__support/FPUtil/cast.h"
+#include "src/errno/libc_errno.h"
+#include "src/math/sinpi.h"
+#include "test/UnitTest/FPMatcher.h"
+#include "test/UnitTest/Test.h"
+
+using LlvmLibcSinpiTest = LIBC_NAMESPACE::testing::FPTest<double>;
+
+TEST_F(LlvmLibcSinpiTest, SpecialNumbers) {
+ LIBC_NAMESPACE::libc_errno = 0;
+
+ EXPECT_FP_EQ(aNaN, LIBC_NAMESPACE::sinpi(aNaN));
+ EXPECT_MATH_ERRNO(0);
+
+ EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(zero));
+ EXPECT_MATH_ERRNO(0);
+
+ EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(neg_zero));
+ EXPECT_MATH_ERRNO(0);
+
+ EXPECT_FP_EQ(aNaN, LIBC_NAMESPACE::sinpi(inf));
+ EXPECT_MATH_ERRNO(EDOM);
+
+ EXPECT_FP_EQ(aNaN, LIBC_NAMESPACE::sinpi(neg_inf));
+ EXPECT_MATH_ERRNO(EDOM);
+}
+
+TEST_F(LlvmLibcSinpiTest, Integers) {
+ EXPECT_FP_EQ(neg_zero,
+ LIBC_NAMESPACE::sinpi(
+ LIBC_NAMESPACE::fputil::cast<double>(-0x420.0p0)));
+ EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(
+ LIBC_NAMESPACE::fputil::cast<double>(-0x1p+10)));
+ EXPECT_FP_EQ(neg_zero,
+ LIBC_NAMESPACE::sinpi(
+ LIBC_NAMESPACE::fputil::cast<double>(-0x1.4p+14)));
+ EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(
+ LIBC_NAMESPACE::fputil::cast<double>(0x420.0p0)));
+ EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(
+ LIBC_NAMESPACE::fputil::cast<double>(0x1.cp+15)));
+ EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(
+ LIBC_NAMESPACE::fputil::cast<double>(0x1.cp+7)));
+}
>From e26a0ab1d243e4c3adcef1c40cfaad1f4457884f Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Tue, 11 Mar 2025 18:18:44 -0700
Subject: [PATCH 06/12] make tests pass
---
libc/config/linux/aarch64/entrypoints.txt | 1 +
libc/src/math/generic/CMakeLists.txt | 1 +
libc/src/math/generic/sinpi.cpp | 4 +++-
libc/test/src/math/smoke/CMakeLists.txt | 2 +-
libc/test/src/math/smoke/sinpi_test.cpp | 26 +++++++++++------------
5 files changed, 18 insertions(+), 16 deletions(-)
diff --git a/libc/config/linux/aarch64/entrypoints.txt b/libc/config/linux/aarch64/entrypoints.txt
index 6c2be4d3b0b99..99969de5f0352 100644
--- a/libc/config/linux/aarch64/entrypoints.txt
+++ b/libc/config/linux/aarch64/entrypoints.txt
@@ -605,6 +605,7 @@ set(TARGET_LIBM_ENTRYPOINTS
libc.src.math.sinf
libc.src.math.sinhf
libc.src.math.sinpif
+ libc.src.math.sinpi
libc.src.math.sqrt
libc.src.math.sqrtf
libc.src.math.sqrtl
diff --git a/libc/src/math/generic/CMakeLists.txt b/libc/src/math/generic/CMakeLists.txt
index c0b024e123dd3..5df1b7ebe56a4 100644
--- a/libc/src/math/generic/CMakeLists.txt
+++ b/libc/src/math/generic/CMakeLists.txt
@@ -506,6 +506,7 @@ add_entrypoint_object(
libc.src.__support.FPUtil.fma
libc.src.__support.FPUtil.multiply_add
libc.src.__support.FPUtil.polyeval
+ libc.src.math.pow
libc.src.__support.common
libc.src.__support.macros.optimization
libc.src.__support.FPUtil.basic_operations
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index 5fab152646100..f05839faae1c3 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -46,9 +46,11 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
}
double n = pow(2, -52);
double k = fputil::nearest_integer(x * n);
+ FPBits kbits(x);
+ uint64_t ku = kbits.uintval();
double y = x - k;
double sin_k, cos_k, sin_y, cosm1_y;
- sincosf_poly_eval(k, y, sin_k, cos_k, sin_y, cosm1_y);
+ sincosf_poly_eval(ku, y, sin_k, cos_k, sin_y, cosm1_y);
if (LIBC_UNLIKELY(sin_y == 0 && sin_k == 0))
return FPBits::zero(xbits.sign()).get_val();
diff --git a/libc/test/src/math/smoke/CMakeLists.txt b/libc/test/src/math/smoke/CMakeLists.txt
index 9892f0b4dfa47..fee94905b4905 100644
--- a/libc/test/src/math/smoke/CMakeLists.txt
+++ b/libc/test/src/math/smoke/CMakeLists.txt
@@ -81,7 +81,7 @@ add_fp_unittest(
sinpi_test.cpp
DEPENDS
libc.src.errno.errno
- libc.src.math.sinpif
+ libc.src.math.sinpi
libc.src.__support.CPP.array
libc.src.__support.FPUtil.fp_bits
)
diff --git a/libc/test/src/math/smoke/sinpi_test.cpp b/libc/test/src/math/smoke/sinpi_test.cpp
index a4ecffb19a236..0e5ec3d8ab6c8 100644
--- a/libc/test/src/math/smoke/sinpi_test.cpp
+++ b/libc/test/src/math/smoke/sinpi_test.cpp
@@ -34,18 +34,16 @@ TEST_F(LlvmLibcSinpiTest, SpecialNumbers) {
}
TEST_F(LlvmLibcSinpiTest, Integers) {
- EXPECT_FP_EQ(neg_zero,
- LIBC_NAMESPACE::sinpi(
- LIBC_NAMESPACE::fputil::cast<double>(-0x420.0p0)));
- EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(
- LIBC_NAMESPACE::fputil::cast<double>(-0x1p+10)));
- EXPECT_FP_EQ(neg_zero,
- LIBC_NAMESPACE::sinpi(
- LIBC_NAMESPACE::fputil::cast<double>(-0x1.4p+14)));
- EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(
- LIBC_NAMESPACE::fputil::cast<double>(0x420.0p0)));
- EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(
- LIBC_NAMESPACE::fputil::cast<double>(0x1.cp+15)));
- EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(
- LIBC_NAMESPACE::fputil::cast<double>(0x1.cp+7)));
+ EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(-0x1.0000000000003p52));
+
+ EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(-0x1.0000000000005p52));
+
+ EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(-0x1.0000000000006p52));
+
+ EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(0x1.0000000000003p52));
+
+ EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(0x1.0000000000005p52));
+
+ EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(0x1.0000000000006p52));
+
}
>From 4b9623b26d9268567d130e47dfcfc816e84e4182 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Tue, 11 Mar 2025 22:56:10 -0700
Subject: [PATCH 07/12] add new test
---
libc/src/math/generic/sinpi.cpp | 31 ++++++++++++++++++++++++++-----
libc/test/src/math/sinpi_test.cpp | 30 +++++++++++-------------------
2 files changed, 37 insertions(+), 24 deletions(-)
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index f05839faae1c3..2f1ea26ef92a2 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -22,7 +22,28 @@
#include "src/math/fmul.h"
namespace LIBC_NAMESPACE_DECL {
-
+
+
+static LIBC_INLINE void sincospi_poly_eval(double k, double y, double &sin_k,
+ double &cos_k, double &sin_y,
+
+
+ double &cosm1_y) {
+ // Q3 = fpminimax(sin(x*pi), 7, [|64...|], [-0.0078125, 0.0078125]);
+ sin_k =
+ k * fputil::polyeval(k, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1, -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2, 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1, -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
+
+ sin_y =
+ y * fputil::polyeval(y, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1, -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2, 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1, -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
+
+ // Q1 = fpminimax(cos(x * pi), 7, [|64...|], [-0.0078125, 0.0078125]);
+ cos_k =
+ k * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84, -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66, 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51, -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
+
+ cosm1_y =
+ y * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84, -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66, 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51, -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
+}
+
LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
using FPBits = typename fputil::FPBits<double>;
FPBits xbits(x);
@@ -46,16 +67,16 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
}
double n = pow(2, -52);
double k = fputil::nearest_integer(x * n);
- FPBits kbits(x);
- uint64_t ku = kbits.uintval();
double y = x - k;
double sin_k, cos_k, sin_y, cosm1_y;
- sincosf_poly_eval(ku, y, sin_k, cos_k, sin_y, cosm1_y);
+
+ sincospi_poly_eval(k, y, sin_k, cos_k, sin_y, cosm1_y);
+
if (LIBC_UNLIKELY(sin_y == 0 && sin_k == 0))
return FPBits::zero(xbits.sign()).get_val();
- return fputil::multiply_add(sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k));
+ return fputil::cast<double>(fputil::multiply_add(sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
}
}
diff --git a/libc/test/src/math/sinpi_test.cpp b/libc/test/src/math/sinpi_test.cpp
index a5ea0c1b9528a..f23249b3ab207 100644
--- a/libc/test/src/math/sinpi_test.cpp
+++ b/libc/test/src/math/sinpi_test.cpp
@@ -11,30 +11,22 @@
#include "test/UnitTest/Test.h"
#include "utils/MPFRWrapper/MPFRUtils.h"
-using LlvmLibcSinpiTest = LIBC_NAMESPACE::testing::FPTest<double>;
+#include <iostream>
+using LlvmLibcSinpiTest = LIBC_NAMESPACE::testing::FPTest<double>;
+using namespace std;
namespace mpfr = LIBC_NAMESPACE::testing::mpfr;
-// Range: [0, Inf]
-static constexpr uint64_t POS_START = 0x0000U;
-static constexpr uint64_t POS_STOP = 0x7c00U;
-// Range: [-Inf, 0]
-static constexpr uint16_t NEG_START = 0x8000U;
-static constexpr uint16_t NEG_STOP = 0xfc00U;
+static constexpr double POS_START = 0;
+static constexpr double POS_STOP = 200;
-TEST_F(LlvmLibcSinpif16Test, PositiveRange) {
- for (uint64_t v = POS_START; v <= POS_STOP; ++v) {
- double x = FPBits(v).get_val();
- EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, x,
- LIBC_NAMESPACE::sinpi(x), 0.5);
- }
-}
-TEST_F(LlvmLibcSinpif16Test, NegativeRange) {
- for (uint64_t v = NEG_START; v <= NEG_STOP; ++v) {
- double x = FPBits(v).get_val();
- EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, x,
- LIBC_NAMESPACE::sinpi(x), 0.5);
+TEST_F(LlvmLibcSinpiTest, PositiveRange) {
+ for (double v = POS_START; v <= POS_STOP; ++v) {
+ EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, v,
+ LIBC_NAMESPACE::sinpi(v), 0.5);
+ EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, -v,
+ LIBC_NAMESPACE::sinpi(-v), 0.5);
}
}
>From fb2aec871973beeea2efd7d11fa63c61ad5931a8 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Tue, 11 Mar 2025 22:57:38 -0700
Subject: [PATCH 08/12] format code
---
libc/src/math/generic/sinpi.cpp | 57 ++++++++++++++-----------
libc/test/src/math/sinpi_test.cpp | 2 -
libc/test/src/math/smoke/sinpi_test.cpp | 11 +++--
3 files changed, 38 insertions(+), 32 deletions(-)
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index 2f1ea26ef92a2..29976a895c405 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -8,61 +8,71 @@
#include "src/math/sinpi.h"
#include "sincos_eval.h"
-#include "src/__support/FPUtil/double_double.h"
+#include "src/__support/FPUtil/BasicOperations.h"
#include "src/__support/FPUtil/FEnvImpl.h"
#include "src/__support/FPUtil/FPBits.h"
#include "src/__support/FPUtil/PolyEval.h"
+#include "src/__support/FPUtil/double_double.h"
#include "src/__support/FPUtil/multiply_add.h"
-#include "src/__support/FPUtil/BasicOperations.h"
-#include "src/math/pow.h"
-#include "src/math/generic/sincosf_utils.h"
#include "src/__support/common.h"
#include "src/__support/macros/config.h"
#include "src/__support/macros/optimization.h" // LIBC_UNLIKELY
#include "src/math/fmul.h"
+#include "src/math/generic/sincosf_utils.h"
+#include "src/math/pow.h"
namespace LIBC_NAMESPACE_DECL {
-
static LIBC_INLINE void sincospi_poly_eval(double k, double y, double &sin_k,
- double &cos_k, double &sin_y,
-
+ double &cos_k, double &sin_y,
- double &cosm1_y) {
+ double &cosm1_y) {
// Q3 = fpminimax(sin(x*pi), 7, [|64...|], [-0.0078125, 0.0078125]);
sin_k =
- k * fputil::polyeval(k, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1, -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2, 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1, -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
+ k * fputil::polyeval(k, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1,
+ -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2,
+ 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1,
+ -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
sin_y =
- y * fputil::polyeval(y, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1, -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2, 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1, -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
+ y * fputil::polyeval(y, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1,
+ -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2,
+ 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1,
+ -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
// Q1 = fpminimax(cos(x * pi), 7, [|64...|], [-0.0078125, 0.0078125]);
cos_k =
- k * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84, -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66, 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51, -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
+ k * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84,
+ -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66,
+ 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51,
+ -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
cosm1_y =
- y * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84, -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66, 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51, -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
+ y * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84,
+ -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66,
+ 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51,
+ -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
}
LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
using FPBits = typename fputil::FPBits<double>;
FPBits xbits(x);
- //uint64_t x_u = xbits.uintval();
+ // uint64_t x_u = xbits.uintval();
double x_abs = fputil::abs(x);
double p = 0x1p52; // precision = 52; 2^p
if (LIBC_UNLIKELY(x_abs == 0U))
return x;
-
+
if (x_abs >= p) {
if (xbits.is_nan())
return x;
- if (xbits.is_inf()) {
- fputil::set_errno_if_required(EDOM);
- fputil::raise_except_if_required(FE_INVALID);
- return FPBits::quiet_nan().get_val();
- }
+ if (xbits.is_inf()) {
+ fputil::set_errno_if_required(EDOM);
+ fputil::raise_except_if_required(FE_INVALID);
+ return FPBits::quiet_nan().get_val();
+ }
return FPBits::zero(xbits.sign()).get_val();
}
double n = pow(2, -52);
@@ -70,13 +80,12 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
double y = x - k;
double sin_k, cos_k, sin_y, cosm1_y;
- sincospi_poly_eval(k, y, sin_k, cos_k, sin_y, cosm1_y);
-
+ sincospi_poly_eval(k, y, sin_k, cos_k, sin_y, cosm1_y);
if (LIBC_UNLIKELY(sin_y == 0 && sin_k == 0))
return FPBits::zero(xbits.sign()).get_val();
- return fputil::cast<double>(fputil::multiply_add(sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
-}
+ return fputil::cast<double>(fputil::multiply_add(
+ sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
}
-
+} // namespace LIBC_NAMESPACE_DECL
diff --git a/libc/test/src/math/sinpi_test.cpp b/libc/test/src/math/sinpi_test.cpp
index f23249b3ab207..509f02b12837d 100644
--- a/libc/test/src/math/sinpi_test.cpp
+++ b/libc/test/src/math/sinpi_test.cpp
@@ -17,11 +17,9 @@ using LlvmLibcSinpiTest = LIBC_NAMESPACE::testing::FPTest<double>;
using namespace std;
namespace mpfr = LIBC_NAMESPACE::testing::mpfr;
-
static constexpr double POS_START = 0;
static constexpr double POS_STOP = 200;
-
TEST_F(LlvmLibcSinpiTest, PositiveRange) {
for (double v = POS_START; v <= POS_STOP; ++v) {
EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, v,
diff --git a/libc/test/src/math/smoke/sinpi_test.cpp b/libc/test/src/math/smoke/sinpi_test.cpp
index 0e5ec3d8ab6c8..c32c3296bf190 100644
--- a/libc/test/src/math/smoke/sinpi_test.cpp
+++ b/libc/test/src/math/smoke/sinpi_test.cpp
@@ -35,15 +35,14 @@ TEST_F(LlvmLibcSinpiTest, SpecialNumbers) {
TEST_F(LlvmLibcSinpiTest, Integers) {
EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(-0x1.0000000000003p52));
-
+
EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(-0x1.0000000000005p52));
-
+
EXPECT_FP_EQ(neg_zero, LIBC_NAMESPACE::sinpi(-0x1.0000000000006p52));
-
+
EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(0x1.0000000000003p52));
-
+
EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(0x1.0000000000005p52));
-
+
EXPECT_FP_EQ(zero, LIBC_NAMESPACE::sinpi(0x1.0000000000006p52));
-
}
>From 42781d47f395b8e1ad42599d43ea4aca49383009 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Wed, 12 Mar 2025 11:27:48 -0700
Subject: [PATCH 09/12] remove comments
---
libc/src/math/generic/sinpi.cpp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index 29976a895c405..d89f55fab15a9 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -27,6 +27,7 @@ static LIBC_INLINE void sincospi_poly_eval(double k, double y, double &sin_k,
double &cos_k, double &sin_y,
double &cosm1_y) {
+
// Q3 = fpminimax(sin(x*pi), 7, [|64...|], [-0.0078125, 0.0078125]);
sin_k =
k * fputil::polyeval(k, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1,
@@ -58,9 +59,8 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
using FPBits = typename fputil::FPBits<double>;
FPBits xbits(x);
- // uint64_t x_u = xbits.uintval();
double x_abs = fputil::abs(x);
- double p = 0x1p52; // precision = 52; 2^p
+ double p = 0x1p52; // 2^p where p is the precision
if (LIBC_UNLIKELY(x_abs == 0U))
return x;
>From d8a1807140820026e6dcfb0bb7d4bfcda4b60716 Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Thu, 13 Mar 2025 04:07:38 -0700
Subject: [PATCH 10/12] add outline using double double ie sincos_eval
---
libc/src/math/generic/CMakeLists.txt | 3 +-
libc/src/math/generic/sinpi.cpp | 119 +++++++++++++++++----------
libc/test/src/math/sinpi_test.cpp | 10 ++-
3 files changed, 85 insertions(+), 47 deletions(-)
diff --git a/libc/src/math/generic/CMakeLists.txt b/libc/src/math/generic/CMakeLists.txt
index 5df1b7ebe56a4..abb1054edd811 100644
--- a/libc/src/math/generic/CMakeLists.txt
+++ b/libc/src/math/generic/CMakeLists.txt
@@ -503,6 +503,7 @@ add_entrypoint_object(
.sincosf_utils
libc.src.__support.FPUtil.fenv_impl
libc.src.__support.FPUtil.fp_bits
+ libc.src.__support.FPUtil.nearest_integer
libc.src.__support.FPUtil.fma
libc.src.__support.FPUtil.multiply_add
libc.src.__support.FPUtil.polyeval
@@ -510,7 +511,7 @@ add_entrypoint_object(
libc.src.__support.common
libc.src.__support.macros.optimization
libc.src.__support.FPUtil.basic_operations
- libc.src.__support.FPUtil.double_double
+ libc.src.math.generic.sincos_eval
)
add_entrypoint_object(
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index d89f55fab15a9..af10db65a0176 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -18,54 +18,88 @@
#include "src/__support/macros/config.h"
#include "src/__support/macros/optimization.h" // LIBC_UNLIKELY
#include "src/math/fmul.h"
-#include "src/math/generic/sincosf_utils.h"
+#include "src/math/generic/sincos_eval.h"
+#include "src/__support/FPUtil/double_double.h"
#include "src/math/pow.h"
+#include "src/__support/FPUtil/nearest_integer.h"
+#include "src/math/generic/range_reduction_double_common.h"
namespace LIBC_NAMESPACE_DECL {
-static LIBC_INLINE void sincospi_poly_eval(double k, double y, double &sin_k,
- double &cos_k, double &sin_y,
+const double SIN_K_PI_OVER_128[256] = {
+ 0x1.92155f7a3667ep-6, 0x1.91f65f10dd814p-5, 0x1.2d52092ce19f6p-4,
+ 0x1.917a6bc29b42cp-4, 0x1.f564e56a9730ep-4, 0x1.2c8106e8e613ap-3,
+ 0x1.5e214448b3fc6p-3, 0x1.8f8b83c69a60bp-3, 0x1.c0b826a7e4f63p-3,
+ 0x1.f19f97b215f1bp-3, 0x1.111d262b1f677p-2, 0x1.294062ed59f06p-2,
+ 0x1.4135c94176601p-2, 0x1.58f9a75ab1fddp-2, 0x1.7088530fa459fp-2,
+ 0x1.87de2a6aea963p-2, 0x1.9ef7943a8ed8ap-2, 0x1.b5d1009e15ccp-2,
+ 0x1.cc66e9931c45ep-2, 0x1.e2b5d3806f63bp-2, 0x1.f8ba4dbf89abap-2,
+ 0x1.073879922ffeep-1, 0x1.11eb3541b4b23p-1, 0x1.1c73b39ae68c8p-1,
+ 0x1.26d054cdd12dfp-1, 0x1.30ff7fce17035p-1, 0x1.3affa292050b9p-1,
+ 0x1.44cf325091dd6p-1, 0x1.4e6cabbe3e5e9p-1, 0x1.57d69348cecap-1,
+ 0x1.610b7551d2cdfp-1, 0x1.6a09e667f3bcdp-1, 0x1.72d0837efff96p-1,
+ 0x1.7b5df226aafafp-1, 0x1.83b0e0bff976ep-1, 0x1.8bc806b151741p-1,
+ 0x1.93a22499263fbp-1, 0x1.9b3e047f38741p-1, 0x1.a29a7a0462782p-1,
+ 0x1.a9b66290ea1a3p-1, 0x1.b090a581502p-1, 0x1.b728345196e3ep-1,
+ 0x1.bd7c0ac6f952ap-1, 0x1.c38b2f180bdb1p-1, 0x1.c954b213411f5p-1,
+ 0x1.ced7af43cc773p-1, 0x1.d4134d14dc93ap-1, 0x1.d906bcf328d46p-1,
+ 0x1.ddb13b6ccc23cp-1, 0x1.e212104f686e5p-1, 0x1.e6288ec48e112p-1,
+ 0x1.e9f4156c62ddap-1, 0x1.ed740e7684963p-1, 0x1.f0a7efb9230d7p-1,
+ 0x1.f38f3ac64e589p-1, 0x1.f6297cff75cbp-1, 0x1.f8764fa714ba9p-1,
+ 0x1.fa7557f08a517p-1, 0x1.fc26470e19fd3p-1, 0x1.fd88da3d12526p-1,
+ 0x1.fe9cdad01883ap-1, 0x1.ff621e3796d7ep-1, 0x1.ffd886084cd0dp-1,
+ 0x1p0, 0x1.ffd886084cd0dp-1, 0x1.ff621e3796d7ep-1,
+ 0x1.fe9cdad01883ap-1, 0x1.fd88da3d12526p-1, 0x1.fc26470e19fd3p-1,
+ 0x1.fa7557f08a517p-1, 0x1.f8764fa714ba9p-1, 0x1.f6297cff75cbp-1,
+ 0x1.f38f3ac64e589p-1, 0x1.f0a7efb9230d7p-1, 0x1.ed740e7684963p-1,
+ 0x1.e9f4156c62ddap-1, 0x1.e6288ec48e112p-1, 0x1.e212104f686e5p-1,
+ 0x1.ddb13b6ccc23cp-1, 0x1.d906bcf328d46p-1, 0x1.d4134d14dc93ap-1,
+ 0x1.ced7af43cc773p-1, 0x1.c954b213411f5p-1, 0x1.c38b2f180bdb1p-1,
+ 0x1.bd7c0ac6f952ap-1, 0x1.b728345196e3ep-1, 0x1.b090a581502p-1,
+ 0x1.a9b66290ea1a3p-1, 0x1.a29a7a0462782p-1, 0x1.9b3e047f38741p-1,
+ 0x1.93a22499263fbp-1, 0x1.8bc806b151741p-1, 0x1.83b0e0bff976ep-1,
+ 0x1.7b5df226aafafp-1, 0x1.72d0837efff96p-1, 0x1.6a09e667f3bcdp-1,
+ 0x1.610b7551d2cdfp-1, 0x1.57d69348cecap-1, 0x1.4e6cabbe3e5e9p-1,
+ 0x1.44cf325091dd6p-1, 0x1.3affa292050b9p-1, 0x1.30ff7fce17035p-1,
+ 0x1.26d054cdd12dfp-1, 0x1.1c73b39ae68c8p-1, 0x1.11eb3541b4b23p-1,
+ 0x1.073879922ffeep-1, 0x1.f8ba4dbf89abap-2, 0x1.e2b5d3806f63bp-2,
+ 0x1.cc66e9931c45ep-2, 0x1.b5d1009e15ccp-2, 0x1.9ef7943a8ed8ap-2,
+ 0x1.87de2a6aea963p-2, 0x1.7088530fa459fp-2, 0x1.58f9a75ab1fddp-2,
+ 0x1.4135c94176601p-2, 0x1.294062ed59f06p-2, 0x1.111d262b1f677p-2,
+ 0x1.f19f97b215f1bp-3, 0x1.c0b826a7e4f63p-3, 0x1.8f8b83c69a60bp-3,
+ 0x1.5e214448b3fc6p-3, 0x1.2c8106e8e613ap-3, 0x1.f564e56a9730ep-4,
+ 0x1.917a6bc29b42cp-4, 0x1.2d52092ce19f6p-4, 0x1.91f65f10dd814p-5,
+ 0x1.92155f7a3667ep-6
+};
- double &cosm1_y) {
-
- // Q3 = fpminimax(sin(x*pi), 7, [|64...|], [-0.0078125, 0.0078125]);
- sin_k =
- k * fputil::polyeval(k, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1,
- -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2,
- 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1,
- -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
+LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
- sin_y =
- y * fputil::polyeval(y, 0x1.59b6a771a45cbab8p-94, 0x1.921fb54442d1846ap1,
- -0x1.8633470ba8bd806cp-76, -0x1.4abbce625be56346p2,
- 0x1.d3e01dfd72e97a92p-61, 0x1.466bc67713dbbfp1,
- -0x1.14c2648595e2ad4p-47, -0x1.32d1cc20b89301fcp-1);
+ // Range reduction:
+ // x = (k + y) * 1/128
- // Q1 = fpminimax(cos(x * pi), 7, [|64...|], [-0.0078125, 0.0078125]);
- cos_k =
- k * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84,
- -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66,
- 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51,
- -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
+ // From x find k and y such that
+ // k = round(x * 128)
+ // y = x * 128 - k
- cosm1_y =
- y * fputil::polyeval(k, 0x1p0, 0x1.a5b22c564ee1d862p-84,
- -0x1.3bd3cc9be45d30e6p2, -0x1.5c2328fefbe60d3ep-66,
- 0x1.03c1f080a6907a6p2, 0x1.569a4d5c5018eecap-51,
- -0x1.55d1f72455a9848ap0, -0x1.6b18e5f7fc6c39a6p-38);
-}
+ double kd = fputil::nearest_integer(x * 128);
+ double yy = fputil::multiply_add<double>(x, 128.0, -kd);
-LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
+ using FPBits = typename fputil::FPBits<double>;
+
+ using DoubleDouble = fputil::DoubleDouble;
+ // DoubleDouble y;
+ //y.hi = yy;
+ //y.lo = 0.0;
using FPBits = typename fputil::FPBits<double>;
FPBits xbits(x);
+ uint64_t x_u = xbits.uintval();
- double x_abs = fputil::abs(x);
- double p = 0x1p52; // 2^p where p is the precision
+ uint64_t x_abs = x_u & 0x7fff;
if (LIBC_UNLIKELY(x_abs == 0U))
return x;
- if (x_abs >= p) {
+ if (x_abs >= 0x1p52) {
if (xbits.is_nan())
return x;
if (xbits.is_inf()) {
@@ -75,17 +109,18 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
}
return FPBits::zero(xbits.sign()).get_val();
}
- double n = pow(2, -52);
- double k = fputil::nearest_integer(x * n);
- double y = x - k;
- double sin_k, cos_k, sin_y, cosm1_y;
-
- sincospi_poly_eval(k, y, sin_k, cos_k, sin_y, cosm1_y);
+
+ DoubleDouble sin_y, cos_y;
- if (LIBC_UNLIKELY(sin_y == 0 && sin_k == 0))
+ [[maybe_unused]] double err = generic::sincos_eval(y, sin_y, cos_y);
+ double sin_k = SIN_K_PI_OVER_128[k & 255];
+ double cos_k = SIN_K_PI_OVER_128[(k + 64) & 255];
+
+ if (LIBC_UNLIKELY(sin_y.hi == 0 && sin_k == 0))
return FPBits::zero(xbits.sign()).get_val();
-
- return fputil::cast<double>(fputil::multiply_add(
- sin_y, cos_k, fputil::multiply_add(cosm1_y, sin_k, sin_k)));
+
+ return static_cast<double>(fputil::multiply_add(
+ sin_y.hi, cos_k, fputil::multiply_add(cos_y.hi, sin_k, sin_k)));
+
}
} // namespace LIBC_NAMESPACE_DECL
diff --git a/libc/test/src/math/sinpi_test.cpp b/libc/test/src/math/sinpi_test.cpp
index 509f02b12837d..af1d3f217ebb8 100644
--- a/libc/test/src/math/sinpi_test.cpp
+++ b/libc/test/src/math/sinpi_test.cpp
@@ -18,13 +18,15 @@ using namespace std;
namespace mpfr = LIBC_NAMESPACE::testing::mpfr;
static constexpr double POS_START = 0;
-static constexpr double POS_STOP = 200;
+static constexpr double POS_STOP = 10;
TEST_F(LlvmLibcSinpiTest, PositiveRange) {
for (double v = POS_START; v <= POS_STOP; ++v) {
+ double b = LIBC_NAMESPACE::sinpi(v);
+ std::cout << "sin(x * pi) =" << b << std::endl;
EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, v,
- LIBC_NAMESPACE::sinpi(v), 0.5);
- EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, -v,
- LIBC_NAMESPACE::sinpi(-v), 0.5);
+ LIBC_NAMESPACE::sinpi(v), 0.5);
+ //EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, -v,
+ //LIBC_NAMESPACE::sinpi(-v), 0.5);
}
}
>From 2d8388382c7fd75c6c799704c801399a5501e5cc Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Thu, 13 Mar 2025 04:48:31 -0700
Subject: [PATCH 11/12] update
---
libc/src/math/generic/sinpi.cpp | 23 +++++++++++++++++++++--
1 file changed, 21 insertions(+), 2 deletions(-)
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index af10db65a0176..5f044ddb6b55f 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -24,6 +24,21 @@
#include "src/__support/FPUtil/nearest_integer.h"
#include "src/math/generic/range_reduction_double_common.h"
+#if defined(LIBC_TARGET_CPU_HAS_FMA_DOUBLE)
+#include "range_reduction_fma.h"
+// using namespace LIBC_NAMESPACE::fma;
+using LIBC_NAMESPACE::fma::FAST_PASS_BOUND;
+using LIBC_NAMESPACE::fma::large_range_reduction;
+using LIBC_NAMESPACE::fma::small_range_reduction;
+
+#else
+#include "range_reduction.h"
+// using namespace LIBC_NAMESPACE::generic;
+using LIBC_NAMESPACE::generic::FAST_PASS_BOUND;
+using LIBC_NAMESPACE::generic::large_range_reduction;
+using LIBC_NAMESPACE::generic::small_range_reduction;
+#endif // LIBC_TARGET_CPU_HAS_FMA_DOUBLE
+
namespace LIBC_NAMESPACE_DECL {
const double SIN_K_PI_OVER_128[256] = {
@@ -77,17 +92,21 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
// Range reduction:
// x = (k + y) * 1/128
- // From x find k and y such that
+ // find k and y such that
// k = round(x * 128)
// y = x * 128 - k
+ /*
double kd = fputil::nearest_integer(x * 128);
double yy = fputil::multiply_add<double>(x, 128.0, -kd);
+ */
using FPBits = typename fputil::FPBits<double>;
using DoubleDouble = fputil::DoubleDouble;
- // DoubleDouble y;
+ DoubleDouble y;
+ LargeRangeReduction range_reduction_large{};
+ unsigned k = range_reduction_large.fast(x, y);
//y.hi = yy;
//y.lo = 0.0;
using FPBits = typename fputil::FPBits<double>;
>From 2e4b125adc52c73c24121dc4aae46ef7b9156ffc Mon Sep 17 00:00:00 2001
From: Job Hernandez <lara2993 at proton.me>
Date: Thu, 13 Mar 2025 11:09:47 -0700
Subject: [PATCH 12/12] update
---
libc/src/math/generic/CMakeLists.txt | 2 +
libc/src/math/generic/sinpi.cpp | 155 ++++++++++++++++++++-------
libc/test/src/math/sinpi_test.cpp | 26 +++--
3 files changed, 139 insertions(+), 44 deletions(-)
diff --git a/libc/src/math/generic/CMakeLists.txt b/libc/src/math/generic/CMakeLists.txt
index abb1054edd811..5ec8d25268f55 100644
--- a/libc/src/math/generic/CMakeLists.txt
+++ b/libc/src/math/generic/CMakeLists.txt
@@ -512,6 +512,8 @@ add_entrypoint_object(
libc.src.__support.macros.optimization
libc.src.__support.FPUtil.basic_operations
libc.src.math.generic.sincos_eval
+ libc.src.__support.FPUtil.double_double
+ libc.src.__support.FPUtil.multiply_add
)
add_entrypoint_object(
diff --git a/libc/src/math/generic/sinpi.cpp b/libc/src/math/generic/sinpi.cpp
index 5f044ddb6b55f..ad4d2ec6f21d2 100644
--- a/libc/src/math/generic/sinpi.cpp
+++ b/libc/src/math/generic/sinpi.cpp
@@ -22,26 +22,14 @@
#include "src/__support/FPUtil/double_double.h"
#include "src/math/pow.h"
#include "src/__support/FPUtil/nearest_integer.h"
+#include "src/__support/FPUtil/generic/mul.h"
#include "src/math/generic/range_reduction_double_common.h"
-
-#if defined(LIBC_TARGET_CPU_HAS_FMA_DOUBLE)
-#include "range_reduction_fma.h"
-// using namespace LIBC_NAMESPACE::fma;
-using LIBC_NAMESPACE::fma::FAST_PASS_BOUND;
-using LIBC_NAMESPACE::fma::large_range_reduction;
-using LIBC_NAMESPACE::fma::small_range_reduction;
-
-#else
-#include "range_reduction.h"
-// using namespace LIBC_NAMESPACE::generic;
-using LIBC_NAMESPACE::generic::FAST_PASS_BOUND;
-using LIBC_NAMESPACE::generic::large_range_reduction;
-using LIBC_NAMESPACE::generic::small_range_reduction;
-#endif // LIBC_TARGET_CPU_HAS_FMA_DOUBLE
-
+#include "range_reduction_double_nofma.h"
+#include "src/__support/FPUtil/multiply_add.h"
+#include <iostream>
namespace LIBC_NAMESPACE_DECL {
-const double SIN_K_PI_OVER_128[256] = {
+const double SIN_K_PI_OVER_129[256] = {
0x1.92155f7a3667ep-6, 0x1.91f65f10dd814p-5, 0x1.2d52092ce19f6p-4,
0x1.917a6bc29b42cp-4, 0x1.f564e56a9730ep-4, 0x1.2c8106e8e613ap-3,
0x1.5e214448b3fc6p-3, 0x1.8f8b83c69a60bp-3, 0x1.c0b826a7e4f63p-3,
@@ -86,31 +74,51 @@ const double SIN_K_PI_OVER_128[256] = {
0x1.917a6bc29b42cp-4, 0x1.2d52092ce19f6p-4, 0x1.91f65f10dd814p-5,
0x1.92155f7a3667ep-6
};
-
+
LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
-
+
// Range reduction:
// x = (k + y) * 1/128
// find k and y such that
// k = round(x * 128)
// y = x * 128 - k
+ // x = (k +y) * 1/128 and
+ // sin(x * pi) = sin((k +y)*pi/128)
+ // = sin(k * pi/128) * cos(y * pi/128) +
+ // = sin(y * pi/128) * cos(k* pi/128)
- /*
- double kd = fputil::nearest_integer(x * 128);
- double yy = fputil::multiply_add<double>(x, 128.0, -kd);
- */
+ LargeRangeReduction range_reduction_large{};
+ using FPBits = typename fputil::FPBits<double>;
+ using DoubleDouble = fputil::DoubleDouble;
+ // using Float128 = fputil::DyadicFloat<128>;
+ double k = fputil::nearest_integer(x * 128);
+ //int kk = static_cast<int>(k);
+ FPBits kbits(k);
+ FPBits xbits(x);
+ [[maybe_unused]] uint64_t k_bits = kbits.uintval();
+
+ //uint16_t x_e = xbits.get_biased_exponent();
+ //uint16_t x_e = xbits.get_biased_exponent();
+ //double y = fputil::multiply_add<double>(x, 128.0, -kd);
+ double fff = 5.0;
+ [[maybe_unused]] Float128 ggg = range_reduction_small_f128(fff);
+
using FPBits = typename fputil::FPBits<double>;
+ //DoubleDouble y = fputil::exact_mult(x, 128.0);
+ //DoubleDouble yy = fputil::exact_add(y.hi, -k);
+
+ double y = (x * 128) - k;
+ double pi = 3.14/128;
+ DoubleDouble yy = fputil::exact_mult(y, pi);
- using DoubleDouble = fputil::DoubleDouble;
- DoubleDouble y;
- LargeRangeReduction range_reduction_large{};
- unsigned k = range_reduction_large.fast(x, y);
+ //LargeRangeReduction range_reduction_large{};
+ //unsigned k = range_reduction_large.fast(x, y);
//y.hi = yy;
//y.lo = 0.0;
using FPBits = typename fputil::FPBits<double>;
- FPBits xbits(x);
+ //FPBits xbits(x);
uint64_t x_u = xbits.uintval();
uint64_t x_abs = x_u & 0x7fff;
@@ -131,15 +139,88 @@ LLVM_LIBC_FUNCTION(double, sinpi, (double x)) {
DoubleDouble sin_y, cos_y;
- [[maybe_unused]] double err = generic::sincos_eval(y, sin_y, cos_y);
- double sin_k = SIN_K_PI_OVER_128[k & 255];
- double cos_k = SIN_K_PI_OVER_128[(k + 64) & 255];
-
- if (LIBC_UNLIKELY(sin_y.hi == 0 && sin_k == 0))
+ [[maybe_unused]] double err = generic::sincos_eval(yy, sin_y, cos_y);
+ double sin_k = SIN_K_PI_OVER_129[k_bits & 255];
+ double cos_k = SIN_K_PI_OVER_129[(k_bits + 64) & 255];
+ double sin_yy = sin_y.hi;
+ double cos_yy = cos_y.hi;
+
+ if (LIBC_UNLIKELY(sin_yy == 0 && sin_k == 0))
return FPBits::zero(xbits.sign()).get_val();
- return static_cast<double>(fputil::multiply_add(
- sin_y.hi, cos_k, fputil::multiply_add(cos_y.hi, sin_k, sin_k)));
-
+ std::cout << "\n" << std::endl;
+ std::cout << "sin_k = " << sin_k << std::endl;
+ std::cout << "cos_k = " << cos_k << std::endl;
+ std::cout << "sin_yy = " << sin_yy << std::endl;
+ std::cout << "cos_yy = " << cos_yy << std::endl;
+
+ return static_cast<double>(fputil::multiply_add(sin_yy, cos_k, fputil::multiply_add(cos_yy, sin_k, sin_k)));
+}
}
-} // namespace LIBC_NAMESPACE_DECL
+
+
+
+
+ /*
+
+#ifdef LIBC_MATH_HAS_SMALL_TABLES
+ // Memory saving versions. Use 65-entry table.
+ auto get_idx_dd = [](unsigned kk) -> DoubleDouble {
+ unsigned idx = (kk & 64) ? 64 - (kk & 63) : (kk & 63);
+ DoubleDouble ans = SIN_K_PI_OVER_128[idx];
+ if (kk & 128) {
+ ans.hi = -ans.hi;
+ ans.lo = -ans.lo;
+ }
+ return ans;
+ };
+ DoubleDouble sin_k = get_idx_dd(k);
+ DoubleDouble cos_k = get_idx_dd(k + 64);
+#else
+ DoubleDouble sin_k = SIN_K_PI_OVER_128[k_bits & 255];
+ DoubleDouble cos_k = SIN_K_PI_OVER_128[(k_bits + 64) & 255];
+#endif
+
+ DoubleDouble sin_k_cos_y = fputil::quick_mult(cos_y, sin_k);
+ DoubleDouble cos_k_sin_y = fputil::quick_mult(sin_y, cos_k);
+
+ DoubleDouble rr = fputil::exact_add<false>(sin_k_cos_y.hi, cos_k_sin_y.hi);
+ rr.lo += sin_k_cos_y.lo + cos_k_sin_y.lo;
+
+ double rlp = rr.lo + err;
+ double rlm = rr.lo - err;
+ double r_upper = rr.hi + rlp; // (rr.lo + ERR);
+ double r_lower = rr.hi + rlm; // (rr.lo - ERR);
+
+ if (LIBC_LIKELY(r_upper == r_lower))
+ return r_upper;
+
+ Float128 u_f128, sin_u, cos_u;
+ if (LIBC_LIKELY(x_e < FPBits::EXP_BIAS + FAST_PASS_EXPONENT))
+ u_f128 = range_reduction_small_f128(x);
+ else
+ u_f128 = range_reduction_large.accurate();
+
+ generic::sincos_eval(u_f128, sin_u, cos_u);
+
+ auto get_sin_k = [](unsigned kk) -> Float128 {
+ unsigned idx = (kk & 64) ? 64 - (kk & 63) : (kk & 63);
+ Float128 ans = SIN_K_PI_OVER_128_F128[idx];
+ if (kk & 128)
+ ans.sign = Sign::NEG;
+ return ans;
+ };
+
+ Float128 sin_k_f128 = get_sin_k(kk);
+ Float128 cos_k_f128 = get_sin_k(kk + 64);
+
+ // sin(x) = sin((k * pi/128 + u)
+ // = sin(u) * cos(k*pi/128) + cos(u) * sin(k*pi/128)
+ Float128 r = fputil::quick_add(fputil::quick_mul(sin_k_f128, cos_u),
+ fputil::quick_mul(cos_k_f128, sin_u));
+
+ // TODO: Add assertion if Ziv's accuracy tests fail in debug mode.
+ // https://github.com/llvm/llvm-project/issues/96452.
+
+ return static_cast<double>(r);
+ */
diff --git a/libc/test/src/math/sinpi_test.cpp b/libc/test/src/math/sinpi_test.cpp
index af1d3f217ebb8..2a875227d188b 100644
--- a/libc/test/src/math/sinpi_test.cpp
+++ b/libc/test/src/math/sinpi_test.cpp
@@ -17,15 +17,27 @@ using LlvmLibcSinpiTest = LIBC_NAMESPACE::testing::FPTest<double>;
using namespace std;
namespace mpfr = LIBC_NAMESPACE::testing::mpfr;
-static constexpr double POS_START = 0;
-static constexpr double POS_STOP = 10;
+static constexpr uint64_t POS_START = 0x0000U;
+//static constexpr uint64_t POS_STOP = 0x7c00U;
+
+#include <iostream>
+/*
+double inputs[] = {
+ 0x1p0, 0x1p1, 0x1.8p1, 0x1p2, 0x1.4p2, 0x1.8p2,
+ 0x1.cp2, 0x1p3, 0x1.2p3, 0x1.4p3, 0x1.6p3, 0x1.8p3,
+ 0x1.ap3, 0x1.cp3, 0x1.ep3, 0x1p4, 0x1.1p4, 0x1.2p4,
+ 0x1.3p4, 0x1.4p4, 0x1.5p4, 0x1.6p4, 0x1.7p4, 0x1.8p4,
+ 0x1.9p4, 0x1.ap4
+};
+*/
TEST_F(LlvmLibcSinpiTest, PositiveRange) {
- for (double v = POS_START; v <= POS_STOP; ++v) {
- double b = LIBC_NAMESPACE::sinpi(v);
- std::cout << "sin(x * pi) =" << b << std::endl;
- EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, v,
- LIBC_NAMESPACE::sinpi(v), 0.5);
+ for (uint64_t v = POS_START; v <= 3; ++v) {
+ double x = FPBits(v).get_val();
+ std::cout << "sin(" << x << " * pi) =" << "\n" << LIBC_NAMESPACE::sinpi(x) << std::endl;
+ EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, x,
+ LIBC_NAMESPACE::sinpi(x), 0.5);
+
//EXPECT_MPFR_MATCH_ALL_ROUNDING(mpfr::Operation::Sinpi, -v,
//LIBC_NAMESPACE::sinpi(-v), 0.5);
}
More information about the libc-commits
mailing list