From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 2 Jul 2020 12:06:58 +0000 (+0200)
Subject: [Ada] Refine type of a local variable
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b0fa1c68067383359e44e3748d2d51654edaf425;p=gcc.git

[Ada] Refine type of a local variable

gcc/ada/

	* exp_ch6.adb (Is_Direct_Deep_Call): Refine type from Node_Id to
	Entity_Id.
---

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index a1e545c6997..32d75f1d0e5 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -3215,7 +3215,7 @@ package body Exp_Ch6 is
          then
             declare
                Actual : Node_Id;
-               Formal : Node_Id;
+               Formal : Entity_Id;
 
             begin
                Actual := First (Parameter_Associations (Call_Node));