(convert_to_real): Pass mode arg to REAL_VALUE_ATOF.
authorRichard Stallman <rms@gnu.org>
Wed, 31 Mar 1993 07:02:59 +0000 (07:02 +0000)
committerRichard Stallman <rms@gnu.org>
Wed, 31 Mar 1993 07:02:59 +0000 (07:02 +0000)
From-SVN: r3947

gcc/convert.c

index a063a6e88e109f6585c1880c29cf401708febb0b..62bcaf2b3f2b4612dcaab8534b2ee70a516ca16e 100644 (file)
@@ -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;
   }
 }