From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 28 May 2021 12:51:43 +0000 (+0200)
Subject: [Ada] Refine types of local variables in analysis of expression functions
X-Git-Tag: basepoints/gcc-13~6121
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8bab88ba7bec025ef9db7ed5cb8d525fceab8636;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index aeb1cad2ac45..6bc72d65bf6e 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -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));