From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 27 Jun 2022 15:33:46 +0000 (+0200)
Subject: [Ada] Undo questionable renaming in earlier change
X-Git-Tag: basepoints/gcc-14~5528
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0888e1fea16fa019c424c21989d5bf130f5ec130;p=thirdparty%2Fgcc.git

[Ada] Undo questionable renaming in earlier change

gcc/ada/

	* gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Access_Subtype>:
	Undo questionable renaming.
---

diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 53c84613e6a..217414312c7 100644
--- a/gcc/ada/gcc-interface/decl.cc
+++ b/gcc/ada/gcc-interface/decl.cc
@@ -3883,7 +3883,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
 	  && Is_Frozen (Directly_Designated_Type (gnat_entity))
 	  && No (Freeze_Node (Directly_Designated_Type (gnat_entity))))
 	{
-	  tree gnu_desig_type
+	  tree gnu_design_base_type
 	    = TYPE_IS_FAT_POINTER_P (gnu_type)
 	      ? TREE_TYPE (TREE_TYPE (TYPE_FIELDS (gnu_type)))
 	      : TREE_TYPE (gnu_type);
@@ -3903,7 +3903,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
 
 	  /* Otherwise elaborate the designated subtype only if its base type
 	     has already been elaborated.  */
-	  else if (!TYPE_IS_DUMMY_P (gnu_desig_type))
+	  else if (!TYPE_IS_DUMMY_P (gnu_design_base_type))
 	    gnat_to_gnu_entity (Directly_Designated_Type (gnat_entity),
 				NULL_TREE, false);
 	}