sysdeps/sparc/fpu/fesetenv.c

   1 /* Install given floating-point environment.
   2    Copyright (C) 1997, 1999, 2000, 2002 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <http://www.gnu.org/licenses/>.  */
  18
  19 #include <fenv.h>
  20 #include <shlib-compat.h>
  21
  22 int
  23 __fesetenv (const fenv_t *envp)
  24 {
  25   fenv_t dummy;
  26
  27   /* Put these constants in memory explicitly, so as to cope with a
  28      -fPIC bug as of gcc 970624.  Making them automatic is quicker
  29      than loading up the pic register in this instance.  */
  30
  31   if (envp == FE_DFL_ENV)
  32     {
  33       dummy = 0;
  34       envp = &dummy;
  35     }
  36   else if (envp == FE_NOMASK_ENV)
  37     {
  38       dummy = 0x1f << 23;
  39       envp = &dummy;
  40     }
  41
  42   __fenv_ldfsr (*envp);
  43
  44   /* Success.  */
  45   return 0;
  46 }
  47
  48 #if SHLIB_COMPAT (libm, GLIBC_2_1, GLIBC_2_2)
  49 strong_alias (__fesetenv, __old_fesetenv)
  50 compat_symbol (libm, __old_fesetenv, fesetenv, GLIBC_2_1);
  51 #endif
  52
  53 libm_hidden_ver (__fesetenv, fesetenv)
  54 versioned_symbol (libm, __fesetenv, fesetenv, GLIBC_2_2);