From 5b70b3e44baf317b001b78919429a7e63af50742 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 21 Jul 2013 17:16:21 +0200 Subject: [PATCH] re PR libfortran/35862 ([F2003] Implement new rounding modes for run time) 2013-07-21 Tobias Burnus PR fortran/35862 * config/fpu-387.h (set_fpu_rounding_mode, get_fpu_rounding_mode): Add missing _ to fix build. From-SVN: r201095 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/config/fpu-387.h | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index eacb01b62d5..e5f7eb7fdb2 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2013-07-21 Tobias Burnus + + PR fortran/35862 + * config/fpu-387.h (set_fpu_rounding_mode, + get_fpu_rounding_mode): Add missing _ to fix build. + 2013-07-21 Tobias Burnus Uros Bizjak diff --git a/libgfortran/config/fpu-387.h b/libgfortran/config/fpu-387.h index 72d86f89ea3..62f1e935b53 100644 --- a/libgfortran/config/fpu-387.h +++ b/libgfortran/config/fpu-387.h @@ -202,7 +202,7 @@ set_fpu_rounding_mode (int round) __asm__ __volatile__ ("fnstcw\t%0" : "=m" (cw)); - cw &= ~FPU_RC_MASK; + cw &= ~_FPU_RC_MASK; cw |= round_mode; __asm__ __volatile__ ("fldcw\t%0" : : "m" (cw)); @@ -214,7 +214,7 @@ set_fpu_rounding_mode (int round) __asm__ __volatile__ ("%vstmxcsr\t%0" : "=m" (cw_sse)); /* The SSE round control bits are shifted by 3 bits. */ - cw_sse &= ~(FPU_RC_MASK << 3); + cw_sse &= ~(_FPU_RC_MASK << 3); cw_sse |= round_mode << 3; __asm__ __volatile__ ("%vldmxcsr\t%0" : : "m" (cw_sse)); @@ -228,7 +228,7 @@ get_fpu_rounding_mode (void) __asm__ __volatile__ ("fnstcw\t%0" : "=m" (cw)); - cw &= FPU_RC_MASK; + cw &= _FPU_RC_MASK; switch (cw) {