From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 2 Jul 2020 12:09:06 +0000 (+0200)
Subject: [Ada] Remove useless initialization and refine type of a local variable
X-Git-Tag: upstream/12.2.0~12915
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=52ad13baa53dcf13c9ec28e37196ac644abc60c4;p=platform%2Fupstream%2Fgcc.git

[Ada] Remove useless initialization and refine type of a local variable

gcc/ada/

	* exp_ch6.adb (Expand_Call_Helper): Cleanup.
---

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;