git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Use FP_RN etc. unconditionally 

* config/fpu-sysv.h (get_fpu_rounding_mode): Use FP_RN, FP_RP,
	FP_RM, FP_RZ unconditionally.
	(set_fpu_rounding_mode): Likewise.

From-SVN: r212350
This commit is contained in:
Rainer Orth 2014-07-08 09:08:49 +00:00 committed by Rainer Orth
parent e8e938e0b0
commit 7f7563747e
2 changed files with 6 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2014-07-08 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* config/fpu-sysv.h (get_fpu_rounding_mode): Use FP_RN, FP_RP,
FP_RM, FP_RZ unconditionally.
(set_fpu_rounding_mode): Likewise.
2014-07-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2014-07-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* libgfortran.h: Assume __GNUC__. * libgfortran.h: Assume __GNUC__.

42
libgfortran/config/fpu-sysv.h
View File

@ -333,25 +333,14 @@ get_fpu_rounding_mode (void)
{ {
switch (fpgetround ()) switch (fpgetround ())
{ {
#ifdef FP_RN
case FP_RN: case FP_RN:
return GFC_FPE_TONEAREST; return GFC_FPE_TONEAREST;
#endif
#ifdef FP_RP
case FP_RP: case FP_RP:
return GFC_FPE_UPWARD; return GFC_FPE_UPWARD;
#endif
#ifdef FP_RM
case FP_RM: case FP_RM:
return GFC_FPE_DOWNWARD; return GFC_FPE_DOWNWARD;
#endif
#ifdef FP_RZ
case FP_RZ: case FP_RZ:
return GFC_FPE_TOWARDZERO; return GFC_FPE_TOWARDZERO;
#endif
default: default:
return GFC_FPE_INVALID; return GFC_FPE_INVALID;
} }
@ -365,29 +354,18 @@ set_fpu_rounding_mode (int mode)
switch (mode) switch (mode)
{ {
#ifdef FP_RN
case GFC_FPE_TONEAREST: case GFC_FPE_TONEAREST:
rnd_mode = FP_RN; rnd_mode = FP_RN;
break; break;
#endif
#ifdef FP_RP
case GFC_FPE_UPWARD: case GFC_FPE_UPWARD:
rnd_mode = FP_RP; rnd_mode = FP_RP;
break; break;
#endif
#ifdef FP_RM
case GFC_FPE_DOWNWARD: case GFC_FPE_DOWNWARD:
rnd_mode = FP_RM; rnd_mode = FP_RM;
break; break;
#endif
#ifdef FP_RZ
case GFC_FPE_TOWARDZERO: case GFC_FPE_TOWARDZERO:
rnd_mode = FP_RZ; rnd_mode = FP_RZ;
break; break;
#endif
default: default:
return; return;
} }
@ -401,33 +379,13 @@ support_fpu_rounding_mode (int mode)
switch (mode) switch (mode)
{ {
case GFC_FPE_TONEAREST: case GFC_FPE_TONEAREST:
#ifdef FP_RN
return 1; return 1;
#else
return 0;
#endif
case GFC_FPE_UPWARD: case GFC_FPE_UPWARD:
#ifdef FP_RP
return 1; return 1;
#else
return 0;
#endif
case GFC_FPE_DOWNWARD: case GFC_FPE_DOWNWARD:
#ifdef FP_RM
return 1; return 1;
#else
return 0;
#endif
case GFC_FPE_TOWARDZERO: case GFC_FPE_TOWARDZERO:
#ifdef FP_RZ
return 1; return 1;
#else
return 0;
#endif
default: default:
return 0; return 0;
} }