diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2022-06-27 17:33:46 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-13 10:01:21 +0000 |
| commit | 0888e1fea16fa019c424c21989d5bf130f5ec130 (patch) | |
| tree | baa23262e2359e8977b26f27385a29c6623fd82c /gcc/ada/gcc-interface/decl.cc | |
| parent | 258814a99e74fcc1ab9cccb16b4d14c997d83690 (diff) | |
| download | gcc-0888e1fea16fa019c424c21989d5bf130f5ec130.zip gcc-0888e1fea16fa019c424c21989d5bf130f5ec130.tar.gz gcc-0888e1fea16fa019c424c21989d5bf130f5ec130.tar.bz2 | |
[Ada] Undo questionable renaming in earlier change
gcc/ada/
* gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Access_Subtype>:
Undo questionable renaming.
Diffstat (limited to 'gcc/ada/gcc-interface/decl.cc')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.cc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc index 53c8461..2174143 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); } |