From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 29 Jan 2024 15:32:19 +0000 (+0100)
Subject: ada: Refine type of a local variable
X-Git-Tag: basepoints/gcc-16~9140
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=da8847559413c15fb6da1455eb1184f7aa928678;p=thirdparty%2Fgcc.git

ada: Refine type of a local variable

Code cleanup; semantics is unaffected.

gcc/ada/

	* sem_util.adb (Has_No_Output): Iteration with
	First_Formal/Next_Formal involves Entity_Ids.
---

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e9ab6650dac..03055039a1f 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -4203,7 +4203,7 @@ package body Sem_Util is
             -------------------
 
             function Has_No_Output (Subp : Entity_Id) return Boolean is
-               Param : Node_Id;
+               Param : Entity_Id;
 
             begin
                --  A function has its result as output