Skip to content

R
riscv-gcc-1
Commit 24726083 by Francois-Xavier Coudert Committed by François-Xavier Coudert
Options

fpu-387.h: Use previously added SSE code in all cases, as it really is the right thing to do. 

	* config/fpu-387.h: Use previously added SSE code in all
	cases, as it really is the right thing to do.

From-SVN: r112610
parent 37da9343
Showing with 5 additions and 10 deletions
libgfortran/ChangeLog
2006-04-01 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* config/fpu-387.h: Use previously added SSE code in all
cases, as it really is the right thing to do.
2006-03-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26890
......
libgfortran/config/fpu-387.h
......@@ -93,7 +93,6 @@ void set_fpu (void)
/* SSE */
asm volatile ("stmxcsr %0" : "=m" (cw_sse));
cw_sse &= 0xFFFF0000;
#ifdef __APPLE__
cw_sse |= (_FPU_MASK_IM | _FPU_MASK_DM | _FPU_MASK_ZM | _FPU_MASK_OM
| _FPU_MASK_UM | _FPU_MASK_PM ) << 7;
if (options.fpe & GFC_FPE_INVALID) cw_sse &= ~(_FPU_MASK_IM << 7);
......@@ -103,14 +102,5 @@ void set_fpu (void)
if (options.fpe & GFC_FPE_UNDERFLOW) cw_sse &= ~(_FPU_MASK_UM << 7);
if (options.fpe & GFC_FPE_PRECISION) cw_sse &= ~(_FPU_MASK_PM << 7);
asm volatile ("ldmxcsr %0" : : "m" (cw_sse));
#else
if (options.fpe & GFC_FPE_INVALID) cw_sse |= 1 << 7;
if (options.fpe & GFC_FPE_DENORMAL) cw_sse |= 1 << 8;
if (options.fpe & GFC_FPE_ZERO) cw_sse |= 1 << 9;
if (options.fpe & GFC_FPE_OVERFLOW) cw_sse |= 1 << 10;
if (options.fpe & GFC_FPE_UNDERFLOW) cw_sse |= 1 << 11;
if (options.fpe & GFC_FPE_PRECISION) cw_sse |= 1 << 12;
asm volatile ("ldmxcsr %0" : : "m" (cw_sse));
#endif
}
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment