ports/sysdeps/powerpc/nofpu/feupdateenv.c

   1 /* Install given floating-point environment and raise exceptions
   2    (soft-float edition).
   3    Copyright (C) 2002, 2010 Free Software Foundation, Inc.
   4    Contributed by Aldy Hernandez <aldyh@redhat.com>, 2002.
   5    This file is part of the GNU C Library.
   6
   7    The GNU C Library is free software; you can redistribute it and/or
   8    modify it under the terms of the GNU Lesser General Public
   9    License as published by the Free Software Foundation; either
  10    version 2.1 of the License, or (at your option) any later version.
  11
  12    The GNU C Library is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15    Lesser General Public License for more details.
  16
  17    You should have received a copy of the GNU Lesser General Public
  18    License along with the GNU C Library; if not, write to the Free
  19    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  20    02111-1307 USA.  */
  21
  22 #include "soft-fp.h"
  23 #include "soft-supp.h"
  24 #include <signal.h>
  25 #include <bp-sym.h>
  26
  27 int
  28 __feupdateenv (const fenv_t *envp)
  29 {
  30   int saved_exceptions;
  31
  32   /* Save currently set exceptions.  */
  33   saved_exceptions = __sim_exceptions;
  34
  35   /* Set environment.  */
  36   fesetenv (envp);
  37
  38   /* Raise old exceptions.  */
  39   __sim_exceptions |= saved_exceptions;
  40   if (saved_exceptions & ~__sim_disabled_exceptions)
  41     raise (SIGFPE);
  42
  43   return 0;
  44 }
  45
  46 #include <shlib-compat.h>
  47 #if SHLIB_COMPAT (libm, GLIBC_2_1, GLIBC_2_2)
  48 strong_alias (__feupdateenv, __old_feupdateenv)
  49 compat_symbol (libm, BP_SYM (__old_feupdateenv), BP_SYM (feupdateenv), GLIBC_2_1);
  50 #endif
  51
  52 libm_hidden_ver (__feupdateenv, feupdateenv)
  53 versioned_symbol (libm, BP_SYM (__feupdateenv), BP_SYM (feupdateenv), GLIBC_2_2);