f34428eb35
* cpu_features.c: New file. * cpu_features.h: New file. * crt1.c: Include "cpu_features.h". (__mingw_CRTStartup): Call cpu_features_init(). * Makefile.in (MING_OBJS): Add cpu_features.c. (SRCDIST_FILES): Add cpu_features.c, cpu_features.h. * include/fenv,h ( fenv_t;): Append __mxcsr field. (__MXCSR_EXCEPT_FLAG_SHIFT): New define. (__MXCSR_EXCEPT_MASK_SHIFT): New define. (__MXCSR_ROUND_FLAG_SHIFT): New define. * mingwex/feclearexcept.c: Include "cpu_features.h". Handle SSE environment. * mingwex/fegetenv.c: Likewise. * mingwex/feholdexcept.c: Likewise. * mingwex/fesetenv.c: Likewise. * mingwex/fesetexceptflag.c: Likewise. * mingwex/fesetround.c: Likewise. * mingwex/fetestexcept.c: Likewise. * mingwex/feupdateenv.c: Likewise. * mingwex/fegetround.c: Add comment.
27 lines
835 B
C
27 lines
835 B
C
#include <fenv.h>
|
|
#include "cpu_features.h"
|
|
|
|
/* 7.6.4.4
|
|
The feupdateenv function saves the currently raised exceptions in
|
|
its automatic storage, installs the floating-point environment
|
|
represented by the object pointed to by envp, and then raises the
|
|
saved exceptions. The argument envp shall point to an object
|
|
set by a call to feholdexcept or fegetenv, or equal the macro
|
|
FE_DFL_ENV or an implementation-defined environment macro. */
|
|
|
|
|
|
int feupdateenv (const fenv_t * envp)
|
|
{
|
|
unsigned int _fexcept;
|
|
__asm__ ("fnstsw %%ax" : "=a" (_fexcept)); /*save excepts */
|
|
if (__HAS_SSE)
|
|
{
|
|
unsigned int _csr;
|
|
__asm__ ("stmxcsr %0" : "=m" (_csr));
|
|
_fexcept |= _csr;
|
|
}
|
|
fesetenv (envp); /* install the env */
|
|
feraiseexcept (_fexcept & FE_ALL_EXCEPT); /* raise the execeptions */
|
|
return 0;
|
|
}
|