From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-3.1 required=5.0 tests=HEADER_FROM_DIFFERENT_DOMAINS, MAILING_LIST_MULTI,RCVD_IN_DNSWL_MED,RCVD_IN_MSPIKE_H4, RCVD_IN_MSPIKE_WL,T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.4 Received: from second.openwall.net (second.openwall.net [193.110.157.125]) by inbox.vuxu.org (Postfix) with SMTP id 5ABF6261B2 for ; Wed, 12 Jun 2024 17:31:23 +0200 (CEST) Received: (qmail 19556 invoked by uid 550); 12 Jun 2024 15:31:19 -0000 Mailing-List: contact musl-help@lists.openwall.com; run by ezmlm Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: List-ID: Reply-To: musl@lists.openwall.com Received: (qmail 19496 invoked from network); 12 Jun 2024 15:31:18 -0000 X-QQ-mid: bizesmtp78t1718206267tkp5xz9x X-QQ-Originating-IP: eJfKozBAEBxgXskZBW/fDLZc5mltCW5/jSc0joVaGAQ= X-QQ-SSF: 0000000000000000000000000000000 X-QQ-GoodBg: 0 X-BIZMAIL-ID: 17319522710507258375 From: Meng Zhuo To: musl@lists.openwall.com Date: Wed, 12 Jun 2024 23:31:05 +0800 Message-Id: <20240612153105.335451-1-mzh@mzh.io> X-Mailer: git-send-email 2.39.2 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-QQ-SENDSIZE: 520 Feedback-ID: bizesmtp:mzh.io:qybglogicsvrgz:qybglogicsvrgz5a-1 Subject: [musl] [PATCH v3] math: add riscv64 round/roundf --- v2 -> v3: * use x + x to check +-inf and NaN --- v1 -> v2: * drop ±inf check and use fabs as Rich suggested --- src/math/riscv64/round.c | 21 +++++++++++++++++++++ src/math/riscv64/roundf.c | 21 +++++++++++++++++++++ 2 files changed, 42 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..28d05aed --- /dev/null +++ b/src/math/riscv64/round.c @@ -0,0 +1,21 @@ +#include + +#if __riscv_flen >= 64 + +double round(double x) +{ + if (isnan(x + x)) return x; // if x is +-inf or nan + if (fabs(x) >= 0x1p54) return 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)); + 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..a42b00d9 --- /dev/null +++ b/src/math/riscv64/roundf.c @@ -0,0 +1,21 @@ +#include + +#if __riscv_flen >= 32 + +float roundf(float x) +{ + if (isnan(x + x)) return x; + if (fabsf(x) >= 0x1p25) return x; + 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