(output_constructor): Use the type given
by the constructor expression only if available. Otherwise
use the type of the declared type.
From-SVN: r5390
if (TREE_CODE (TREE_TYPE (exp)) == RECORD_TYPE
|| TREE_CODE (TREE_TYPE (exp)) == UNION_TYPE)
- field = TREE_PURPOSE (link);
+ {
+ /* if available, use the type given by link */
+ if (TREE_PURPOSE (link) != 0)
+ field = TREE_PURPOSE (link);
+ }
if (TREE_CODE (TREE_TYPE (exp)) == ARRAY_TYPE)
index = TREE_PURPOSE (link);