From: Ronan Desplanques <desplanq...@adacore.com>
"Typ" is typically used to name constants that are entity IDs for types.
Before this patch, a constant local to Analyze_Component_Declaration
designating a syntactic subtype indication had that name. This patch
renames it to "Ind".
Code cleanup; behavior is unaffected.
gcc/ada/ChangeLog:
* sem_ch3.adb (Analyze_Component_Declaration): Rename constant.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/sem_ch3.adb | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 45f7dc90aa4..fb24f0f5db2 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -1953,7 +1953,7 @@ package body Sem_Ch3 is
procedure Analyze_Component_Declaration (N : Node_Id) is
Id : constant Entity_Id := Defining_Identifier (N);
E : constant Node_Id := Expression (N);
- Typ : constant Node_Id :=
+ Ind : constant Node_Id :=
Subtype_Indication (Component_Definition (N));
T : Entity_Id;
P : Entity_Id;
@@ -2052,7 +2052,7 @@ package body Sem_Ch3 is
Generate_Definition (Id);
Enter_Name (Id);
- if Present (Typ) then
+ if Present (Ind) then
T := Find_Type_Of_Object
(Subtype_Indication (Component_Definition (N)), N);
--
2.43.0
