(convert_to_real): Pass mode arg to REAL_VALUE_ATOF.

From-SVN: r3947
This commit is contained in:
Richard Stallman 1993-03-31 07:02:59 +00:00
parent e8650b8fcc
commit d788976496
1 changed files with 1 additions and 1 deletions

View 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;
}
}