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