diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-04-25 16:05:33 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-06-13 15:30:30 +0200 |
| commit | 72ccc99d6fc22aaae4aaf74027329acafd70cbfc (patch) | |
| tree | b5fec135ac90ca97146f7ee1ea0b6b28677ec992 /gcc | |
| parent | cdc0270f93360b9bee6c3e5e07677a37315346fd (diff) | |
| download | gcc-72ccc99d6fc22aaae4aaf74027329acafd70cbfc.zip gcc-72ccc99d6fc22aaae4aaf74027329acafd70cbfc.tar.gz gcc-72ccc99d6fc22aaae4aaf74027329acafd70cbfc.tar.bz2 | |
ada: Fix oversight in latest finalization fix
The Defining_Identifier of a renaming may be a E_Constant in the context.
gcc/ada/
PR ada/114710
* exp_util.adb (Find_Renamed_Object): Recurse for any renaming.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index bf95b0e..6e2168a 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -8881,7 +8881,7 @@ package body Exp_Util is -- Recurse if Ren_Obj is itself a renaming if Present (Ren_Obj) - and then Ekind (Ren_Obj) = E_Variable + and then Ekind (Ren_Obj) in E_Constant | E_Variable and then Present (Renamed_Object (Ren_Obj)) then return Find_Renamed_Object (Declaration_Node (Ren_Obj)); |