projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5a36f3d)
[Ada] Refine type of a local variable
authorPiotr Trojanek <trojanek@adacore.com>
Thu, 2 Jul 2020 12:06:58 +0000 (14:06 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 19 Oct 2020 09:53:34 +0000 (05:53 -0400)
gcc/ada/

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

gcc/ada/exp_ch6.adb patch | blob | history

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index a1e545c6997e33fb4176fa857b0eb0c81fb96c78..32d75f1d0e56364bee9a8effc2cc6ab09b34287e 100644 (file)
--- 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));