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

From-SVN: r157048

* io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.
From-SVN: r157048
28c64ec8 · Rainer Orth · Rainer Orth · 9da60d2a · 28c64ec8 · 28c64ec8
Commit 28c64ec8 authored Feb 24, 2010 by Rainer Orth Committed by Rainer Orth Feb 24, 2010
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

libgfortran/ChangeLog
+4 -0

libgfortran/io/write_float.def
+2 -2

No files found.
--- a/libgfortran/ChangeLog
+++ b/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>

 	* io/list_read.c (list_formatted_read_scalar): Remove duplicate code.

--- a/libgfortran/io/write_float.def
+++ b/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
   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);\