Commit 3e86c778 by Eric Botcazou Committed by Eric Botcazou

decl.c (gnat_to_gnu_entity): Remove obsolete test on Is_For_Access_Subtype.

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Subtype>: Remove
	obsolete test on Is_For_Access_Subtype.

From-SVN: r271683
parent f65f371b
2019-05-28 Eric Botcazou <ebotcazou@adacore.com> 2019-05-28 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Subtype>: Remove
obsolete test on Is_For_Access_Subtype.
2019-05-28 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (components_to_record): Set a name on the type * gcc-interface/decl.c (components_to_record): Set a name on the type
created for the REP part, if any. created for the REP part, if any.
* gcc-interface/utils.c (finish_record_type): Only take the maximum * gcc-interface/utils.c (finish_record_type): Only take the maximum
......
...@@ -3373,7 +3373,6 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) ...@@ -3373,7 +3373,6 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
Unchecked_Union (it must be an Itype), just return the type. */ Unchecked_Union (it must be an Itype), just return the type. */
if (Has_Discriminants (gnat_entity) if (Has_Discriminants (gnat_entity)
&& Stored_Constraint (gnat_entity) != No_Elist && Stored_Constraint (gnat_entity) != No_Elist
&& !Is_For_Access_Subtype (gnat_entity)
&& Is_Record_Type (gnat_base_type) && Is_Record_Type (gnat_base_type)
&& !Is_Unchecked_Union (gnat_base_type)) && !Is_Unchecked_Union (gnat_base_type))
{ {
......
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