mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-14 23:31:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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>
* 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
Write float code factoring to this file 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;\
tmp = * (GFC_REAL_ ## x *)source;\
sign_bit = signbit (tmp);\
sign_bit = __builtin_signbit (tmp);\
if (!isfinite (tmp))\
{ \
write_infnan (dtp, f, isnan (tmp), sign_bit);\