123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112 |
- #include <fenv.h>
- #include <fpu_control.h>
- #include <assert.h>
- libm_hidden_proto(fesetenv)
- #define FE_ALL_EXCEPT_X86 (FE_ALL_EXCEPT | __FE_DENORM)
- int
- fesetenv (const fenv_t *envp)
- {
- fenv_t temp;
-
- __asm__ ("fnstenv %0\n"
- "stmxcsr %1" : "=m" (*&temp), "=m" (*&temp.__mxcsr));
- if (envp == FE_DFL_ENV)
- {
- temp.__control_word |= FE_ALL_EXCEPT_X86;
- temp.__control_word &= ~FE_TOWARDZERO;
- temp.__control_word |= _FPU_EXTENDED;
- temp.__status_word &= ~FE_ALL_EXCEPT_X86;
- temp.__eip = 0;
- temp.__cs_selector = 0;
- temp.__opcode = 0;
- temp.__data_offset = 0;
- temp.__data_selector = 0;
-
- temp.__mxcsr &= ~FE_ALL_EXCEPT_X86;
-
- temp.__mxcsr |= (FE_ALL_EXCEPT_X86 << 7);
-
- temp.__mxcsr &= ~ 0x6000;
- temp.__mxcsr |= (FE_TONEAREST << 3);
-
- temp.__mxcsr &= ~0x8040;
- }
- else if (envp == FE_NOMASK_ENV)
- {
- temp.__control_word &= ~(FE_ALL_EXCEPT | FE_TOWARDZERO);
-
- temp.__control_word |= __FE_DENORM;
- temp.__control_word |= _FPU_EXTENDED;
- temp.__status_word &= ~FE_ALL_EXCEPT_X86;
- temp.__eip = 0;
- temp.__cs_selector = 0;
- temp.__opcode = 0;
- temp.__data_offset = 0;
- temp.__data_selector = 0;
-
- temp.__mxcsr &= ~FE_ALL_EXCEPT_X86;
-
-
- temp.__mxcsr &= ~ 0x6000;
- temp.__mxcsr |= (FE_TONEAREST << 3);
-
- temp.__mxcsr &= ~(FE_ALL_EXCEPT << 7);
-
- temp.__mxcsr |= (__FE_DENORM << 7);
-
- temp.__mxcsr &= ~0x8040;
- }
- else
- {
- temp.__control_word &= ~(FE_ALL_EXCEPT_X86
- | FE_TOWARDZERO
- | _FPU_EXTENDED);
- temp.__control_word |= (envp->__control_word
- & (FE_ALL_EXCEPT_X86
- | FE_TOWARDZERO
- | _FPU_EXTENDED));
- temp.__status_word &= ~FE_ALL_EXCEPT_X86;
- temp.__status_word |= envp->__status_word & FE_ALL_EXCEPT_X86;
- temp.__eip = envp->__eip;
- temp.__cs_selector = envp->__cs_selector;
- temp.__opcode = envp->__opcode;
- temp.__data_offset = envp->__data_offset;
- temp.__data_selector = envp->__data_selector;
- temp.__mxcsr = envp->__mxcsr;
- }
- __asm__ ("fldenv %0\n"
- "ldmxcsr %1" : : "m" (temp), "m" (temp.__mxcsr));
-
- return 0;
- }
- libm_hidden_def(fesetenv)
|