libc: delete superfluous c and assembly trunc implementations

lib/libc/mingw/math/truncl.c

@@ -1,25 +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>
-
-long double
-truncl (long double _x)
-{
-#if __SIZEOF_LONG_DOUBLE__ == __SIZEOF_DOUBLE__
-  return trunc(_x);
-#else
-  long double retval = 0.0L;
-  unsigned short saved_cw;
-  unsigned short tmp_cw;
-  __asm__ __volatile__ ("fnstcw %0;" : "=m" (saved_cw)); /* save FPU control word */
-  tmp_cw = saved_cw | 0xc00; /* round towards zero */
-  __asm__ __volatile__ ("fldcw %0;" : : "m" (tmp_cw));
-  __asm__ __volatile__ ("frndint;" : "=t" (retval)  : "0" (_x)); /* round towards zero */
-  __asm__ __volatile__ ("fldcw %0;" : : "m" (saved_cw) ); /* restore saved control word */
-  return retval;
-#endif /* defined(_ARM_) || defined(__arm__) || defined(_ARM64_) || defined(__aarch64__) */
-}

lib/libc/musl/src/math/aarch64/trunc.c

@@ -1,7 +0,0 @@
-#include <math.h>
-
-double trunc(double x)
-{
-	__asm__ ("frintz %d0, %d1" : "=w"(x) : "w"(x));
-	return x;
-}

lib/libc/musl/src/math/aarch64/truncf.c

@@ -1,7 +0,0 @@
-#include <math.h>
-
-float truncf(float x)
-{
-	__asm__ ("frintz %s0, %s1" : "=w"(x) : "w"(x));
-	return x;
-}

lib/libc/musl/src/math/i386/floor.s

@@ -1,31 +0,0 @@
-/* zig patch: removed `floorl`, `floorf`, `ceil`, `ceilf` and `ceill` in favor of using zig compiler_rt's implementations */
-
-1:	fstcw 4(%esp)
-	mov 5(%esp),%ah
-	mov %al,5(%esp)
-	fldcw 4(%esp)
-	frndint
-	mov %ah,5(%esp)
-	fldcw 4(%esp)
-	ret
-
-.global trunc
-.type trunc,@function
-trunc:
-	fldl 4(%esp)
-	mov $0xf,%al
-	jmp 1b
-
-.global truncf
-.type truncf,@function
-truncf:
-	flds 4(%esp)
-	mov $0xf,%al
-	jmp 1b
-
-.global truncl
-.type truncl,@function
-truncl:
-	fldt 4(%esp)
-	mov $0xf,%al
-	jmp 1b

lib/libc/musl/src/math/i386/trunc.s

@@ -1 +0,0 @@
-# see floor.s

lib/libc/musl/src/math/i386/truncf.s

@@ -1 +0,0 @@
-# see floor.s

lib/libc/musl/src/math/i386/truncl.s

@@ -1 +0,0 @@
-# see floor.s

lib/libc/musl/src/math/powerpc64/trunc.c

@@ -1,15 +0,0 @@
-#include <math.h>
-
-#ifdef _ARCH_PWR5X
-
-double trunc(double x)
-{
-	__asm__ ("friz %0, %1" : "=d"(x) : "d"(x));
-	return x;
-}
-
-#else
-
-#include "../trunc.c"
-
-#endif

lib/libc/musl/src/math/powerpc64/truncf.c

@@ -1,15 +0,0 @@
-#include <math.h>
-
-#ifdef _ARCH_PWR5X
-
-float truncf(float x)
-{
-	__asm__ ("friz %0, %1" : "=f"(x) : "f"(x));
-	return x;
-}
-
-#else
-
-#include "../truncf.c"
-
-#endif

lib/libc/musl/src/math/s390x/trunc.c

@@ -1,15 +0,0 @@
-#include <math.h>
-
-#if defined(__HTM__) || __ARCH__ >= 9
-
-double trunc(double x)
-{
-	__asm__ ("fidbra %0, 5, %1, 4" : "=f"(x) : "f"(x));
-	return x;
-}
-
-#else
-
-#include "../trunc.c"
-
-#endif

lib/libc/musl/src/math/s390x/truncf.c

@@ -1,15 +0,0 @@
-#include <math.h>
-
-#if defined(__HTM__) || __ARCH__ >= 9
-
-float truncf(float x)
-{
-	__asm__ ("fiebra %0, 5, %1, 4" : "=f"(x) : "f"(x));
-	return x;
-}
-
-#else
-
-#include "../truncf.c"
-
-#endif

lib/libc/musl/src/math/s390x/truncl.c

@@ -1,15 +0,0 @@
-#include <math.h>
-
-#if defined(__HTM__) || __ARCH__ >= 9
-
-long double truncl(long double x)
-{
-	__asm__ ("fixbra %0, 5, %1, 4" : "=f"(x) : "f"(x));
-	return x;
-}
-
-#else
-
-#include "../truncl.c"
-
-#endif

lib/libc/musl/src/math/trunc.c

@@ -1,19 +0,0 @@
-#include "libm.h"
-
-double trunc(double x)
-{
-	union {double f; uint64_t i;} u = {x};
-	int e = (int)(u.i >> 52 & 0x7ff) - 0x3ff + 12;
-	uint64_t m;
-
-	if (e >= 52 + 12)
-		return x;
-	if (e < 12)
-		e = 1;
-	m = -1ULL >> e;
-	if ((u.i & m) == 0)
-		return x;
-	FORCE_EVAL(x + 0x1p120f);
-	u.i &= ~m;
-	return u.f;
-}

lib/libc/musl/src/math/truncf.c

@@ -1,19 +0,0 @@
-#include "libm.h"
-
-float truncf(float x)
-{
-	union {float f; uint32_t i;} u = {x};
-	int e = (int)(u.i >> 23 & 0xff) - 0x7f + 9;
-	uint32_t m;
-
-	if (e >= 23 + 9)
-		return x;
-	if (e < 9)
-		e = 1;
-	m = -1U >> e;
-	if ((u.i & m) == 0)
-		return x;
-	FORCE_EVAL(x + 0x1p120f);
-	u.i &= ~m;
-	return u.f;
-}

lib/libc/musl/src/math/truncl.c

@@ -1,34 +0,0 @@
-#include "libm.h"
-
-#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
-long double truncl(long double x)
-{
-	return trunc(x);
-}
-#elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
-
-static const long double toint = 1/LDBL_EPSILON;
-
-long double truncl(long double x)
-{
-	union ldshape u = {x};
-	int e = u.i.se & 0x7fff;
-	int s = u.i.se >> 15;
-	long double y;
-
-	if (e >= 0x3fff+LDBL_MANT_DIG-1)
-		return x;
-	if (e <= 0x3fff-1) {
-		FORCE_EVAL(x + 0x1p120f);
-		return x*0;
-	}
-	/* y = int(|x|) - |x|, where int(|x|) is an integer neighbor of |x| */
-	if (s)
-		x = -x;
-	y = x + toint - toint - x;
-	if (y > 0)
-		y -= 1;
-	x += y;
-	return s ? -x : x;
-}
-#endif

lib/libc/musl/src/math/x32/floorl.s

@@ -1,17 +0,0 @@
-/* zig patch: removed `floorl` and `ceill` in favor of using zig compiler_rt's implementations */
-
-1:	fstcw 8(%esp)
-	mov 9(%esp),%ah
-	mov %al,9(%esp)
-	fldcw 8(%esp)
-	frndint
-	mov %ah,9(%esp)
-	fldcw 8(%esp)
-	ret
-
-.global truncl
-.type truncl,@function
-truncl:
-	fldt 8(%esp)
-	mov $0xf,%al
-	jmp 1b

lib/libc/musl/src/math/x32/truncl.s

@@ -1 +0,0 @@
-# see floorl.s

lib/libc/musl/src/math/x86_64/floorl.s

@@ -1,17 +0,0 @@
-/* zig patch: removed `floorl` and `ceill` in favor of using zig compiler_rt's implementations */
-
-1:	fstcw 8(%rsp)
-	mov 9(%rsp),%ah
-	mov %al,9(%rsp)
-	fldcw 8(%rsp)
-	frndint
-	mov %ah,9(%rsp)
-	fldcw 8(%rsp)
-	ret
-
-.global truncl
-.type truncl,@function
-truncl:
-	fldt 8(%rsp)
-	mov $0xf,%al
-	jmp 1b

lib/libc/musl/src/math/x86_64/truncl.s

@@ -1 +0,0 @@
-# see floorl.s

src/libs/mingw.zig

@@ -911,7 +911,6 @@ const mingw32_x86_src = [_][]const u8{
     "math" ++ path.sep_str ++ "rintl.c",
     "math" ++ path.sep_str ++ "roundl.c",
     "math" ++ path.sep_str ++ "tgammal.c",
-    "math" ++ path.sep_str ++ "truncl.c",
     "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "_chgsignl.S",
     "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "acoshl.c",
     "math" ++ path.sep_str ++ "x86" ++ path.sep_str ++ "acosl.c",

src/libs/musl.zig

@@ -853,8 +853,6 @@ const src_files = [_][]const u8{
     "musl/src/math/aarch64/roundf.c",
     "musl/src/math/aarch64/sqrt.c",
     "musl/src/math/aarch64/sqrtf.c",
-    "musl/src/math/aarch64/trunc.c",
-    "musl/src/math/aarch64/truncf.c",
     "musl/src/math/acos.c",
     "musl/src/math/acosf.c",
     "musl/src/math/acosh.c",
@@ -954,7 +952,6 @@ const src_files = [_][]const u8{
     "musl/src/math/i386/exp_ld.s",
     "musl/src/math/i386/expl.s",
     "musl/src/math/i386/expm1l.s",
-    "musl/src/math/i386/floor.s",
     "musl/src/math/i386/fmod.c",
     "musl/src/math/i386/fmodf.c",
     "musl/src/math/i386/fmodl.c",
@@ -1000,9 +997,6 @@ const src_files = [_][]const u8{
     "musl/src/math/i386/sqrt.c",
     "musl/src/math/i386/sqrtf.c",
     "musl/src/math/i386/sqrtl.c",
-    "musl/src/math/i386/truncf.s",
-    "musl/src/math/i386/truncl.s",
-    "musl/src/math/i386/trunc.s",
     "musl/src/math/ilogb.c",
     "musl/src/math/ilogbf.c",
     "musl/src/math/ilogbl.c",
@@ -1098,8 +1092,6 @@ const src_files = [_][]const u8{
     "musl/src/math/powerpc64/roundf.c",
     "musl/src/math/powerpc64/sqrt.c",
     "musl/src/math/powerpc64/sqrtf.c",
-    "musl/src/math/powerpc64/trunc.c",
-    "musl/src/math/powerpc64/truncf.c",
     "musl/src/math/powerpc/fma.c",
     "musl/src/math/powerpc/fmaf.c",
     "musl/src/math/powerpc/sqrt.c",
@@ -1157,9 +1149,6 @@ const src_files = [_][]const u8{
     "musl/src/math/s390x/sqrt.c",
     "musl/src/math/s390x/sqrtf.c",
     "musl/src/math/s390x/sqrtl.c",
-    "musl/src/math/s390x/trunc.c",
-    "musl/src/math/s390x/truncf.c",
-    "musl/src/math/s390x/truncl.c",
     "musl/src/math/scalb.c",
     "musl/src/math/scalbf.c",
     "musl/src/math/scalbln.c",
@@ -1196,9 +1185,6 @@ const src_files = [_][]const u8{
     "musl/src/math/tgamma.c",
     "musl/src/math/tgammaf.c",
     "musl/src/math/tgammal.c",
-    "musl/src/math/trunc.c",
-    "musl/src/math/truncf.c",
-    "musl/src/math/truncl.c",
     "musl/src/math/x32/acosl.s",
     "musl/src/math/x32/asinl.s",
     "musl/src/math/x32/atan2l.s",
@@ -1206,7 +1192,6 @@ const src_files = [_][]const u8{
     "musl/src/math/x32/exp2l.s",
     "musl/src/math/x32/expl.s",
     "musl/src/math/x32/expm1l.s",
-    "musl/src/math/x32/floorl.s",
     "musl/src/math/x32/fma.c",
     "musl/src/math/x32/fmaf.c",
     "musl/src/math/x32/fmodl.s",
@@ -1226,7 +1211,6 @@ const src_files = [_][]const u8{
     "musl/src/math/x32/sqrtf.s",
     "musl/src/math/x32/sqrtl.s",
     "musl/src/math/x32/sqrt.s",
-    "musl/src/math/x32/truncl.s",
     "musl/src/math/x86_64/acosl.s",
     "musl/src/math/x86_64/asinl.s",
     "musl/src/math/x86_64/atan2l.s",
@@ -1234,7 +1218,6 @@ const src_files = [_][]const u8{
     "musl/src/math/x86_64/exp2l.s",
     "musl/src/math/x86_64/expl.s",
     "musl/src/math/x86_64/expm1l.s",
-    "musl/src/math/x86_64/floorl.s",
     "musl/src/math/x86_64/fma.c",
     "musl/src/math/x86_64/fmaf.c",
     "musl/src/math/x86_64/fmodl.c",
@@ -1255,7 +1238,6 @@ const src_files = [_][]const u8{
     "musl/src/math/x86_64/sqrt.c",
     "musl/src/math/x86_64/sqrtf.c",
     "musl/src/math/x86_64/sqrtl.c",
-    "musl/src/math/x86_64/truncl.s",
     "musl/src/misc/a64l.c",
     "musl/src/misc/basename.c",
     "musl/src/misc/dirname.c",

src/libs/wasi_libc.zig

@@ -886,7 +886,6 @@ const libc_top_half_src_files = [_][]const u8{
     "musl/src/math/tgamma.c",
     "musl/src/math/tgammaf.c",
     "musl/src/math/tgammal.c",
-    "musl/src/math/truncl.c",
     "musl/src/misc/a64l.c",
     "musl/src/misc/basename.c",
     "musl/src/misc/dirname.c",