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

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
This commit is contained in:
Tobias Burnus 2013-07-21 17:16:21 +02:00 committed by Tobias Burnus
parent 94b150705d
commit 5b70b3e44b
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -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>

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

@ -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)
{