OSDN Git Service

* io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.
authorro <ro@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 24 Feb 2010 15:35:40 +0000 (15:35 +0000)
committerro <ro@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 24 Feb 2010 15:35:40 +0000 (15:35 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@157048 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/io/write_float.def

index 0d33a7d..b674f5c 100644 (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.
index eca0e56..b945eb0 100644 (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);\