From 10ca293141e0e8178de6d68473bd2ac607c6348b Mon Sep 17 00:00:00 2001 From: Justin Squirek Date: Thu, 12 Aug 2021 08:54:15 -0400 Subject: [PATCH] [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 --- gcc/ada/exp_dbug.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index a375169..96d78cc 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; -- 2.7.4