diff options
author | Zack Weinberg <zackw@panix.com> | 2017-06-08 15:39:03 -0400 |
---|---|---|
committer | Zack Weinberg <zackw@panix.com> | 2017-06-08 15:39:03 -0400 |
commit | 5046dbb4a7eba5eccfd258f92f4735c9ffc8d069 (patch) | |
tree | 4470480d904b65cf14ca524f96f79eca818c3eaf /sysdeps/x86/fpu/test-fenv-x87.c | |
parent | 199fc19d3aaaf57944ef036e15904febe877fc93 (diff) | |
download | glibc-zack/build-layout-experiment.tar glibc-zack/build-layout-experiment.tar.gz glibc-zack/build-layout-experiment.tar.bz2 glibc-zack/build-layout-experiment.zip |
Prepare for radical source tree reorganization.zack/build-layout-experiment
All top-level files and directories are moved into a temporary storage
directory, REORG.TODO, except for files that will certainly still
exist in their current form at top level when we're done (COPYING,
COPYING.LIB, LICENSES, NEWS, README), all old ChangeLog files (which
are moved to the new directory OldChangeLogs, instead), and the
generated file INSTALL (which is just deleted; in the new order, there
will be no generated files checked into version control).
Diffstat (limited to 'sysdeps/x86/fpu/test-fenv-x87.c')
-rw-r--r-- | sysdeps/x86/fpu/test-fenv-x87.c | 169 |
1 files changed, 0 insertions, 169 deletions
diff --git a/sysdeps/x86/fpu/test-fenv-x87.c b/sysdeps/x86/fpu/test-fenv-x87.c deleted file mode 100644 index 29ae1c8a7e..0000000000 --- a/sysdeps/x86/fpu/test-fenv-x87.c +++ /dev/null @@ -1,169 +0,0 @@ -/* Test x86-specific floating-point environment (bug 16068): x87 part. - Copyright (C) 2015-2017 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 - <http://www.gnu.org/licenses/>. */ - -#include <fenv.h> -#include <float.h> -#include <fpu_control.h> -#include <stdint.h> -#include <stdio.h> - -static uint16_t -get_x87_cw (void) -{ - fpu_control_t cw; - _FPU_GETCW (cw); - return cw; -} - -static void -set_x87_cw (uint16_t val) -{ - fpu_control_t cw = val; - _FPU_SETCW (cw); -} - -static void -set_x87_cw_bits (uint16_t mask, uint16_t bits) -{ - uint16_t cw = get_x87_cw (); - cw = (cw & ~mask) | bits; - set_x87_cw (cw); -} - -static int -test_x87_cw_bits (const char *test, uint16_t mask, uint16_t bits) -{ - uint16_t cw = get_x87_cw (); - printf ("Testing %s: cw = %x\n", test, cw); - if ((cw & mask) == bits) - { - printf ("PASS: %s\n", test); - return 0; - } - else - { - printf ("FAIL: %s\n", test); - return 1; - } -} - -static uint16_t -get_x87_sw (void) -{ - uint16_t temp; - __asm__ __volatile__ ("fnstsw %0" : "=a" (temp)); - return temp; -} - -static void -set_x87_sw_bits (uint16_t mask, uint16_t bits) -{ - fenv_t temp; - __asm__ __volatile__ ("fnstenv %0" : "=m" (temp)); - temp.__status_word = (temp.__status_word & ~mask) | bits; - __asm__ __volatile__ ("fldenv %0" : : "m" (temp)); -} - -static int -test_x87_sw_bits (const char *test, uint16_t mask, uint16_t bits) -{ - uint16_t sw = get_x87_sw (); - printf ("Testing %s: sw = %x\n", test, sw); - if ((sw & mask) == bits) - { - printf ("PASS: %s\n", test); - return 0; - } - else - { - printf ("FAIL: %s\n", test); - return 1; - } -} - -#define X87_CW_PREC_MASK _FPU_EXTENDED - -static int -do_test (void) -{ - int result = 0; - fenv_t env1, env2; - /* Test precision mask. */ - fegetenv (&env1); - set_x87_cw_bits (X87_CW_PREC_MASK, _FPU_SINGLE); - fegetenv (&env2); - fesetenv (&env1); - result |= test_x87_cw_bits ("fesetenv precision restoration", - X87_CW_PREC_MASK, _FPU_EXTENDED); - set_x87_cw_bits (X87_CW_PREC_MASK, _FPU_EXTENDED); - fesetenv (&env2); - result |= test_x87_cw_bits ("fesetenv precision restoration 2", - X87_CW_PREC_MASK, _FPU_SINGLE); - set_x87_cw_bits (X87_CW_PREC_MASK, _FPU_DOUBLE); - fesetenv (FE_NOMASK_ENV); - result |= test_x87_cw_bits ("fesetenv (FE_NOMASK_ENV) precision restoration", - X87_CW_PREC_MASK, _FPU_EXTENDED); - set_x87_cw_bits (X87_CW_PREC_MASK, _FPU_SINGLE); - fesetenv (FE_DFL_ENV); - result |= test_x87_cw_bits ("fesetenv (FE_DFL_ENV) precision restoration", - X87_CW_PREC_MASK, _FPU_EXTENDED); - /* Test x87 denormal operand masking. */ - set_x87_cw_bits (_FPU_MASK_DM, 0); - fegetenv (&env2); - fesetenv (&env1); - result |= test_x87_cw_bits ("fesetenv denormal mask restoration", - _FPU_MASK_DM, _FPU_MASK_DM); - set_x87_cw_bits (_FPU_MASK_DM, _FPU_MASK_DM); - fesetenv (&env2); - result |= test_x87_cw_bits ("fesetenv denormal mask restoration 2", - _FPU_MASK_DM, 0); - set_x87_cw_bits (_FPU_MASK_DM, 0); - /* Presume FE_NOMASK_ENV should leave the "denormal operand" - exception masked, as not a standard exception. */ - fesetenv (FE_NOMASK_ENV); - result |= test_x87_cw_bits ("fesetenv (FE_NOMASK_ENV) denormal mask " - "restoration", - _FPU_MASK_DM, _FPU_MASK_DM); - set_x87_cw_bits (_FPU_MASK_DM, 0); - fesetenv (FE_DFL_ENV); - result |= test_x87_cw_bits ("fesetenv (FE_DFL_ENV) denormal mask " - "restoration", - _FPU_MASK_DM, _FPU_MASK_DM); - /* Test x87 denormal operand exception. */ - set_x87_sw_bits (__FE_DENORM, __FE_DENORM); - fegetenv (&env2); - fesetenv (&env1); - result |= test_x87_sw_bits ("fesetenv denormal exception restoration", - __FE_DENORM, 0); - set_x87_sw_bits (__FE_DENORM, 0); - fesetenv (&env2); - result |= test_x87_sw_bits ("fesetenv denormal exception restoration 2", - __FE_DENORM, __FE_DENORM); - set_x87_sw_bits (__FE_DENORM, __FE_DENORM); - fesetenv (FE_NOMASK_ENV); - result |= test_x87_sw_bits ("fesetenv (FE_NOMASK_ENV) exception restoration", - __FE_DENORM, 0); - set_x87_sw_bits (__FE_DENORM, __FE_DENORM); - fesetenv (FE_DFL_ENV); - result |= test_x87_sw_bits ("fesetenv (FE_DFL_ENV) exception restoration", - __FE_DENORM, 0); - return result; -} - -#define TEST_FUNCTION do_test () -#include <test-skeleton.c> |