2.9
[glibc/nacl-glibc.git] / sysdeps / powerpc / fpu / fedisblxcpt.c
blob9df4bbc7ef6a0bfc54e08877c6a5ee76b462479e
1 /* Disable floating-point exceptions.
2 Copyright (C) 2000, 2008 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Geoffrey Keating <geoffk@geoffk.org>, 2000.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 02111-1307 USA. */
21 #include <fenv_libc.h>
23 int
24 fedisableexcept (int excepts)
26 fenv_union_t fe;
27 int result, new;
29 result = __fegetexcept ();
31 if ((excepts & FE_ALL_INVALID) == FE_ALL_INVALID)
32 excepts = (excepts | FE_INVALID) & ~ FE_ALL_INVALID;
34 fe.fenv = fegetenv_register ();
35 if (excepts & FE_INEXACT)
36 fe.l[1] &= ~(1 << (31 - FPSCR_XE));
37 if (excepts & FE_DIVBYZERO)
38 fe.l[1] &= ~(1 << (31 - FPSCR_ZE));
39 if (excepts & FE_UNDERFLOW)
40 fe.l[1] &= ~(1 << (31 - FPSCR_UE));
41 if (excepts & FE_OVERFLOW)
42 fe.l[1] &= ~(1 << (31 - FPSCR_OE));
43 if (excepts & FE_INVALID)
44 fe.l[1] &= ~(1 << (31 - FPSCR_VE));
45 fesetenv_register (fe.fenv);
47 new = __fegetexcept ();
48 if (new == 0 && result != 0)
49 (void)__fe_mask_env ();
51 if ((new & excepts) != 0)
52 result = -1;
53 return result;