blob: 91b535dc6beeb86554e93fa0767a5036bc53a10c [file] [log] [blame]
lh9ed821d2023-04-07 01:36:19 -07001/* Install given floating-point environment and raise exceptions.
2 Copyright (C) 1997,99,2000,01,07 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
5
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.
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
14 Lesser General Public License for more details.
15
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. */
20
21#include <fenv.h>
22#include <unistd.h>
23
24libm_hidden_proto(fesetenv)
25libm_hidden_proto(feraiseexcept)
26
27int
28feupdateenv (const fenv_t *envp)
29{
30 fexcept_t temp;
31 /* unsigned int xtemp = 0; */
32
33 /* Save current exceptions. */
34 __asm__ ("fnstsw %0" : "=m" (*&temp));
35
36#if 0
37 /* If the CPU supports SSE we test the MXCSR as well. */
38 if ((GLRO(dl_hwcap) & HWCAP_I386_XMM) != 0)
39 __asm__ ("stmxcsr %0" : "=m" (*&xtemp));
40
41 temp = (temp | xtemp) & FE_ALL_EXCEPT;
42#else
43 temp &= FE_ALL_EXCEPT;
44#endif
45
46 /* Install new environment. */
47 fesetenv (envp);
48
49 /* Raise the saved exception. Incidently for us the implementation
50 defined format of the values in objects of type fexcept_t is the
51 same as the ones specified using the FE_* constants. */
52 feraiseexcept ((int) temp);
53
54 /* Success. */
55 return 0;
56}