From: Justin Squirek <squirek@adacore.com>
Date: Thu, 12 Aug 2021 12:54:15 +0000 (-0400)
Subject: [Ada] Crash on renaming within declare expression
X-Git-Tag: basepoints/gcc-13~4292
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=10ca293141e0e8178de6d68473bd2ac607c6348b;p=thirdparty%2Fgcc.git

[Ada] Crash on renaming within declare expression

gcc/ada/

	* exp_dbug.adb (Debug_Renaming_Declaration): Add check for
	Entity present for Ren to prevent looking at unanalyzed nodes
---

diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb
index a3751691f282..96d78cc97ca0 100644
--- a/gcc/ada/exp_dbug.adb
+++ b/gcc/ada/exp_dbug.adb
@@ -409,7 +409,9 @@ package body Exp_Dbug is
             when N_Expanded_Name
                | N_Identifier
             =>
-               if not Present (Renamed_Object (Entity (Ren))) then
+               if No (Entity (Ren))
+                 or else not Present (Renamed_Object (Entity (Ren)))
+               then
                   exit;
                end if;