* config/fpu-glibc.h (set_fpu): Only call fedisableexcept for

	nonzero FE_ALL_EXCEPT.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107145 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 1fa1733..3f374b8 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 389f905..8b0801a 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