diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-07-02 14:06:58 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-19 05:53:34 -0400 |
| commit | b0fa1c68067383359e44e3748d2d51654edaf425 (patch) | |
| tree | ceee1ace7808d5d80988da988d572c8b4633170f /gcc/ada | |
| parent | 5a36f3d9b8693e9ec5e153000cc2e9fa40c47cab (diff) | |
| download | gcc-b0fa1c68067383359e44e3748d2d51654edaf425.zip gcc-b0fa1c68067383359e44e3748d2d51654edaf425.tar.gz gcc-b0fa1c68067383359e44e3748d2d51654edaf425.tar.bz2 | |
[Ada] Refine type of a local variable
gcc/ada/
* exp_ch6.adb (Is_Direct_Deep_Call): Refine type from Node_Id to
Entity_Id.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index a1e545c..32d75f1 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)); |