Skip to content

R
riscv-gcc-1
Commit 28c64ec8 by Rainer Orth Committed by Rainer Orth
Options

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

From-SVN: r157048
parent 9da60d2a
Showing with 6 additions and 2 deletions
libgfortran/ChangeLog
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.
......
libgfortran/io/write_float.def
/* 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) ".*" \ ...@@ -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);\
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment