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.
31 lines
834 B
C
31 lines
834 B
C
#include <fenv.h>
|
|
#include "cpu_features.h"
|
|
|
|
/* 7.6.3.2
|
|
The fesetround function establishes the rounding direction
|
|
represented by its argument round. If the argument is not equal
|
|
to the value of a rounding direction macro, the rounding direction
|
|
is not changed. */
|
|
|
|
int fesetround (int mode)
|
|
{
|
|
unsigned short _cw;
|
|
if ((mode & ~(FE_TONEAREST | FE_DOWNWARD | FE_UPWARD | FE_TOWARDZERO))
|
|
!= 0)
|
|
return -1;
|
|
__asm__ volatile ("fnstcw %0;": "=m" (_cw));
|
|
_cw &= ~(FE_TONEAREST | FE_DOWNWARD | FE_UPWARD | FE_TOWARDZERO);
|
|
_cw |= mode;
|
|
__asm__ volatile ("fldcw %0;" : : "m" (_cw));
|
|
|
|
if (__HAS_SSE)
|
|
{
|
|
__asm__ volatile ("stmxcsr %0" : "=m" (_cw));
|
|
_cw &= ~ 0x6000;
|
|
_cw |= (mode << __MXCSR_ROUND_FLAG_SHIFT);
|
|
__asm__ volatile ("ldmxcsr %0" : : "m" (_cw));
|
|
}
|
|
|
|
return 0;
|
|
}
|