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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 1fa17337515bb60edd1f3da564df23ab8045a4d9..3f374b8b974ad64262473a7122d3a425e923cc26 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/libgfortran/config/fpu-glibc.h b/libgfortran/config/fpu-glibc.h
index 389f9054a56229b90ed1b87a08f428b0840d2a07..8b0801a96b605ae3938faa3987b4b968105805fe 100644 (file)
--- 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