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

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
eaa9c6bd · Hans-Peter Nilsson · Hans-Peter Nilsson · 9976dec8 · eaa9c6bd · eaa9c6bd
Commit eaa9c6bd authored Nov 18, 2005 by Hans-Peter Nilsson Committed by Hans-Peter Nilsson Nov 18, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletions

libgfortran/ChangeLog
+5 -0

libgfortran/config/fpu-glibc.h
+2 -1

No files found.
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
+2005-11-18  Hans-Peter Nilsson  <hp@axis.com>
+
+	* config/fpu-glibc.h (set_fpu): Only call fedisableexcept for
+	nonzero FE_ALL_EXCEPT.
+
 2005-11-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

 	PR fortran/24892

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