From 52ad13baa53dcf13c9ec28e37196ac644abc60c4 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 2 Jul 2020 14:09:06 +0200 Subject: [PATCH] [Ada] Remove useless initialization and refine type of a local variable gcc/ada/ * exp_ch6.adb (Expand_Call_Helper): Cleanup. --- gcc/ada/exp_ch6.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.7.4