From: Richard Stallman <rms@gnu.org>
Date: Wed, 31 Mar 1993 07:02:59 +0000 (+0000)
Subject: (convert_to_real): Pass mode arg to REAL_VALUE_ATOF.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d7889764961d8de3eac9063dea538411668f49ba;p=gcc.git

(convert_to_real): Pass mode arg to REAL_VALUE_ATOF.

From-SVN: r3947
---

diff --git a/gcc/convert.c b/gcc/convert.c
index a063a6e88e1..62bcaf2b3f2 100644
--- a/gcc/convert.c
+++ b/gcc/convert.c
@@ -100,7 +100,7 @@ convert_to_real (type, expr)
   {
     register tree tem = make_node (REAL_CST);
     TREE_TYPE (tem) = type;
-    TREE_REAL_CST (tem) = REAL_VALUE_ATOF ("0.0");
+    TREE_REAL_CST (tem) = REAL_VALUE_ATOF ("0.0", TYPE_MODE (type));
     return tem;
   }
 }