diff options
author | Justin Squirek <squirek@adacore.com> | 2021-08-12 08:54:15 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-01 06:13:38 +0000 |
commit | 10ca293141e0e8178de6d68473bd2ac607c6348b (patch) | |
tree | 700664445bcf2e48a550e32a92818dee3abe7f9c | |
parent | 3323aa7ee7dd0cd9364816c80afae31d0dc7b186 (diff) | |
download | gcc-10ca293141e0e8178de6d68473bd2ac607c6348b.zip gcc-10ca293141e0e8178de6d68473bd2ac607c6348b.tar.gz gcc-10ca293141e0e8178de6d68473bd2ac607c6348b.tar.bz2 |
[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
-rw-r--r-- | gcc/ada/exp_dbug.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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; |