From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-pg1-x542.google.com (mail-pg1-x542.google.com [IPv6:2607:f8b0:4864:20::542]) by sourceware.org (Postfix) with ESMTPS id 4A1CD388C030 for ; Wed, 3 Jun 2020 23:37:03 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 4A1CD388C030 Received: by mail-pg1-x542.google.com with SMTP id w20so2666884pga.6 for ; Wed, 03 Jun 2020 16:37:03 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references; bh=iTm9rkJvNpMMBDMX8N+ZA0XGbem0rGx0cUWHQe0a668=; b=krm+cv+55rB70qh1cR7619SVGvBoBdTJMN4SXrXDs51FZwVr/LknXjefjngMXY2BV/ Q+s8M96qSTTINwY3JBBMD5/ncdWcetFXB/jEJRPxqCr8csF2JKVW50gx2FY1jB6ZoVQJ LYqCL8iN2uR8lgw6c8lUowdGge/Vd01uAxtwf6AbqJlc4wluHBt0HfCDOr9fZZPdTRAG mSQjjsfK7Uuragw3gRmd49P+U/Uigv25FztXl5LNt6YWIUCj+wwNrkk1IOSP5cE7QHxl FRM+mUpb5xUM9C99NpSDT9Ywog9jFcYOiZmr34nJYLKpoo5ckZKa8ly9Ykyy6elCI2x/ BRbg== X-Gm-Message-State: AOAM531/KF7reROGeCg32zo2u7aHaOCSlNgpGUhZvbz+MfANSZaJPLr5 1vK67lcbb5kRsLnr+75l9F1t4/v+8plINA== X-Google-Smtp-Source: ABdhPJz3MQ7TIq6IYBEAz0OLgjf6QLoqFbVBmqJDMr005/vf4I8XjKgzJcdIqVoCyjx+s35JkfTjRA== X-Received: by 2002:a62:8487:: with SMTP id k129mr1504595pfd.296.1591227421787; Wed, 03 Jun 2020 16:37:01 -0700 (PDT) Received: from localhost.localdomain ([117.247.219.38]) by smtp.gmail.com with ESMTPSA id g17sm2430142pgg.43.2020.06.03.16.36.59 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Wed, 03 Jun 2020 16:37:01 -0700 (PDT) From: Eshan dhawan To: newlib@sourceware.org Subject: [PATCH 1/1] SPARC fenv support Date: Thu, 4 Jun 2020 05:06:27 +0530 Message-Id: <20200603233627.31827-2-eshandhawan51@gmail.com> X-Mailer: git-send-email 2.17.1 In-Reply-To: <20200603233627.31827-1-eshandhawan51@gmail.com> References: <20200603233627.31827-1-eshandhawan51@gmail.com> X-Spam-Status: No, score=-4.3 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, FREEMAIL_ENVFROM_END_DIGIT, FREEMAIL_FROM, GIT_PATCH_0, RCVD_IN_ABUSEAT, RCVD_IN_BARRACUDACENTRAL, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: newlib@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Newlib mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 03 Jun 2020 23:37:06 -0000 Signed-off-by: Eshan dhawan --- newlib/configure.host | 1 + newlib/libc/machine/sparc/sys/fenv.h | 85 +++++ newlib/libm/machine/configure.in | 1 + newlib/libm/machine/sparc/Makefile.am | 21 ++ newlib/libm/machine/sparc/configure.in | 11 + newlib/libm/machine/sparc/feclearexcept.c | 7 + newlib/libm/machine/sparc/fegetenv.c | 7 + newlib/libm/machine/sparc/fegetexceptflag.c | 7 + newlib/libm/machine/sparc/fegetround.c | 7 + newlib/libm/machine/sparc/feholdexcept.c | 7 + newlib/libm/machine/sparc/fenv.c | 350 ++++++++++++++++++++ newlib/libm/machine/sparc/feraiseexcept.c | 7 + newlib/libm/machine/sparc/fesetenv.c | 7 + newlib/libm/machine/sparc/fesetexceptflag.c | 7 + newlib/libm/machine/sparc/fesetround.c | 7 + newlib/libm/machine/sparc/fetestexcept.c | 7 + newlib/libm/machine/sparc/feupdateenv.c | 7 + 17 files changed, 546 insertions(+) create mode 100644 newlib/libc/machine/sparc/sys/fenv.h create mode 100644 newlib/libm/machine/sparc/Makefile.am create mode 100644 newlib/libm/machine/sparc/configure.in create mode 100644 newlib/libm/machine/sparc/feclearexcept.c create mode 100644 newlib/libm/machine/sparc/fegetenv.c create mode 100644 newlib/libm/machine/sparc/fegetexceptflag.c create mode 100644 newlib/libm/machine/sparc/fegetround.c create mode 100644 newlib/libm/machine/sparc/feholdexcept.c create mode 100644 newlib/libm/machine/sparc/fenv.c create mode 100644 newlib/libm/machine/sparc/feraiseexcept.c create mode 100644 newlib/libm/machine/sparc/fesetenv.c create mode 100644 newlib/libm/machine/sparc/fesetexceptflag.c create mode 100644 newlib/libm/machine/sparc/fesetround.c create mode 100644 newlib/libm/machine/sparc/fetestexcept.c create mode 100644 newlib/libm/machine/sparc/feupdateenv.c diff --git a/newlib/configure.host b/newlib/configure.host index a84c0c80a..f31f8bd1a 100644 --- a/newlib/configure.host +++ b/newlib/configure.host @@ -321,6 +321,7 @@ case "${host_cpu}" in machine_dir=sh ;; sparc*) + libm_machine_dir=sparc machine_dir=sparc # FIXME: Might wish to make MALLOC_ALIGNMENT more generic. newlib_cflags="${newlib_cflags} -DMALLOC_ALIGNMENT=8" diff --git a/newlib/libc/machine/sparc/sys/fenv.h b/newlib/libc/machine/sparc/sys/fenv.h new file mode 100644 index 000000000..0d8fb13ea --- /dev/null +++ b/newlib/libc/machine/sparc/sys/fenv.h @@ -0,0 +1,85 @@ +/* $NetBSD: fenv.h,v 1.2 2017/01/14 12:00:13 martin Exp $ */ + +/*- + * Copyright (c) 2004-2005 David Schultz + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * $FreeBSD$ + */ + +#ifndef _SYS_FENV_H_ +#define _SYS_FENV_H_ + +#include + +#ifdef __arch64__ +typedef uint64_t fenv_t; +typedef uint64_t fexcept_t; +#else +typedef uint32_t fenv_t; +typedef uint32_t fexcept_t; +#endif + +/* + * Exception flags + * + * Symbols are defined in such a way, to correspond to the accrued + * exception bits (aexc) fields of FSR. + */ +#define FE_INEXACT 0x00000020 /* 0000100000 */ +#define FE_DIVBYZERO 0x00000040 /* 0001000000 */ +#define FE_UNDERFLOW 0x00000080 /* 0010000000 */ +#define FE_OVERFLOW 0x00000100 /* 0100000000 */ +#define FE_INVALID 0x00000200 /* 1000000000 */ + +#define FE_ALL_EXCEPT (FE_DIVBYZERO | FE_INEXACT | \ + FE_INVALID | FE_OVERFLOW | FE_UNDERFLOW) + +/* + * Rounding modes + * + * We can't just use the hardware bit values here, because that would + * make FE_UPWARD and FE_DOWNWARD negative, which is not allowed. + */ +#define FE_TONEAREST 0 /* round to nearest representable number */ +#define FE_TOWARDZERO 1 /* round to zero (truncate) */ +#define FE_UPWARD 2 /* round toward positive infinity */ +#define FE_DOWNWARD 3 /* round toward negative infinity */ +#define _ROUND_MASK (FE_TONEAREST | FE_DOWNWARD | \ + FE_UPWARD | FE_TOWARDZERO) +#define _ROUND_SHIFT 30 + + + +/* Default floating-point environment */ +extern const fenv_t *_fe_dfl_env; +#define FE_DFL_ENV _fe_dfl_env + +/* We need to be able to map status flag positions to mask flag positions */ +#define _FPUSW_SHIFT 18 +#define _ENABLE_MASK (FE_ALL_EXCEPT << _FPUSW_SHIFT) + + + +#endif /* !_SYS_FENV_H_ */ diff --git a/newlib/libm/machine/configure.in b/newlib/libm/machine/configure.in index d4635214a..b8cf52bef 100644 --- a/newlib/libm/machine/configure.in +++ b/newlib/libm/machine/configure.in @@ -33,6 +33,7 @@ if test -n "${libm_machine_dir}"; then spu) AC_CONFIG_SUBDIRS(spu) ;; riscv) AC_CONFIG_SUBDIRS(riscv) ;; x86_64) AC_CONFIG_SUBDIRS(x86_64) ;; + sparc) AC_CONFIG_SUBDIRS(sparc) ;; esac; if test "${use_libtool}" = "yes"; then machlib=${libm_machine_dir}/lib${libm_machine_dir}.${aext} diff --git a/newlib/libm/machine/sparc/Makefile.am b/newlib/libm/machine/sparc/Makefile.am new file mode 100644 index 000000000..34157760b --- /dev/null +++ b/newlib/libm/machine/sparc/Makefile.am @@ -0,0 +1,21 @@ +## Process this file with automake to generate Makefile.in + +INCLUDES = -I $(newlib_basedir)/../newlib/libm/common $(NEWLIB_CFLAGS) \ + $(CROSS_CFLAGS) $(TARGET_CFLAGS) + +LIB_SOURCES = \ + feclearexcept.c fegetenv.c fegetexceptflag.c \ + fegetround.c feholdexcept.c feraiseexcept.c fesetenv.c \ + fesetexceptflag.c fesetround.c fetestexcept.c feupdateenv.c \ + fenv.c + +noinst_LIBRARIES = lib.a +lib_a_SOURCES = $(LIB_SOURCES) +lib_a_CFLAGS = $(AM_CFLAGS) +lib_a_CCASFLAGS = $(AM_CCASFLAGS) +noinst_DATA = + +include $(srcdir)/../../../Makefile.shared + +ACLOCAL_AMFLAGS = -I ../../.. -I ../../../.. +CONFIG_STATUS_DEPENDENCIES = $(newlib_basedir)/configure.host diff --git a/newlib/libm/machine/sparc/configure.in b/newlib/libm/machine/sparc/configure.in new file mode 100644 index 000000000..7a22fa31c --- /dev/null +++ b/newlib/libm/machine/sparc/configure.in @@ -0,0 +1,11 @@ + +AC_PREREQ(2.59) +AC_INIT([newlib],[NEWLIB_VERSION]) +AC_CONFIG_SRCDIR([Makefile.am]) + +AC_CONFIG_AUX_DIR(../../../..) + +NEWLIB_CONFIGURE(../../..) + +AC_CONFIG_FILES([Makefile]) +AC_OUTPUT diff --git a/newlib/libm/machine/sparc/feclearexcept.c b/newlib/libm/machine/sparc/feclearexcept.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/feclearexcept.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fegetenv.c b/newlib/libm/machine/sparc/fegetenv.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/fegetenv.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fegetexceptflag.c b/newlib/libm/machine/sparc/fegetexceptflag.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/fegetexceptflag.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fegetround.c b/newlib/libm/machine/sparc/fegetround.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/fegetround.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/feholdexcept.c b/newlib/libm/machine/sparc/feholdexcept.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/feholdexcept.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fenv.c b/newlib/libm/machine/sparc/fenv.c new file mode 100644 index 000000000..127898021 --- /dev/null +++ b/newlib/libm/machine/sparc/fenv.c @@ -0,0 +1,350 @@ +/* $NetBSD: fenv.c,v 1.2 2017/03/22 23:11:09 chs Exp $ */ + +/*- + * Copyright (c) 2004-2005 David Schultz + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + */ +#include +__RCSID("$NetBSD: fenv.c,v 1.2 2017/03/22 23:11:09 chs Exp $"); + + + +#include +#include + +#define _DIAGASSERT(x) assert(x) + +#ifdef __weak_alias +__weak_alias(feclearexcept,_feclearexcept) +__weak_alias(fedisableexcept,_fedisableexcept) +__weak_alias(feenableexcept,_feenableexcept) +__weak_alias(fegetenv,_fegetenv) +__weak_alias(fegetexcept,_fegetexcept) +__weak_alias(fegetexceptflag,_fegetexceptflag) +__weak_alias(fegetround,_fegetround) +__weak_alias(feholdexcept,_feholdexcept) +__weak_alias(feraiseexcept,_feraiseexcept) +__weak_alias(fesetenv,_fesetenv) +__weak_alias(fesetexceptflag,_fesetexceptflag) +__weak_alias(fesetround,_fesetround) +__weak_alias(fetestexcept,_fetestexcept) +__weak_alias(feupdateenv,_feupdateenv) +#endif + +/* Load floating-point state register (32bits) */ +#define __ldfsr(__r) __asm__ __volatile__ \ + ("ld %0, %%fsr" : : "m" (__r)) + +/* Save floating-point state register (32bits) */ +#define __stfsr(__r) __asm__ __volatile__ \ + ("st %%fsr, %0" : "=m" (*(__r))) + +/* + * The feclearexcept() function clears the supported floating-point exceptions + * represented by `excepts'. + */ +int +feclearexcept(int excepts) +{ + fexcept_t r; + int ex; + + _DIAGASSERT((excepts & ~FE_ALL_EXCEPT) == 0); + + ex = excepts & FE_ALL_EXCEPT; + + __stfsr(&r); + r &= ~ex; + __ldfsr(r); + + /* Success */ + return 0; +} + +/* + * The fegetexceptflag() function stores an implementation-defined + * representation of the states of the floating-point status flags indicated + * by the argument excepts in the object pointed to by the argument flagp. + */ +int +fegetexceptflag(fexcept_t *flagp, int excepts) +{ + fexcept_t r; + int ex; + + _DIAGASSERT(flagp != NULL); + _DIAGASSERT((excepts & ~FE_ALL_EXCEPT) == 0); + + ex = excepts & FE_ALL_EXCEPT; + + __stfsr(&r); + *flagp = r & ex; + + /* Success */ + return 0; +} + + +/* + * This function sets the floating-point status flags indicated by the argument + * `excepts' to the states stored in the object pointed to by `flagp'. It does + * NOT raise any floating-point exceptions, but only sets the state of the flags. + */ +int +fesetexceptflag(const fexcept_t *flagp, int excepts) +{ + fexcept_t r; + int ex; + + _DIAGASSERT(flagp != NULL); + _DIAGASSERT((excepts & ~FE_ALL_EXCEPT) == 0); + + ex = excepts & FE_ALL_EXCEPT; + + __stfsr(&r); + r &= ~ex; + r |= *flagp & ex; + __ldfsr(r); + + /* Success */ + return 0; +} + +/* + * The feraiseexcept() function raises the supported floating-point exceptions + * represented by the argument `excepts'. + * + * The order in which these floating-point exceptions are raised is unspecified + * (by the standard). + */ +int +feraiseexcept(int excepts) +{ + volatile double d; + int ex; + + _DIAGASSERT((excepts & ~FE_ALL_EXCEPT) == 0); + + ex = excepts & FE_ALL_EXCEPT; + + /* + * With a compiler that supports the FENV_ACCESS pragma properly, simple + * expressions like '0.0 / 0.0' should be sufficient to generate traps. + * Unfortunately, we need to bring a volatile variable into the equation + * to prevent incorrect optimizations. + */ + if (ex & FE_INVALID) { + d = 0.0; + d = 0.0 / d; + } + if (ex & FE_DIVBYZERO) { + d = 0.0; + d = 1.0 / d; + } + if (ex & FE_OVERFLOW) { + d = 0x1.ffp1023; + d *= 2.0; + } + if (ex & FE_UNDERFLOW) { + d = 0x1p-1022; + d /= 0x1p1023; + } + if (ex & FE_INEXACT) { + d = 0x1p-1022; + d += 1.0; + } + + /* Success */ + return 0; +} + +/* + * The fetestexcept() function determines which of a specified subset of the + * floating-point exception flags are currently set. The `excepts' argument + * specifies the floating-point status flags to be queried. + */ +int +fetestexcept(int excepts) +{ + fexcept_t r; + + _DIAGASSERT((excepts & ~FE_ALL_EXCEPT) == 0); + + __stfsr(&r); + + return r & (excepts & FE_ALL_EXCEPT); +} + +/* + * The fegetround() function gets the current rounding direction. + */ +int +fegetround(void) +{ + fenv_t r; + + __stfsr(&r); + + return (r >> _ROUND_SHIFT) & _ROUND_MASK; +} + +/* + * The fesetround() function establishes the rounding direction represented by + * its argument `round'. If the argument is not equal to the value of a rounding + * direction macro, the rounding direction is not changed. + */ +int +fesetround(int round) +{ + fenv_t r; + + _DIAGASSERT((round & ~_ROUND_MASK) == 0); + if (round & ~_ROUND_MASK) + return -1; + + __stfsr(&r); + r &= ~(_ROUND_MASK << _ROUND_SHIFT); + r |= round << _ROUND_SHIFT; + __ldfsr(r); + + /* Success */ + return 0; +} + +/* + * The fegetenv() function attempts to store the current floating-point + * environment in the object pointed to by envp. + */ +int +fegetenv(fenv_t *envp) +{ + _DIAGASSERT(envp != NULL); + + __stfsr(envp); + + /* Success */ + return 0; +} + + +/* + * The feholdexcept() function saves the current floating-point environment + * in the object pointed to by envp, clears the floating-point status flags, and + * then installs a non-stop (continue on floating-point exceptions) mode, if + * available, for all floating-point exceptions. + */ +int +feholdexcept(fenv_t *envp) +{ + fenv_t r; + + _DIAGASSERT(envp != NULL); + + __stfsr(&r); + *envp = r; + r &= ~(FE_ALL_EXCEPT | _ENABLE_MASK); + __ldfsr(r); + + /* Success */ + return 0; +} + +/* + * The fesetenv() function attempts to establish the floating-point environment + * represented by the object pointed to by envp. The argument `envp' points + * to an object set by a call to fegetenv() or feholdexcept(), or equal a + * floating-point environment macro. The fesetenv() function does not raise + * floating-point exceptions, but only installs the state of the floating-point + * status flags represented through its argument. + */ +int +fesetenv(const fenv_t *envp) +{ + _DIAGASSERT(envp != NULL); + + __ldfsr(*envp); + + /* Success */ + return 0; +} + + +/* + * The feupdateenv() function saves the currently raised floating-point + * exceptions in its automatic storage, installs the floating-point environment + * represented by the object pointed to by `envp', and then raises the saved + * floating-point exceptions. The argument `envp' shall point to an object set + * by a call to feholdexcept() or fegetenv(), or equal a floating-point + * environment macro. + */ +int +feupdateenv(const fenv_t *envp) +{ + fexcept_t r; + + _DIAGASSERT(envp != NULL); + + __stfsr(&r); + __ldfsr(*envp); + + _DIAGASSERT((r & ~FE_ALL_EXCEPT) == 0); + feraiseexcept(r & FE_ALL_EXCEPT); + + /* Success */ + return 0; +} + +/* + * The following functions are extentions to the standard + */ +int +feenableexcept(int mask) +{ + fenv_t old_r, new_r; + + __stfsr(&old_r); + new_r = old_r | ((mask & FE_ALL_EXCEPT) << _FPUSW_SHIFT); + __ldfsr(new_r); + + return (old_r >> _FPUSW_SHIFT) & FE_ALL_EXCEPT; +} + +int +fedisableexcept(int mask) +{ + fenv_t old_r, new_r; + + __stfsr(&old_r); + new_r = old_r & ~((mask & FE_ALL_EXCEPT) << _FPUSW_SHIFT); + __ldfsr(new_r); + + return (old_r >> _FPUSW_SHIFT) & FE_ALL_EXCEPT; +} + +int +fegetexcept(void) +{ + fenv_t r; + + __stfsr(&r); + return (r & _ENABLE_MASK) >> _FPUSW_SHIFT; +} diff --git a/newlib/libm/machine/sparc/feraiseexcept.c b/newlib/libm/machine/sparc/feraiseexcept.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/feraiseexcept.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fesetenv.c b/newlib/libm/machine/sparc/fesetenv.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/fesetenv.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fesetexceptflag.c b/newlib/libm/machine/sparc/fesetexceptflag.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/fesetexceptflag.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fesetround.c b/newlib/libm/machine/sparc/fesetround.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/fesetround.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/fetestexcept.c b/newlib/libm/machine/sparc/fetestexcept.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/fetestexcept.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" diff --git a/newlib/libm/machine/sparc/feupdateenv.c b/newlib/libm/machine/sparc/feupdateenv.c new file mode 100644 index 000000000..8cbee7771 --- /dev/null +++ b/newlib/libm/machine/sparc/feupdateenv.c @@ -0,0 +1,7 @@ +/* + * SPDX-License-Identifier: BSD-2-Clause + * + * (c) Copyright 2019 Joel Sherrill + */ + +#include "../../fenv/fenv_stub.c" -- 2.17.1