exp_ch4.adb (Expand_Composite_Equality): If a component is an unchecked union with...

exp_ch4.adb (Expand_Composite_Equality): If a component is an unchecked union with no inferable discriminants...

	* exp_ch4.adb (Expand_Composite_Equality): If a component is an
	unchecked union with no inferable discriminants, return a
	Raise_Program_Error node, rather than inserting it at the point the
	type is frozen.
	(Expand_Record_Equality, Component_Equality): Handle properly the case
	where some subcomponent is an unchecked union whose generated equality
	code raises program error.

From-SVN: r94814