[Ada] Refine types of local variables in analysis of expression functions

gcc/ada/

	* sem_ch6.adb (Analyze_Expression_Function): Change types local
	variables from Entity_Id to Node_Id.
This commit is contained in:
Piotr Trojanek 2021-05-28 14:51:43 +02:00 committed by Pierre-Marie de Rodat
parent 48096ca4ac
commit 8bab88ba7b

View File

@ -640,9 +640,9 @@ package body Sem_Ch6 is
if Present (Parameter_Specifications (New_Spec)) then
declare
Form_New_Def : Entity_Id;
Form_New_Spec : Entity_Id;
Form_New_Spec : Node_Id;
Form_Old_Def : Entity_Id;
Form_Old_Spec : Entity_Id;
Form_Old_Spec : Node_Id;
begin
Form_New_Spec := First (Parameter_Specifications (New_Spec));