git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* io/write_float.def (WRITE_FLOAT): Use __builtin_signbit. 

From-SVN: r157048
This commit is contained in:
Rainer Orth 2010-02-24 15:35:40 +00:00 committed by Rainer Orth
parent 9da60d2a10
commit 28c64ec893
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2010-02-24 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.
2010-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2010-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io/list_read.c (list_formatted_read_scalar): Remove duplicate code. * io/list_read.c (list_formatted_read_scalar): Remove duplicate code.

4
libgfortran/io/write_float.def
View File

@ -1,4 +1,4 @@
/* Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. /* Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
Contributed by Andy Vaught Contributed by Andy Vaught
Write float code factoring to this file by Jerry DeLisle Write float code factoring to this file by Jerry DeLisle
F2003 I/O support contributed by Jerry DeLisle F2003 I/O support contributed by Jerry DeLisle
@ -818,7 +818,7 @@ sprintf (buffer, "%+-#" STR(MIN_FIELD_WIDTH) ".*" \
{\ {\
GFC_REAL_ ## x tmp;\ GFC_REAL_ ## x tmp;\
tmp = * (GFC_REAL_ ## x *)source;\ tmp = * (GFC_REAL_ ## x *)source;\
sign_bit = signbit (tmp);\ sign_bit = __builtin_signbit (tmp);\
if (!isfinite (tmp))\ if (!isfinite (tmp))\
{ \ { \
write_infnan (dtp, f, isnan (tmp), sign_bit);\ write_infnan (dtp, f, isnan (tmp), sign_bit);\