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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 8c22c322a2c5c375138ae64054a48881e114f6a4..145246d32958a7e6e36af9fd38d2277f3a74ed1b 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 dc23743b55f5895bd756f99607a8b08e5eec4d9f..da8fbe69e23770d8362be1316039ac0220d70146 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))
            {