diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2011-05-14 10:55:51 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2011-05-14 10:55:51 +0300 |
| commit | 1028b2bded33a9ee92db6a1a968258f3ba29aa24 (patch) | |
| tree | cd0c97323c6980b35b95ce189ac0bdc597d9c4dc /libgfortran/config/fpu-glibc.h | |
| parent | b4224aec547b9e01f0b79d65c31c7b6da998b8cd (diff) | |
| download | gcc-1028b2bded33a9ee92db6a1a968258f3ba29aa24.zip gcc-1028b2bded33a9ee92db6a1a968258f3ba29aa24.tar.gz gcc-1028b2bded33a9ee92db6a1a968258f3ba29aa24.tar.bz2 | |
Error printing thread safety, remove GFORTRAN_USE_STDERR
From-SVN: r173749
Diffstat (limited to 'libgfortran/config/fpu-glibc.h')
| -rw-r--r-- | libgfortran/config/fpu-glibc.h | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/libgfortran/config/fpu-glibc.h b/libgfortran/config/fpu-glibc.h index 807f094..669b7ad 100644 --- a/libgfortran/config/fpu-glibc.h +++ b/libgfortran/config/fpu-glibc.h @@ -1,8 +1,8 @@ /* FPU-related code for systems with GNU libc. - Copyright 2005, 2007, 2009 Free Software Foundation, Inc. + Copyright 2005, 2007, 2009, 2011 Free Software Foundation, Inc. Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr> -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). Libgfortran is free software; you can redistribute it and/or modify it under the terms of the GNU General Public @@ -40,8 +40,8 @@ void set_fpu (void) #ifdef FE_INVALID feenableexcept (FE_INVALID); #else - st_printf ("Fortran runtime warning: IEEE 'invalid operation' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'invalid operation' " + "exception not supported.\n"); #endif /* glibc does never have a FE_DENORMAL. */ @@ -49,39 +49,39 @@ void set_fpu (void) #ifdef FE_DENORMAL feenableexcept (FE_DENORMAL); #else - st_printf ("Fortran runtime warning: IEEE 'denormal number' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'denormal number' " + "exception not supported.\n"); #endif if (options.fpe & GFC_FPE_ZERO) #ifdef FE_DIVBYZERO feenableexcept (FE_DIVBYZERO); #else - st_printf ("Fortran runtime warning: IEEE 'division by zero' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'division by zero' " + "exception not supported.\n"); #endif if (options.fpe & GFC_FPE_OVERFLOW) #ifdef FE_OVERFLOW feenableexcept (FE_OVERFLOW); #else - st_printf ("Fortran runtime warning: IEEE 'overflow' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'overflow' " + "exception not supported.\n"); #endif if (options.fpe & GFC_FPE_UNDERFLOW) #ifdef FE_UNDERFLOW feenableexcept (FE_UNDERFLOW); #else - st_printf ("Fortran runtime warning: IEEE 'underflow' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'underflow' " + "exception not supported.\n"); #endif if (options.fpe & GFC_FPE_PRECISION) #ifdef FE_INEXACT feenableexcept (FE_INEXACT); #else - st_printf ("Fortran runtime warning: IEEE 'loss of precision' " - "exception not supported.\n"); + estr_write ("Fortran runtime warning: IEEE 'loss of precision' " + "exception not supported.\n"); #endif } |