]>
Commit | Line | Data |
---|---|---|
e4df97b8 | 1 | /* Disable floating-point exceptions. |
6d7e8eda | 2 | Copyright (C) 2000-2023 Free Software Foundation, Inc. |
e4df97b8 | 3 | This file is part of the GNU C Library. |
e4df97b8 GK |
4 | |
5 | The GNU C Library is free software; you can redistribute it and/or | |
41bdb6e2 AJ |
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. | |
e4df97b8 GK |
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 | |
41bdb6e2 | 13 | Lesser General Public License for more details. |
e4df97b8 | 14 | |
41bdb6e2 | 15 | You should have received a copy of the GNU Lesser General Public |
59ba27a6 | 16 | License along with the GNU C Library; if not, see |
5a82c748 | 17 | <https://www.gnu.org/licenses/>. */ |
e4df97b8 GK |
18 | |
19 | #include <fenv_libc.h> | |
20 | ||
21 | int | |
22 | fedisableexcept (int excepts) | |
23 | { | |
18f2945a | 24 | fenv_union_t fe, curr; |
dc041bd4 | 25 | int result, new; |
e4df97b8 | 26 | |
18f2945a | 27 | /* Get current exception mask to return. */ |
81ecb0ee | 28 | fe.fenv = curr.fenv = fegetenv_control (); |
18f2945a | 29 | result = fenv_reg_to_exceptions (fe.l); |
e4df97b8 GK |
30 | |
31 | if ((excepts & FE_ALL_INVALID) == FE_ALL_INVALID) | |
32 | excepts = (excepts | FE_INVALID) & ~ FE_ALL_INVALID; | |
33 | ||
3c1766ea PC |
34 | new = fenv_exceptions_to_reg (excepts); |
35 | ||
36 | if (fenv_reg_to_exceptions (new) != excepts) | |
37 | return -1; | |
38 | ||
18f2945a | 39 | /* Sets the new exception mask. */ |
3c1766ea | 40 | fe.l &= ~new; |
18f2945a AZ |
41 | |
42 | if (fe.l != curr.l) | |
d7a568af | 43 | fesetenv_control (fe.fenv); |
e4df97b8 | 44 | |
e3d85df5 | 45 | __TEST_AND_ENTER_NON_STOP (-1ULL, fe.l); |
4a59e9ad | 46 | |
e4df97b8 GK |
47 | return result; |
48 | } |