From 0888e1fea16fa019c424c21989d5bf130f5ec130 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 27 Jun 2022 17:33:46 +0200 Subject: [PATCH] [Ada] Undo questionable renaming in earlier change gcc/ada/ * gcc-interface/decl.cc (gnat_to_gnu_entity) : Undo questionable renaming. --- gcc/ada/gcc-interface/decl.cc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); } -- 2.47.3