authorgravatar for seda18@rolmail.netDavid Senoner <seda18@rolmail.net> 2025-08-27 21:53:16+02:00
committergravatar for seda18@rolmail.netDavid Senoner <seda18@rolmail.net> 2025-08-28 20:09:07+02:00
log70e22d79a4d7aedcc76a00f123837d387545c3c6
treeb01caace5dd72d3db8848d42e1e38035d4869260
parentf707de15a14e4400e99d5260d6d7af98aa2a69cd

libc: delete superfluous c and assembly trunc implementations

22 files changed, 0 insertions(+), 276 deletions(-)

lib/libc/mingw/math/truncl.c deleted-25
...@@ -1,25 +0,0 @@
1/**
2 * This file has no copyright assigned and is placed in the Public Domain.
3 * This file is part of the mingw-w64 runtime package.
4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
5 */
6
7#include <math.h>
8
9long double
10truncl (long double _x)
11{
12#if __SIZEOF_LONG_DOUBLE__ == __SIZEOF_DOUBLE__
13 return trunc(_x);
14#else
15 long double retval = 0.0L;
16 unsigned short saved_cw;
17 unsigned short tmp_cw;
18 __asm__ __volatile__ ("fnstcw %0;" : "=m" (saved_cw)); /* save FPU control word */
19 tmp_cw = saved_cw | 0xc00; /* round towards zero */
20 __asm__ __volatile__ ("fldcw %0;" : : "m" (tmp_cw));
21 __asm__ __volatile__ ("frndint;" : "=t" (retval) : "0" (_x)); /* round towards zero */
22 __asm__ __volatile__ ("fldcw %0;" : : "m" (saved_cw) ); /* restore saved control word */
23 return retval;
24#endif /* defined(_ARM_) || defined(__arm__) || defined(_ARM64_) || defined(__aarch64__) */
25}
lib/libc/musl/src/math/aarch64/trunc.c deleted-7
...@@ -1,7 +0,0 @@
1#include <math.h>
2
3double trunc(double x)
4{
5 __asm__ ("frintz %d0, %d1" : "=w"(x) : "w"(x));
6 return x;
7}
lib/libc/musl/src/math/aarch64/truncf.c deleted-7
...@@ -1,7 +0,0 @@
1#include <math.h>
2
3float truncf(float x)
4{
5 __asm__ ("frintz %s0, %s1" : "=w"(x) : "w"(x));
6 return x;
7}
lib/libc/musl/src/math/i386/floor.s deleted-31
...@@ -1,31 +0,0 @@
1/* zig patch: removed `floorl`, `floorf`, `ceil`, `ceilf` and `ceill` in favor of using zig compiler_rt's implementations */
2
31: fstcw 4(%esp)
4 mov 5(%esp),%ah
5 mov %al,5(%esp)
6 fldcw 4(%esp)
7 frndint
8 mov %ah,5(%esp)
9 fldcw 4(%esp)
10 ret
11
12.global trunc
13.type trunc,@function
14trunc:
15 fldl 4(%esp)
16 mov $0xf,%al
17 jmp 1b
18
19.global truncf
20.type truncf,@function
21truncf:
22 flds 4(%esp)
23 mov $0xf,%al
24 jmp 1b
25
26.global truncl
27.type truncl,@function
28truncl:
29 fldt 4(%esp)
30 mov $0xf,%al
31 jmp 1b
lib/libc/musl/src/math/i386/trunc.s deleted-1
...@@ -1 +0,0 @@
1# see floor.s
lib/libc/musl/src/math/i386/truncf.s deleted-1
...@@ -1 +0,0 @@
1# see floor.s
lib/libc/musl/src/math/i386/truncl.s deleted-1
...@@ -1 +0,0 @@
1# see floor.s
lib/libc/musl/src/math/powerpc64/trunc.c deleted-15
...@@ -1,15 +0,0 @@
1#include <math.h>
2
3#ifdef _ARCH_PWR5X
4
5double trunc(double x)
6{
7 __asm__ ("friz %0, %1" : "=d"(x) : "d"(x));
8 return x;
9}
10
11#else
12
13#include "../trunc.c"
14
15#endif
lib/libc/musl/src/math/powerpc64/truncf.c deleted-15
...@@ -1,15 +0,0 @@
1#include <math.h>
2
3#ifdef _ARCH_PWR5X
4
5float truncf(float x)
6{
7 __asm__ ("friz %0, %1" : "=f"(x) : "f"(x));
8 return x;
9}
10
11#else
12
13#include "../truncf.c"
14
15#endif
lib/libc/musl/src/math/s390x/trunc.c deleted-15
...@@ -1,15 +0,0 @@
1#include <math.h>
2
3#if defined(__HTM__) || __ARCH__ >= 9
4
5double trunc(double x)
6{
7 __asm__ ("fidbra %0, 5, %1, 4" : "=f"(x) : "f"(x));
8 return x;
9}
10
11#else
12
13#include "../trunc.c"
14
15#endif
lib/libc/musl/src/math/s390x/truncf.c deleted-15
...@@ -1,15 +0,0 @@
1#include <math.h>
2
3#if defined(__HTM__) || __ARCH__ >= 9
4
5float truncf(float x)
6{
7 __asm__ ("fiebra %0, 5, %1, 4" : "=f"(x) : "f"(x));
8 return x;
9}
10
11#else
12
13#include "../truncf.c"
14
15#endif
lib/libc/musl/src/math/s390x/truncl.c deleted-15
...@@ -1,15 +0,0 @@
1#include <math.h>
2
3#if defined(__HTM__) || __ARCH__ >= 9
4
5long double truncl(long double x)
6{
7 __asm__ ("fixbra %0, 5, %1, 4" : "=f"(x) : "f"(x));
8 return x;
9}
10
11#else
12
13#include "../truncl.c"
14
15#endif
lib/libc/musl/src/math/trunc.c deleted-19
...@@ -1,19 +0,0 @@
1#include "libm.h"
2
3double trunc(double x)
4{
5 union {double f; uint64_t i;} u = {x};
6 int e = (int)(u.i >> 52 & 0x7ff) - 0x3ff + 12;
7 uint64_t m;
8
9 if (e >= 52 + 12)
10 return x;
11 if (e < 12)
12 e = 1;
13 m = -1ULL >> e;
14 if ((u.i & m) == 0)
15 return x;
16 FORCE_EVAL(x + 0x1p120f);
17 u.i &= ~m;
18 return u.f;
19}
lib/libc/musl/src/math/truncf.c deleted-19
...@@ -1,19 +0,0 @@
1#include "libm.h"
2
3float truncf(float x)
4{
5 union {float f; uint32_t i;} u = {x};
6 int e = (int)(u.i >> 23 & 0xff) - 0x7f + 9;
7 uint32_t m;
8
9 if (e >= 23 + 9)
10 return x;
11 if (e < 9)
12 e = 1;
13 m = -1U >> e;
14 if ((u.i & m) == 0)
15 return x;
16 FORCE_EVAL(x + 0x1p120f);
17 u.i &= ~m;
18 return u.f;
19}
lib/libc/musl/src/math/truncl.c deleted-34
...@@ -1,34 +0,0 @@
1#include "libm.h"
2
3#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
4long double truncl(long double x)
5{
6 return trunc(x);
7}
8#elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
9
10static const long double toint = 1/LDBL_EPSILON;
11
12long double truncl(long double x)
13{
14 union ldshape u = {x};
15 int e = u.i.se & 0x7fff;
16 int s = u.i.se >> 15;
17 long double y;
18
19 if (e >= 0x3fff+LDBL_MANT_DIG-1)
20 return x;
21 if (e <= 0x3fff-1) {
22 FORCE_EVAL(x + 0x1p120f);
23 return x*0;
24 }
25 /* y = int(|x|) - |x|, where int(|x|) is an integer neighbor of |x| */
26 if (s)
27 x = -x;
28 y = x + toint - toint - x;
29 if (y > 0)
30 y -= 1;
31 x += y;
32 return s ? -x : x;
33}
34#endif
lib/libc/musl/src/math/x32/floorl.s deleted-17
...@@ -1,17 +0,0 @@
1/* zig patch: removed `floorl` and `ceill` in favor of using zig compiler_rt's implementations */
2
31: fstcw 8(%esp)
4 mov 9(%esp),%ah
5 mov %al,9(%esp)
6 fldcw 8(%esp)
7 frndint
8 mov %ah,9(%esp)
9 fldcw 8(%esp)
10 ret
11
12.global truncl
13.type truncl,@function
14truncl:
15 fldt 8(%esp)
16 mov $0xf,%al
17 jmp 1b
lib/libc/musl/src/math/x32/truncl.s deleted-1
...@@ -1 +0,0 @@
1# see floorl.s
lib/libc/musl/src/math/x86_64/floorl.s deleted-17
...@@ -1,17 +0,0 @@
1/* zig patch: removed `floorl` and `ceill` in favor of using zig compiler_rt's implementations */
2
31: fstcw 8(%rsp)
4 mov 9(%rsp),%ah
5 mov %al,9(%rsp)
6 fldcw 8(%rsp)
7 frndint
8 mov %ah,9(%rsp)
9 fldcw 8(%rsp)
10 ret
11
12.global truncl
13.type truncl,@function
14truncl:
15 fldt 8(%rsp)
16 mov $0xf,%al
17 jmp 1b
lib/libc/musl/src/math/x86_64/truncl.s deleted-1
...@@ -1 +0,0 @@
1# see floorl.s
src/libs/mingw.zig-1
...@@ -911,7 +911,6 @@ const mingw32_x86_src = [_][]const u8{...@@ -911,7 +911,6 @@ const mingw32_x86_src = [_][]const u8{
911 "math" ++ path.sep_str ++ "rintl.c",911 "math" ++ path.sep_str ++ "rintl.c",
912 "math" ++ path.sep_str ++ "roundl.c",912 "math" ++ path.sep_str ++ "roundl.c",
913 "math" ++ path.sep_str ++ "tgammal.c",913 "math" ++ path.sep_str ++ "tgammal.c",
914 "math" ++ path.sep_str ++ "truncl.c",
915 "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "_chgsignl.S",914 "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "_chgsignl.S",
916 "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "acoshl.c",915 "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "acoshl.c",
917 "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "acosl.c",916 "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "acosl.c",
src/libs/musl.zig-18
...@@ -853,8 +853,6 @@ const src_files = [_][]const u8{...@@ -853,8 +853,6 @@ const src_files = [_][]const u8{
853 "musl/src/math/aarch64/roundf.c",853 "musl/src/math/aarch64/roundf.c",
854 "musl/src/math/aarch64/sqrt.c",854 "musl/src/math/aarch64/sqrt.c",
855 "musl/src/math/aarch64/sqrtf.c",855 "musl/src/math/aarch64/sqrtf.c",
856 "musl/src/math/aarch64/trunc.c",
857 "musl/src/math/aarch64/truncf.c",
858 "musl/src/math/acos.c",856 "musl/src/math/acos.c",
859 "musl/src/math/acosf.c",857 "musl/src/math/acosf.c",
860 "musl/src/math/acosh.c",858 "musl/src/math/acosh.c",
...@@ -954,7 +952,6 @@ const src_files = [_][]const u8{...@@ -954,7 +952,6 @@ const src_files = [_][]const u8{
954 "musl/src/math/i386/exp_ld.s",952 "musl/src/math/i386/exp_ld.s",
955 "musl/src/math/i386/expl.s",953 "musl/src/math/i386/expl.s",
956 "musl/src/math/i386/expm1l.s",954 "musl/src/math/i386/expm1l.s",
957 "musl/src/math/i386/floor.s",
958 "musl/src/math/i386/fmod.c",955 "musl/src/math/i386/fmod.c",
959 "musl/src/math/i386/fmodf.c",956 "musl/src/math/i386/fmodf.c",
960 "musl/src/math/i386/fmodl.c",957 "musl/src/math/i386/fmodl.c",
...@@ -1000,9 +997,6 @@ const src_files = [_][]const u8{...@@ -1000,9 +997,6 @@ const src_files = [_][]const u8{
1000 "musl/src/math/i386/sqrt.c",997 "musl/src/math/i386/sqrt.c",
1001 "musl/src/math/i386/sqrtf.c",998 "musl/src/math/i386/sqrtf.c",
1002 "musl/src/math/i386/sqrtl.c",999 "musl/src/math/i386/sqrtl.c",
1003 "musl/src/math/i386/truncf.s",
1004 "musl/src/math/i386/truncl.s",
1005 "musl/src/math/i386/trunc.s",
1006 "musl/src/math/ilogb.c",1000 "musl/src/math/ilogb.c",
1007 "musl/src/math/ilogbf.c",1001 "musl/src/math/ilogbf.c",
1008 "musl/src/math/ilogbl.c",1002 "musl/src/math/ilogbl.c",
...@@ -1098,8 +1092,6 @@ const src_files = [_][]const u8{...@@ -1098,8 +1092,6 @@ const src_files = [_][]const u8{
1098 "musl/src/math/powerpc64/roundf.c",1092 "musl/src/math/powerpc64/roundf.c",
1099 "musl/src/math/powerpc64/sqrt.c",1093 "musl/src/math/powerpc64/sqrt.c",
1100 "musl/src/math/powerpc64/sqrtf.c",1094 "musl/src/math/powerpc64/sqrtf.c",
1101 "musl/src/math/powerpc64/trunc.c",
1102 "musl/src/math/powerpc64/truncf.c",
1103 "musl/src/math/powerpc/fma.c",1095 "musl/src/math/powerpc/fma.c",
1104 "musl/src/math/powerpc/fmaf.c",1096 "musl/src/math/powerpc/fmaf.c",
1105 "musl/src/math/powerpc/sqrt.c",1097 "musl/src/math/powerpc/sqrt.c",
...@@ -1157,9 +1149,6 @@ const src_files = [_][]const u8{...@@ -1157,9 +1149,6 @@ const src_files = [_][]const u8{
1157 "musl/src/math/s390x/sqrt.c",1149 "musl/src/math/s390x/sqrt.c",
1158 "musl/src/math/s390x/sqrtf.c",1150 "musl/src/math/s390x/sqrtf.c",
1159 "musl/src/math/s390x/sqrtl.c",1151 "musl/src/math/s390x/sqrtl.c",
1160 "musl/src/math/s390x/trunc.c",
1161 "musl/src/math/s390x/truncf.c",
1162 "musl/src/math/s390x/truncl.c",
1163 "musl/src/math/scalb.c",1152 "musl/src/math/scalb.c",
1164 "musl/src/math/scalbf.c",1153 "musl/src/math/scalbf.c",
1165 "musl/src/math/scalbln.c",1154 "musl/src/math/scalbln.c",
...@@ -1196,9 +1185,6 @@ const src_files = [_][]const u8{...@@ -1196,9 +1185,6 @@ const src_files = [_][]const u8{
1196 "musl/src/math/tgamma.c",1185 "musl/src/math/tgamma.c",
1197 "musl/src/math/tgammaf.c",1186 "musl/src/math/tgammaf.c",
1198 "musl/src/math/tgammal.c",1187 "musl/src/math/tgammal.c",
1199 "musl/src/math/trunc.c",
1200 "musl/src/math/truncf.c",
1201 "musl/src/math/truncl.c",
1202 "musl/src/math/x32/acosl.s",1188 "musl/src/math/x32/acosl.s",
1203 "musl/src/math/x32/asinl.s",1189 "musl/src/math/x32/asinl.s",
1204 "musl/src/math/x32/atan2l.s",1190 "musl/src/math/x32/atan2l.s",
...@@ -1206,7 +1192,6 @@ const src_files = [_][]const u8{...@@ -1206,7 +1192,6 @@ const src_files = [_][]const u8{
1206 "musl/src/math/x32/exp2l.s",1192 "musl/src/math/x32/exp2l.s",
1207 "musl/src/math/x32/expl.s",1193 "musl/src/math/x32/expl.s",
1208 "musl/src/math/x32/expm1l.s",1194 "musl/src/math/x32/expm1l.s",
1209 "musl/src/math/x32/floorl.s",
1210 "musl/src/math/x32/fma.c",1195 "musl/src/math/x32/fma.c",
1211 "musl/src/math/x32/fmaf.c",1196 "musl/src/math/x32/fmaf.c",
1212 "musl/src/math/x32/fmodl.s",1197 "musl/src/math/x32/fmodl.s",
...@@ -1226,7 +1211,6 @@ const src_files = [_][]const u8{...@@ -1226,7 +1211,6 @@ const src_files = [_][]const u8{
1226 "musl/src/math/x32/sqrtf.s",1211 "musl/src/math/x32/sqrtf.s",
1227 "musl/src/math/x32/sqrtl.s",1212 "musl/src/math/x32/sqrtl.s",
1228 "musl/src/math/x32/sqrt.s",1213 "musl/src/math/x32/sqrt.s",
1229 "musl/src/math/x32/truncl.s",
1230 "musl/src/math/x86_64/acosl.s",1214 "musl/src/math/x86_64/acosl.s",
1231 "musl/src/math/x86_64/asinl.s",1215 "musl/src/math/x86_64/asinl.s",
1232 "musl/src/math/x86_64/atan2l.s",1216 "musl/src/math/x86_64/atan2l.s",
...@@ -1234,7 +1218,6 @@ const src_files = [_][]const u8{...@@ -1234,7 +1218,6 @@ const src_files = [_][]const u8{
1234 "musl/src/math/x86_64/exp2l.s",1218 "musl/src/math/x86_64/exp2l.s",
1235 "musl/src/math/x86_64/expl.s",1219 "musl/src/math/x86_64/expl.s",
1236 "musl/src/math/x86_64/expm1l.s",1220 "musl/src/math/x86_64/expm1l.s",
1237 "musl/src/math/x86_64/floorl.s",
1238 "musl/src/math/x86_64/fma.c",1221 "musl/src/math/x86_64/fma.c",
1239 "musl/src/math/x86_64/fmaf.c",1222 "musl/src/math/x86_64/fmaf.c",
1240 "musl/src/math/x86_64/fmodl.c",1223 "musl/src/math/x86_64/fmodl.c",
...@@ -1255,7 +1238,6 @@ const src_files = [_][]const u8{...@@ -1255,7 +1238,6 @@ const src_files = [_][]const u8{
1255 "musl/src/math/x86_64/sqrt.c",1238 "musl/src/math/x86_64/sqrt.c",
1256 "musl/src/math/x86_64/sqrtf.c",1239 "musl/src/math/x86_64/sqrtf.c",
1257 "musl/src/math/x86_64/sqrtl.c",1240 "musl/src/math/x86_64/sqrtl.c",
1258 "musl/src/math/x86_64/truncl.s",
1259 "musl/src/misc/a64l.c",1241 "musl/src/misc/a64l.c",
1260 "musl/src/misc/basename.c",1242 "musl/src/misc/basename.c",
1261 "musl/src/misc/dirname.c",1243 "musl/src/misc/dirname.c",
src/libs/wasi_libc.zig-1
...@@ -886,7 +886,6 @@ const libc_top_half_src_files = [_][]const u8{...@@ -886,7 +886,6 @@ const libc_top_half_src_files = [_][]const u8{
886 "musl/src/math/tgamma.c",886 "musl/src/math/tgamma.c",
887 "musl/src/math/tgammaf.c",887 "musl/src/math/tgammaf.c",
888 "musl/src/math/tgammal.c",888 "musl/src/math/tgammal.c",
889 "musl/src/math/truncl.c",
890 "musl/src/misc/a64l.c",889 "musl/src/misc/a64l.c",
891 "musl/src/misc/basename.c",890 "musl/src/misc/basename.c",
892 "musl/src/misc/dirname.c",891 "musl/src/misc/dirname.c",