+++ /dev/null
-/* Test for fenv inline implementations.
- Copyright (C) 2015-2020 Free Software Foundation, Inc.
- This file is part of the GNU C Library.
-
- The GNU C Library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
-
- The GNU C Library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
-
- You should have received a copy of the GNU Lesser General Public
- License along with the GNU C Library; if not, see
- <https://www.gnu.org/licenses/>. */
-
-#ifndef _GNU_SOURCE
-# define _GNU_SOURCE
-#endif
-
-/* To make sure the fenv inline function are used. */
-#undef __NO_MATH_INLINES
-
-#include <fenv.h>
-#include <stdio.h>
-#include <math-tests.h>
-
-/*
- Since not all architectures might define all exceptions, we define
- a private set and map accordingly.
-*/
-#define NO_EXC 0
-#define INEXACT_EXC 0x1
-#define DIVBYZERO_EXC 0x2
-#define UNDERFLOW_EXC 0x04
-#define OVERFLOW_EXC 0x08
-#define INVALID_EXC 0x10
-#define ALL_EXC \
- (INEXACT_EXC | DIVBYZERO_EXC | UNDERFLOW_EXC | OVERFLOW_EXC \
- | INVALID_EXC)
-static int count_errors;
-
-#if FE_ALL_EXCEPT
-static void
-test_single_exception_fp_int (int exception,
- int exc_flag,
- int fe_flag,
- const char *flag_name)
-{
- if (exception & exc_flag)
- {
- if (fetestexcept (fe_flag))
- printf (" Pass: Exception \"%s\" is set\n", flag_name);
- else
- {
- printf (" Fail: Exception \"%s\" is not set\n", flag_name);
- ++count_errors;
- }
- }
- else
- {
- if (fetestexcept (fe_flag))
- {
- printf (" Fail: Exception \"%s\" is set\n", flag_name);
- ++count_errors;
- }
- else
- printf (" Pass: Exception \"%s\" is not set\n", flag_name);
- }
-}
-/* Test whether a given exception was raised. */
-static void
-test_single_exception_fp_double (int exception,
- int exc_flag,
- double fe_flag,
- const char *flag_name)
-{
- if (exception & exc_flag)
- {
- if (fetestexcept (fe_flag))
- printf (" Pass: Exception \"%s\" is set\n", flag_name);
- else
- {
- printf (" Fail: Exception \"%s\" is not set\n", flag_name);
- ++count_errors;
- }
- }
- else
- {
- if (fetestexcept (fe_flag))
- {
- printf (" Fail: Exception \"%s\" is set\n", flag_name);
- ++count_errors;
- }
- else
- printf (" Pass: Exception \"%s\" is not set\n", flag_name);
- }
-}
-#endif
-
-static void
-test_exceptions (const char *test_name, int exception)
-{
- printf ("Test: %s\n", test_name);
-#ifdef FE_DIVBYZERO
- test_single_exception_fp_double (exception, DIVBYZERO_EXC, FE_DIVBYZERO,
- "DIVBYZERO");
-#endif
-#ifdef FE_INVALID
- test_single_exception_fp_double (exception, INVALID_EXC, FE_INVALID,
- "INVALID");
-#endif
-#ifdef FE_INEXACT
- test_single_exception_fp_double (exception, INEXACT_EXC, FE_INEXACT,
- "INEXACT");
-#endif
-#ifdef FE_UNDERFLOW
- test_single_exception_fp_double (exception, UNDERFLOW_EXC, FE_UNDERFLOW,
- "UNDERFLOW");
-#endif
-#ifdef FE_OVERFLOW
- test_single_exception_fp_double (exception, OVERFLOW_EXC, FE_OVERFLOW,
- "OVERFLOW");
-#endif
-}
-
-static void
-test_exceptionflag (void)
-{
- printf ("Test: fegetexceptionflag (FE_ALL_EXCEPT)\n");
-#if FE_ALL_EXCEPT
- fexcept_t excepts;
-
- feclearexcept (FE_ALL_EXCEPT);
-
- feraiseexcept (FE_INVALID);
- fegetexceptflag (&excepts, FE_ALL_EXCEPT);
-
- feclearexcept (FE_ALL_EXCEPT);
- feraiseexcept (FE_OVERFLOW | FE_INEXACT);
-
- fesetexceptflag (&excepts, FE_ALL_EXCEPT);
-
- test_single_exception_fp_int (INVALID_EXC, INVALID_EXC, FE_INVALID,
- "INVALID (int)");
- test_single_exception_fp_int (INVALID_EXC, OVERFLOW_EXC, FE_OVERFLOW,
- "OVERFLOW (int)");
- test_single_exception_fp_int (INVALID_EXC, INEXACT_EXC, FE_INEXACT,
- "INEXACT (int)");
-
- /* Same test, but using double as argument */
- feclearexcept (FE_ALL_EXCEPT);
-
- feraiseexcept (FE_INVALID);
- fegetexceptflag (&excepts, (double)FE_ALL_EXCEPT);
-
- feclearexcept (FE_ALL_EXCEPT);
- feraiseexcept (FE_OVERFLOW | FE_INEXACT);
-
- fesetexceptflag (&excepts, (double)FE_ALL_EXCEPT);
-
- test_single_exception_fp_double (INVALID_EXC, INVALID_EXC, FE_INVALID,
- "INVALID (double)");
- test_single_exception_fp_double (INVALID_EXC, OVERFLOW_EXC, FE_OVERFLOW,
- "OVERFLOW (double)");
- test_single_exception_fp_double (INVALID_EXC, INEXACT_EXC, FE_INEXACT,
- "INEXACT (double)");
-#endif
-}
-
-static void
-test_fesetround (void)
-{
-#if defined FE_TONEAREST && defined FE_TOWARDZERO
- int res1;
- int res2;
-
- printf ("Tests for fesetround\n");
-
- /* The fesetround should not itself cause the test to fail, however it
- should either succeed for both 'int' and 'double' argument, or fail
- for both. */
- res1 = fesetround ((int) FE_TOWARDZERO);
- res2 = fesetround ((double) FE_TOWARDZERO);
- if (res1 != res2)
- {
- printf ("fesetround (FE_TOWARDZERO) failed: %d, %d\n", res1, res2);
- ++count_errors;
- }
-
- res1 = fesetround ((int) FE_TONEAREST);
- res2 = fesetround ((double) FE_TONEAREST);
- if (res1 != res2)
- {
- printf ("fesetround (FE_TONEAREST) failed: %d, %d\n", res1, res2);
- ++count_errors;
- }
-#endif
-}
-
-#if FE_ALL_EXCEPT
-/* Tests for feenableexcept/fedisableexcept. */
-static void
-feenable_test (const char *flag_name, fexcept_t fe_exc)
-{
- int fe_exci = fe_exc;
- double fe_excd = fe_exc;
- int excepts;
-
- /* First disable all exceptions. */
- if (fedisableexcept (FE_ALL_EXCEPT) == -1)
- {
- printf ("Test: fedisableexcept (FE_ALL_EXCEPT) failed\n");
- ++count_errors;
- /* If this fails, the other tests don't make sense. */
- return;
- }
-
- /* Test for inline macros using integer argument. */
- excepts = feenableexcept (fe_exci);
- if (!EXCEPTION_ENABLE_SUPPORTED (fe_exci) && excepts == -1)
- {
- printf ("Test: not testing feenableexcept, it isn't implemented.\n");
- return;
- }
- if (excepts == -1)
- {
- printf ("Test: feenableexcept (%s) failed\n", flag_name);
- ++count_errors;
- return;
- }
- if (excepts != 0)
- {
- printf ("Test: feenableexcept (%s) failed, return should be 0, is %x\n",
- flag_name, excepts);
- ++count_errors;
- }
-
- /* And now disable the exception again. */
- excepts = fedisableexcept (fe_exc);
- if (excepts == -1)
- {
- printf ("Test: fedisableexcept (%s) failed\n", flag_name);
- ++count_errors;
- return;
- }
- if (excepts != fe_exc)
- {
- printf ("Test: fedisableexcept (%s) failed, return should be 0x%x, is 0x%x\n",
- flag_name, (unsigned int)fe_exc, excepts);
- ++count_errors;
- }
-
- /* Test for inline macros using double argument. */
- excepts = feenableexcept (fe_excd);
- if (!EXCEPTION_ENABLE_SUPPORTED (fe_excd) && excepts == -1)
- {
- printf ("Test: not testing feenableexcept, it isn't implemented.\n");
- return;
- }
- if (excepts == -1)
- {
- printf ("Test: feenableexcept (%s) failed\n", flag_name);
- ++count_errors;
- return;
- }
- if (excepts != 0)
- {
- printf ("Test: feenableexcept (%s) failed, return should be 0, is %x\n",
- flag_name, excepts);
- ++count_errors;
- }
-
- /* And now disable the exception again. */
- excepts = fedisableexcept (fe_exc);
- if (excepts == -1)
- {
- printf ("Test: fedisableexcept (%s) failed\n", flag_name);
- ++count_errors;
- return;
- }
- if (excepts != fe_exc)
- {
- printf ("Test: fedisableexcept (%s) failed, return should be 0x%x, is 0x%x\n",
- flag_name, (unsigned int)fe_exc, excepts);
- ++count_errors;
- }
-}
-#endif
-
-static void
-test_feenabledisable (void)
-{
- printf ("Tests for feenableexcepts/fedisableexcept\n");
-
- /* We might have some exceptions still set. */
- feclearexcept (FE_ALL_EXCEPT);
-
-#ifdef FE_DIVBYZERO
- feenable_test ("FE_DIVBYZERO", FE_DIVBYZERO);
-#endif
-#ifdef FE_INVALID
- feenable_test ("FE_INVALID", FE_INVALID);
-#endif
-#ifdef FE_INEXACT
- feenable_test ("FE_INEXACT", FE_INEXACT);
-#endif
-#ifdef FE_UNDERFLOW
- feenable_test ("FE_UNDERFLOW", FE_UNDERFLOW);
-#endif
-#ifdef FE_OVERFLOW
- feenable_test ("FE_OVERFLOW", FE_OVERFLOW);
-#endif
- fesetenv (FE_DFL_ENV);
-}
-
-static int
-do_test (void)
-{
- /* clear all exceptions and test if all are cleared */
- feclearexcept (FE_ALL_EXCEPT);
- test_exceptions ("feclearexcept (FE_ALL_EXCEPT) clears all exceptions",
- NO_EXC);
-
- /* raise all exceptions and test if all are raised */
- feraiseexcept (FE_ALL_EXCEPT);
- if (EXCEPTION_TESTS (float))
- test_exceptions ("feraiseexcept (FE_ALL_EXCEPT) raises all exceptions",
- ALL_EXC);
-
- /* Same test, but using double as argument */
- feclearexcept ((double)FE_ALL_EXCEPT);
- test_exceptions ("feclearexcept ((double)FE_ALL_EXCEPT) clears all exceptions",
- NO_EXC);
-
- feraiseexcept ((double)FE_ALL_EXCEPT);
- if (EXCEPTION_TESTS (float))
- test_exceptions ("feraiseexcept ((double)FE_ALL_EXCEPT) raises all exceptions",
- ALL_EXC);
-
- if (EXCEPTION_TESTS (float))
- test_exceptionflag ();
-
- test_fesetround ();
-
- test_feenabledisable ();
-
- return count_errors;
-}
-
-#define TEST_FUNCTION do_test ()
-#include "../test-skeleton.c"
+++ /dev/null
-/* Inline floating-point environment handling functions for powerpc.
- Copyright (C) 1995-2020 Free Software Foundation, Inc.
- This file is part of the GNU C Library.
-
- The GNU C Library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
-
- The GNU C Library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
-
- You should have received a copy of the GNU Lesser General Public
- License along with the GNU C Library; if not, see
- <https://www.gnu.org/licenses/>. */
-
-#if defined __GNUC__ && !defined _SOFT_FLOAT && !defined __NO_FPRS__
-
-/* Inline definitions for fegetround. */
-# define __fegetround_ISA300() \
- (__extension__ ({ \
- union { double __d; unsigned long long __ll; } __u; \
- __asm__ __volatile__ ( \
- ".machine push; .machine \"power9\"; mffsl %0; .machine pop" \
- : "=f" (__u.__d)); \
- __u.__ll & 0x0000000000000003LL; \
- }))
-
-# define __fegetround_ISA2() \
- (__extension__ ({ \
- int __fegetround_result; \
- __asm__ __volatile__ ("mcrfs 7,7 ; mfcr %0" \
- : "=r"(__fegetround_result) : : "cr7"); \
- __fegetround_result & 3; \
- }))
-
-# ifdef _ARCH_PWR9
-# define __fegetround() __fegetround_ISA300()
-# elif defined __BUILTIN_CPU_SUPPORTS__
-# define __fegetround() \
- (__glibc_likely (__builtin_cpu_supports ("arch_3_00")) \
- ? __fegetround_ISA300() \
- : __fegetround_ISA2() \
- )
-# else
-# define __fegetround() __fegetround_ISA2()
-# endif
-
-# define fegetround() __fegetround ()
-
-# ifndef __NO_MATH_INLINES
-
-/* Builtins to mtfsb0 and mtfsb1 was introduced on GCC 9. */
-# if !__GNUC_PREREQ(9, 0)
-/* The weird 'i#*X' constraints on the following suppress a gcc
- warning when __excepts is not a constant. Otherwise, they mean the
- same as just plain 'i'. This warning only happens in old GCC
- versions (gcc 3 or less). Otherwise plain 'i' works fine. */
-# define __MTFSB0(__b) __asm__ __volatile__ ("mtfsb0 %0" : : "i#*X" (__b))
-# define __MTFSB1(__b) __asm__ __volatile__ ("mtfsb1 %0" : : "i#*X" (__b))
-# else
-# define __MTFSB0(__b) __builtin_mtfsb0 (__b)
-# define __MTFSB1(__b) __builtin_mtfsb1 (__b)
-# endif
-
-# if __GNUC_PREREQ(3, 4)
-
-#include <sys/param.h>
-
-/* Inline definition for feraiseexcept. */
-# define feraiseexcept(__excepts) \
- (__extension__ ({ \
- int __e = __excepts; \
- int __ret = 0; \
- if (__builtin_constant_p (__e) \
- && __builtin_popcount (__e) == 1 \
- && __e != FE_INVALID) \
- { \
- __MTFSB1 ((__builtin_clz (__e))); \
- } \
- else \
- __ret = feraiseexcept (__e); \
- __ret; \
- }))
-
-/* Inline definition for feclearexcept. */
-# define feclearexcept(__excepts) \
- (__extension__ ({ \
- int __e = __excepts; \
- int __ret = 0; \
- if (__builtin_constant_p (__e) \
- && __builtin_popcount (__e) == 1 \
- && __e != FE_INVALID) \
- { \
- __MTFSB0 ((__builtin_clz (__e))); \
- } \
- else \
- __ret = feclearexcept (__e); \
- __ret; \
- }))
-
-# endif /* __GNUC_PREREQ(3, 4). */
-
-# endif /* !__NO_MATH_INLINES. */
-
-#endif /* __GNUC__ && !_SOFT_FLOAT && !__NO_FPRS__ */
projects / thirdparty / glibc.git / commitdiff
