Commit 6d142a10 by Richard Stallman

(store_parm_decls,combine_parm_decls): Call layout_decl for a parm declared...

(store_parm_decls,combine_parm_decls): Call layout_decl
for a parm declared float when it is changed to double under a
traditional compilation.

From-SVN: r3652
parent 502d58a6
...@@ -5808,7 +5808,11 @@ store_parm_decls () ...@@ -5808,7 +5808,11 @@ store_parm_decls ()
/* Traditionally, a parm declared float is actually a double. */ /* Traditionally, a parm declared float is actually a double. */
if (found && flag_traditional if (found && flag_traditional
&& TYPE_MAIN_VARIANT (TREE_TYPE (found)) == float_type_node) && TYPE_MAIN_VARIANT (TREE_TYPE (found)) == float_type_node)
TREE_TYPE (found) = double_type_node; {
TREE_TYPE (found) = double_type_node;
DECL_ARG_TYPE (found) = double_type_node;
layout_decl (found, 0);
}
/* If no declaration found, default to int. */ /* If no declaration found, default to int. */
if (!found) if (!found)
...@@ -6090,7 +6094,11 @@ combine_parm_decls (specparms, parmlist, void_at_end) ...@@ -6090,7 +6094,11 @@ combine_parm_decls (specparms, parmlist, void_at_end)
/* Traditionally, a parm declared float is actually a double. */ /* Traditionally, a parm declared float is actually a double. */
if (found && flag_traditional if (found && flag_traditional
&& TYPE_MAIN_VARIANT (TREE_TYPE (found)) == float_type_node) && TYPE_MAIN_VARIANT (TREE_TYPE (found)) == float_type_node)
TREE_TYPE (found) = double_type_node; {
TREE_TYPE (found) = double_type_node;
DECL_ARG_TYPE (found) = double_type_node;
layout_decl (found, 0);
}
/* If no declaration found, default to int. */ /* If no declaration found, default to int. */
if (!found) if (!found)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment