|
|
Message-ID: <20240612165004.GI3766212@port70.net>
Date: Wed, 12 Jun 2024 18:50:04 +0200
From: Szabolcs Nagy <nsz@...t70.net>
To: Meng Zhuo <mzh@....io>
Cc: musl@...ts.openwall.com
Subject: Re: [PATCH v3] math: add riscv64 round/roundf
* Meng Zhuo <mzh@....io> [2024-06-13 00:06:12 +0800]:
> ---
> First of all, sorry for any inconvenience.
> This is my first time try to contribute with mail list.
> ---
> v1 -> v3:
> * using isfinite to check NaN,+-inf and in range without raising INVALID
> * inlined copysign(f)
> ---
> src/math/riscv64/round.c | 20 ++++++++++++++++++++
> src/math/riscv64/roundf.c | 20 ++++++++++++++++++++
> 2 files changed, 40 insertions(+)
> create mode 100644 src/math/riscv64/round.c
> create mode 100644 src/math/riscv64/roundf.c
>
> diff --git a/src/math/riscv64/round.c b/src/math/riscv64/round.c
> new file mode 100644
> index 00000000..6d91c093
> --- /dev/null
> +++ b/src/math/riscv64/round.c
> @@ -0,0 +1,20 @@
> +#include <math.h>
> +
> +#if __riscv_flen >= 64
> +
> +double round(double x)
> +{
> + if (!isfinite(x)) return x;
!isfinite(x) && fabs(x) >= 0x1p52
otherwise n can overflow below.
(note that the check can be a single cmp+branch on the bit representation of x)
> + double tmp;
> + long long n;
> + __asm__ ("fcvt.l.d %0, %1, rmm" : "=r"(n) : "f"(x));
> + __asm__ ("fcvt.d.l %0, %1" : "=f"(tmp) : "r"(n));
> + __asm__ ("fsgnj.d %0, %1, %2" : "=f"(x) : "f"(tmp), "f"(x));
i'd add a comment that the sign bit is only copied to handle round(-0.0)
> + return x;
> +}
> +
> +#else
> +
> +#include "../round.c"
> +
> +#endif
> diff --git a/src/math/riscv64/roundf.c b/src/math/riscv64/roundf.c
> new file mode 100644
> index 00000000..e67e791f
> --- /dev/null
> +++ b/src/math/riscv64/roundf.c
> @@ -0,0 +1,20 @@
> +#include <math.h>
> +
> +#if __riscv_flen >= 32
> +
> +float roundf(float x)
> +{
> + if (!isfinite(x)) return x;
&& fabs(x) >= 0x1p23
> + float tmp;
> + long n;
> + __asm__ ("fcvt.w.s %0, %1, rmm" : "=r"(n) : "f"(x));
> + __asm__ ("fcvt.s.w %0, %1" : "=f"(tmp) : "r"(n));
> + __asm__ ("fsgnj.s %0, %1, %2" : "=f"(x) : "f"(tmp), "f"(x));
> + return x;
> +}
> +
> +#else
> +
> +#include "../roundf.c"
> +
> +#endif
> --
> 2.39.2
Powered by blists - more mailing lists
Confused about mailing lists and their use? Read about mailing lists on Wikipedia and check out these guidelines on proper formatting of your messages.