[Ada] Remove useless initialization and refine type of a local variable
authorPiotr Trojanek <trojanek@adacore.com>
Thu, 2 Jul 2020 12:09:06 +0000 (14:09 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 19 Oct 2020 09:53:34 +0000 (05:53 -0400)
gcc/ada/

* exp_ch6.adb (Expand_Call_Helper): Cleanup.

gcc/ada/exp_ch6.adb

index 32d75f1d0e56364bee9a8effc2cc6ab09b34287e..38d4c81141d4575b763ec4015155e2b88d35612a 100644 (file)
@@ -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;