1/**
2 * This file has no copyright assigned and is placed in the Public Domain.
3 * This file is part of the mingw-w64 runtime package.
4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
5 */
6
7#include <internal.h>
8
9/* The FE_DFL_ENV macro is required by standard.
10 fesetenv will use the environment set at app startup.*/
11const fenv_t __mingw_fe_dfl_env = { 0, 0 };
12
13/* The C99 standard (7.6.9) allows us to define implementation-specific macros for
14 different fp environments */
15#if defined(__i386__) || defined(__x86_64__)
16
17/* The default Intel x87 floating point environment (64-bit mantissa) */
18const fenv_t __mingw_fe_pc64_env = { 0x3f3f003f, 0 };
19
20/* The floating point environment set by MSVCRT _fpreset (53-bit mantissa) */
21const fenv_t __mingw_fe_pc53_env = { 0x3f3f103f, 0 };
22
23#endif
24
25/* 7.6.4.3
26 The fesetenv function establishes the floating-point environment
27 represented by the object pointed to by envp. The argument envp
28 points to an object set by a call to fegetenv or feholdexcept, or
29 equal the macro FE_DFL_ENV or an implementation-defined environment
30 macro. Note that fesetenv merely installs the state of the exception
31 flags represented through its argument, and does not raise these
32 exceptions.
33 */
34
35extern void (* __MINGW_IMP_SYMBOL(_fpreset))(void);
36extern void _fpreset(void);
37
38int fesetenv(const fenv_t *env)
39{
40 unsigned int x87_cw, cw, x87_stat, stat;
41 unsigned int mask = ~0u;
42
43 if (!env->_Fe_ctl && !env->_Fe_stat) {
44 _fpreset();
45 return 0;
46 }
47
48 if (!fenv_decode(env->_Fe_ctl, &x87_cw, &cw))
49 return 1;
50 if (!fenv_decode(env->_Fe_stat, &x87_stat, &stat))
51 return 1;
52
53#if defined(__i386__) || (defined(__x86_64__) && !defined(__arm64ec__))
54 __mingw_setfp(&x87_cw, mask, &x87_stat, ~0);
55 if (__mingw_has_sse())
56 __mingw_setfp_sse(&cw, mask, &stat, ~0);
57#else
58 __mingw_setfp(&cw, mask, &stat, ~0);
59#endif
60 return 0;
61}