(convert_to_real): Pass mode arg to REAL_VALUE_ATOF.

From-SVN: r3947

(convert_to_real): Pass mode arg to REAL_VALUE_ATOF.
From-SVN: r3947
d7889764 · Richard Stallman · e8650b8f · d7889764
Commit d7889764 authored Mar 31, 1993 by Richard Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 1 deletions

gcc/convert.c
+1 -1

No files found.
--- 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;
  }
 }