re PR libfortran/35862 ([F2003] Implement new rounding modes for run time)

2013-07-21  Tobias Burnus  <burnus@net-b.de>

        PR fortran/35862
        * config/fpu-387.h (set_fpu_rounding_mode,
        get_fpu_rounding_mode): Add missing _ to fix build.

From-SVN: r201095

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index eacb01b62d5420ef6487e83b8040c87774622090..e5f7eb7fdb227ed6e1686128bcfeafb16cd4c255 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2013-07-21  Tobias Burnus  <burnus@net-b.de>
+
+       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  <burnus@net-b.de>
            Uros Bizjak  <ubizjak@gmail.com>
 

diff --git a/libgfortran/config/fpu-387.h b/libgfortran/config/fpu-387.h
index 72d86f89ea3fb6e4e03d3ff9e8d4ebe6a5bb7af9..62f1e935b5351dec2d6f359d440c7f607d38929f 100644 (file)
--- 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)
     {