OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fpu-387.h (set_fpu): Use __builtin_ia32_stmxcsr and __builtin_ia32_ldmxcsr intrinsics.

Browse Source 
* config/fpu-387.h (set_fpu): Use __builtin_ia32_stmxcsr and
	__builtin_ia32_ldmxcsr intrinsics.

From-SVN: r190992
This commit is contained in:
Uros Bizjak 2012-09-05 21:49:21 +02:00 committed by Uros Bizjak
parent 3157879227
commit df36cec0dd
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2012-03-30 Uros Bizjak <ubizjak@gmail.com>
* config/fpu-387.h (set_fpu): Use __builtin_ia32_stmxcsr and
__builtin_ia32_ldmxcsr intrinsics.
2012-07-25 Andreas Schwab <schwab@linux-m68k.org>
* io/list_read.c (list_formatted_read_scalar): Fix copying real

4
libgfortran/config/fpu-387.h
View File

@ -118,7 +118,7 @@ void set_fpu (void)
{
unsigned int cw_sse;
asm volatile ("stmxcsr %0" : "=m" (cw_sse));
cw_sse = __builtin_ia32_stmxcsr ();
cw_sse &= 0xffff0000;
cw_sse |= (_FPU_MASK_IM | _FPU_MASK_DM | _FPU_MASK_ZM | _FPU_MASK_OM
@ -131,6 +131,6 @@ void set_fpu (void)
if (options.fpe & GFC_FPE_UNDERFLOW) cw_sse &= ~(_FPU_MASK_UM << 7);
if (options.fpe & GFC_FPE_INEXACT) cw_sse &= ~(_FPU_MASK_PM << 7);
asm volatile ("ldmxcsr %0" : : "m" (cw_sse));
__builtin_ia32_ldmxcsr (cw_sse);
}
}