commit 1c05823ff89afc564252fecbf9f91ff5f19fea80 (tree)
parent 5e4aefd2a6dc3bd1db9bf9235b30217c52b0ff80
Author: mercenary <mercenary@noreply.codeberg.org>
Date: Mon, 29 Dec 2025 15:55:18 +0100
libc: remove `exp` and `expf`
These symbols are already provided by compiler_rt
Diffstat:
6 files changed, 0 insertions(+), 230 deletions(-)
diff --git a/lib/libc/mingw/math/expf.c b/lib/libc/mingw/math/expf.c
@@ -1,11 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <math.h>
-
-float expf (float x)
-{
- return (float) exp (x);
-}
diff --git a/lib/libc/musl/src/math/exp.c b/lib/libc/musl/src/math/exp.c
@@ -1,134 +0,0 @@
-/*
- * Double-precision e^x function.
- *
- * Copyright (c) 2018, Arm Limited.
- * SPDX-License-Identifier: MIT
- */
-
-#include <math.h>
-#include <stdint.h>
-#include "libm.h"
-#include "exp_data.h"
-
-#define N (1 << EXP_TABLE_BITS)
-#define InvLn2N __exp_data.invln2N
-#define NegLn2hiN __exp_data.negln2hiN
-#define NegLn2loN __exp_data.negln2loN
-#define Shift __exp_data.shift
-#define T __exp_data.tab
-#define C2 __exp_data.poly[5 - EXP_POLY_ORDER]
-#define C3 __exp_data.poly[6 - EXP_POLY_ORDER]
-#define C4 __exp_data.poly[7 - EXP_POLY_ORDER]
-#define C5 __exp_data.poly[8 - EXP_POLY_ORDER]
-
-/* Handle cases that may overflow or underflow when computing the result that
- is scale*(1+TMP) without intermediate rounding. The bit representation of
- scale is in SBITS, however it has a computed exponent that may have
- overflown into the sign bit so that needs to be adjusted before using it as
- a double. (int32_t)KI is the k used in the argument reduction and exponent
- adjustment of scale, positive k here means the result may overflow and
- negative k means the result may underflow. */
-static inline double specialcase(double_t tmp, uint64_t sbits, uint64_t ki)
-{
- double_t scale, y;
-
- if ((ki & 0x80000000) == 0) {
- /* k > 0, the exponent of scale might have overflowed by <= 460. */
- sbits -= 1009ull << 52;
- scale = asdouble(sbits);
- y = 0x1p1009 * (scale + scale * tmp);
- return eval_as_double(y);
- }
- /* k < 0, need special care in the subnormal range. */
- sbits += 1022ull << 52;
- scale = asdouble(sbits);
- y = scale + scale * tmp;
- if (y < 1.0) {
- /* Round y to the right precision before scaling it into the subnormal
- range to avoid double rounding that can cause 0.5+E/2 ulp error where
- E is the worst-case ulp error outside the subnormal range. So this
- is only useful if the goal is better than 1 ulp worst-case error. */
- double_t hi, lo;
- lo = scale - y + scale * tmp;
- hi = 1.0 + y;
- lo = 1.0 - hi + y + lo;
- y = eval_as_double(hi + lo) - 1.0;
- /* Avoid -0.0 with downward rounding. */
- if (WANT_ROUNDING && y == 0.0)
- y = 0.0;
- /* The underflow exception needs to be signaled explicitly. */
- fp_force_eval(fp_barrier(0x1p-1022) * 0x1p-1022);
- }
- y = 0x1p-1022 * y;
- return eval_as_double(y);
-}
-
-/* Top 12 bits of a double (sign and exponent bits). */
-static inline uint32_t top12(double x)
-{
- return asuint64(x) >> 52;
-}
-
-double exp(double x)
-{
- uint32_t abstop;
- uint64_t ki, idx, top, sbits;
- double_t kd, z, r, r2, scale, tail, tmp;
-
- abstop = top12(x) & 0x7ff;
- if (predict_false(abstop - top12(0x1p-54) >= top12(512.0) - top12(0x1p-54))) {
- if (abstop - top12(0x1p-54) >= 0x80000000)
- /* Avoid spurious underflow for tiny x. */
- /* Note: 0 is common input. */
- return WANT_ROUNDING ? 1.0 + x : 1.0;
- if (abstop >= top12(1024.0)) {
- if (asuint64(x) == asuint64(-INFINITY))
- return 0.0;
- if (abstop >= top12(INFINITY))
- return 1.0 + x;
- if (asuint64(x) >> 63)
- return __math_uflow(0);
- else
- return __math_oflow(0);
- }
- /* Large x is special cased below. */
- abstop = 0;
- }
-
- /* exp(x) = 2^(k/N) * exp(r), with exp(r) in [2^(-1/2N),2^(1/2N)]. */
- /* x = ln2/N*k + r, with int k and r in [-ln2/2N, ln2/2N]. */
- z = InvLn2N * x;
-#if TOINT_INTRINSICS
- kd = roundtoint(z);
- ki = converttoint(z);
-#elif EXP_USE_TOINT_NARROW
- /* z - kd is in [-0.5-2^-16, 0.5] in all rounding modes. */
- kd = eval_as_double(z + Shift);
- ki = asuint64(kd) >> 16;
- kd = (double_t)(int32_t)ki;
-#else
- /* z - kd is in [-1, 1] in non-nearest rounding modes. */
- kd = eval_as_double(z + Shift);
- ki = asuint64(kd);
- kd -= Shift;
-#endif
- r = x + kd * NegLn2hiN + kd * NegLn2loN;
- /* 2^(k/N) ~= scale * (1 + tail). */
- idx = 2 * (ki % N);
- top = ki << (52 - EXP_TABLE_BITS);
- tail = asdouble(T[idx]);
- /* This is only a valid scale when -1023*N < k < 1024*N. */
- sbits = T[idx + 1] + top;
- /* exp(x) = 2^(k/N) * exp(r) ~= scale + scale * (tail + exp(r) - 1). */
- /* Evaluation is optimized assuming superscalar pipelined execution. */
- r2 = r * r;
- /* Without fma the worst case error is 0.25/N ulp larger. */
- /* Worst case error is less than 0.5+1.11/N+(abs poly error * 2^53) ulp. */
- tmp = tail + r + r2 * (C2 + r * C3) + r2 * r2 * (C4 + r * C5);
- if (predict_false(abstop == 0))
- return specialcase(tmp, sbits, ki);
- scale = asdouble(sbits);
- /* Note: tmp == 0 or |tmp| > 2^-200 and scale > 2^-739, so there
- is no spurious underflow here even without fma. */
- return eval_as_double(scale + scale * tmp);
-}
diff --git a/lib/libc/musl/src/math/expf.c b/lib/libc/musl/src/math/expf.c
@@ -1,80 +0,0 @@
-/*
- * Single-precision e^x function.
- *
- * Copyright (c) 2017-2018, Arm Limited.
- * SPDX-License-Identifier: MIT
- */
-
-#include <math.h>
-#include <stdint.h>
-#include "libm.h"
-#include "exp2f_data.h"
-
-/*
-EXP2F_TABLE_BITS = 5
-EXP2F_POLY_ORDER = 3
-
-ULP error: 0.502 (nearest rounding.)
-Relative error: 1.69 * 2^-34 in [-ln2/64, ln2/64] (before rounding.)
-Wrong count: 170635 (all nearest rounding wrong results with fma.)
-Non-nearest ULP error: 1 (rounded ULP error)
-*/
-
-#define N (1 << EXP2F_TABLE_BITS)
-#define InvLn2N __exp2f_data.invln2_scaled
-#define T __exp2f_data.tab
-#define C __exp2f_data.poly_scaled
-
-static inline uint32_t top12(float x)
-{
- return asuint(x) >> 20;
-}
-
-float expf(float x)
-{
- uint32_t abstop;
- uint64_t ki, t;
- double_t kd, xd, z, r, r2, y, s;
-
- xd = (double_t)x;
- abstop = top12(x) & 0x7ff;
- if (predict_false(abstop >= top12(88.0f))) {
- /* |x| >= 88 or x is nan. */
- if (asuint(x) == asuint(-INFINITY))
- return 0.0f;
- if (abstop >= top12(INFINITY))
- return x + x;
- if (x > 0x1.62e42ep6f) /* x > log(0x1p128) ~= 88.72 */
- return __math_oflowf(0);
- if (x < -0x1.9fe368p6f) /* x < log(0x1p-150) ~= -103.97 */
- return __math_uflowf(0);
- }
-
- /* x*N/Ln2 = k + r with r in [-1/2, 1/2] and int k. */
- z = InvLn2N * xd;
-
- /* Round and convert z to int, the result is in [-150*N, 128*N] and
- ideally ties-to-even rule is used, otherwise the magnitude of r
- can be bigger which gives larger approximation error. */
-#if TOINT_INTRINSICS
- kd = roundtoint(z);
- ki = converttoint(z);
-#else
-# define SHIFT __exp2f_data.shift
- kd = eval_as_double(z + SHIFT);
- ki = asuint64(kd);
- kd -= SHIFT;
-#endif
- r = z - kd;
-
- /* exp(x) = 2^(k/N) * 2^(r/N) ~= s * (C0*r^3 + C1*r^2 + C2*r + 1) */
- t = T[ki % N];
- t += ki << (52 - EXP2F_TABLE_BITS);
- s = asdouble(t);
- z = C[0] * r + C[1];
- r2 = r * r;
- y = C[2] * r + 1;
- y = z * r2 + y;
- y = y * s;
- return eval_as_float(y);
-}
diff --git a/src/libs/mingw.zig b/src/libs/mingw.zig
@@ -997,7 +997,6 @@ const mingw32_x86_src = [_][]const u8{
const mingw32_x86_32_src = [_][]const u8{
// ucrtbase
"math" ++ path.sep_str ++ "coshf.c",
- "math" ++ path.sep_str ++ "expf.c",
"math" ++ path.sep_str ++ "log10f.c",
"math" ++ path.sep_str ++ "logf.c",
"math" ++ path.sep_str ++ "modff.c",
diff --git a/src/libs/musl.zig b/src/libs/musl.zig
@@ -903,9 +903,7 @@ const src_files = [_][]const u8{
"musl/src/math/exp2f.c",
"musl/src/math/exp2f_data.c",
"musl/src/math/exp2l.c",
- "musl/src/math/exp.c",
"musl/src/math/exp_data.c",
- "musl/src/math/expf.c",
"musl/src/math/expl.c",
"musl/src/math/expm1.c",
"musl/src/math/expm1f.c",
diff --git a/src/libs/wasi_libc.zig b/src/libs/wasi_libc.zig
@@ -743,9 +743,7 @@ const libc_top_half_src_files = [_][]const u8{
"musl/src/math/exp2f.c",
"musl/src/math/exp2f_data.c",
"musl/src/math/exp2l.c",
- "musl/src/math/exp.c",
"musl/src/math/exp_data.c",
- "musl/src/math/expf.c",
"musl/src/math/expl.c",
"musl/src/math/expm1.c",
"musl/src/math/expm1f.c",
