diff options
Diffstat (limited to 'libgfortran/config/fpu-387.h')
| -rw-r--r-- | libgfortran/config/fpu-387.h | 37 |
1 files changed, 14 insertions, 23 deletions
diff --git a/libgfortran/config/fpu-387.h b/libgfortran/config/fpu-387.h index 608354d975a..6c42ab84524 100644 --- a/libgfortran/config/fpu-387.h +++ b/libgfortran/config/fpu-387.h @@ -73,7 +73,7 @@ has_sse (void) /* We need a single SSE instruction here so the handler can safely skip over it. */ - __asm__ volatile ("movaps %xmm0,%xmm0"); + __asm__ __volatile__ ("movaps\t%xmm0,%xmm0"); sigaction (SIGILL, &oact, NULL); @@ -100,7 +100,7 @@ void set_fpu (void) { unsigned short cw; - asm volatile ("fnstcw %0" : "=m" (cw)); + __asm__ __volatile__ ("fnstcw\t%0" : "=m" (cw)); cw |= (_FPU_MASK_IM | _FPU_MASK_DM | _FPU_MASK_ZM | _FPU_MASK_OM | _FPU_MASK_UM | _FPU_MASK_PM); @@ -112,13 +112,13 @@ void set_fpu (void) if (options.fpe & GFC_FPE_UNDERFLOW) cw &= ~_FPU_MASK_UM; if (options.fpe & GFC_FPE_INEXACT) cw &= ~_FPU_MASK_PM; - asm volatile ("fldcw %0" : : "m" (cw)); + __asm__ __volatile__ ("fldcw\t%0" : : "m" (cw)); if (has_sse()) { unsigned int cw_sse; - asm volatile ("%vstmxcsr %0" : "=m" (cw_sse)); + __asm__ __volatile__ ("%vstmxcsr\t%0" : "=m" (cw_sse)); cw_sse &= 0xffff0000; cw_sse |= (_FPU_MASK_IM | _FPU_MASK_DM | _FPU_MASK_ZM | _FPU_MASK_OM @@ -131,7 +131,7 @@ 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 ("%vldmxcsr %0" : : "m" (cw_sse)); + __asm__ __volatile__ ("%vldmxcsr\t%0" : : "m" (cw_sse)); } } @@ -139,7 +139,7 @@ void set_fpu (void) int get_fpu_except_flags (void) { - int result; + int result = 0; unsigned short cw; __asm__ __volatile__ ("fnstsw\t%0" : "=a" (cw)); @@ -147,27 +147,18 @@ get_fpu_except_flags (void) if (has_sse()) { unsigned int cw_sse; + __asm__ __volatile__ ("%vstmxcsr\t%0" : "=m" (cw_sse)); + cw |= cw_sse; } - if (cw & _FPU_MASK_IM) - result |= GFC_FPE_INVALID; - - if (cw & _FPU_MASK_ZM) - result |= GFC_FPE_ZERO; - - if (cw & _FPU_MASK_OM) - result |= GFC_FPE_OVERFLOW; - - if (cw & _FPU_MASK_UM) - result |= GFC_FPE_UNDERFLOW; - - if (cw & _FPU_MASK_DM) - result |= GFC_FPE_DENORMAL; - - if (cw & _FPU_MASK_PM) - result |= GFC_FPE_INEXACT; + if (cw & _FPU_MASK_IM) result |= GFC_FPE_INVALID; + if (cw & _FPU_MASK_DM) result |= GFC_FPE_DENORMAL; + if (cw & _FPU_MASK_ZM) result |= GFC_FPE_ZERO; + if (cw & _FPU_MASK_OM) result |= GFC_FPE_OVERFLOW; + if (cw & _FPU_MASK_UM) result |= GFC_FPE_UNDERFLOW; + if (cw & _FPU_MASK_PM) result |= GFC_FPE_INEXACT; return result; } |