From eaa9c6bdb4bb37a140f320bd539f7f8e41c60ab2 Mon Sep 17 00:00:00 2001 From: Hans-Peter Nilsson Date: Fri, 18 Nov 2005 00:09:09 +0000 Subject: [PATCH] fpu-glibc.h (set_fpu): Only call fedisableexcept for nonzero FE_ALL_EXCEPT. * config/fpu-glibc.h (set_fpu): Only call fedisableexcept for nonzero FE_ALL_EXCEPT. From-SVN: r107145 --- libgfortran/ChangeLog | 5 +++++ libgfortran/config/fpu-glibc.h | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 1fa17337515..3f374b8b974 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2005-11-18 Hans-Peter Nilsson + + * config/fpu-glibc.h (set_fpu): Only call fedisableexcept for + nonzero FE_ALL_EXCEPT. + 2005-11-17 Francois-Xavier Coudert PR fortran/24892 diff --git a/libgfortran/config/fpu-glibc.h b/libgfortran/config/fpu-glibc.h index 389f9054a56..8b0801a96b6 100644 --- a/libgfortran/config/fpu-glibc.h +++ b/libgfortran/config/fpu-glibc.h @@ -39,7 +39,8 @@ Boston, MA 02110-1301, USA. */ void set_fpu (void) { - fedisableexcept (FE_ALL_EXCEPT); + if (FE_ALL_EXCEPT != 0) + fedisableexcept (FE_ALL_EXCEPT); if (options.fpe & GFC_FPE_INVALID) #ifdef FE_INVALID