From: Viljar Indus <indus@adacore.com>
Date: Tue, 14 Jan 2025 11:31:04 +0000 (+0200)
Subject: ada: Mark constants inside a declare expression as referenced
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=453724978e48cc0fb9854cbb961ba2cd96192ba8;p=thirdparty%2Fgcc.git

ada: Mark constants inside a declare expression as referenced

Expressions within a declare expression were simply bound to
locally defined constants. However they were never marked as
referenced. This would trigger an unreferenced constant warning
if -gnatwu was used.

gcc/ada/ChangeLog:

	* sem_res.adb (Resolve_Declare_Expression): Mark used
	local variables inside a declare expression as referenced.
---

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index bbf7bb95ed8..865f967a5b9 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -7806,6 +7806,7 @@ package body Sem_Res is
          then
             Set_Entity (N, Local);
             Set_Etype (N, Etype (Local));
+            Generate_Reference (Local, N);
          end if;
 
          return OK;