diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-07-02 14:09:06 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-19 05:53:34 -0400 |
| commit | 52ad13baa53dcf13c9ec28e37196ac644abc60c4 (patch) | |
| tree | 64b3116fdde907adf52566f86ed0d60d66f3535b /gcc | |
| parent | b0fa1c68067383359e44e3748d2d51654edaf425 (diff) | |
| download | gcc-52ad13baa53dcf13c9ec28e37196ac644abc60c4.zip gcc-52ad13baa53dcf13c9ec28e37196ac644abc60c4.tar.gz gcc-52ad13baa53dcf13c9ec28e37196ac644abc60c4.tar.bz2 | |
[Ada] Remove useless initialization and refine type of a local variable
gcc/ada/
* exp_ch6.adb (Expand_Call_Helper): Cleanup.
Diffstat (limited to 'gcc')
| -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 32d75f1..38d4c81 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -3259,7 +3259,7 @@ package body Exp_Ch6 is Actual : Node_Id; Formal : Entity_Id; Orig_Subp : Entity_Id := Empty; - Param_Count : Natural := 0; + Param_Count : Positive; Parent_Formal : Entity_Id; Parent_Subp : Entity_Id; Prev_Ult : Node_Id; |