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: r271684

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index fe2870107aa19e5b5311b263c59825b8bcb477c3..edf853a2a25aa659507b6c707af7ebb3cd86d50e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 5d95d9aee49d8bbdcb8b292294298dc79e10ae48..aa88b008b949eb318555a8cd1f8952e992478a72 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -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.  */
          if (Has_Discriminants (gnat_entity)
              && Stored_Constraint (gnat_entity) != No_Elist
-             && !Is_For_Access_Subtype (gnat_entity)
              && Is_Record_Type (gnat_base_type)
              && !Is_Unchecked_Union (gnat_base_type))
            {