diff options
author | Richard Kenner <kenner@adacore.com> | 2023-01-22 12:38:41 -0500 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-16 10:30:57 +0200 |
commit | 66152ecdaebfce758cb5bd00702449dd2c584e68 (patch) | |
tree | ccfeed3929c4179b094e53524bfebd2bfa35c804 /gcc | |
parent | 5c6e261645296b9175c5bbd6d5bf6341cc80bdd0 (diff) | |
download | gcc-66152ecdaebfce758cb5bd00702449dd2c584e68.zip gcc-66152ecdaebfce758cb5bd00702449dd2c584e68.tar.gz gcc-66152ecdaebfce758cb5bd00702449dd2c584e68.tar.bz2 |
ada: Get name from entity if that's what's passed to Subprogram_Name
gcc/ada/
* sem_util.adb (Subprogram_Name): If what's passed is already an
entity, use that for the name.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/sem_util.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index eb0d08a1..8bce022 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -28095,6 +28095,9 @@ package body Sem_Util is Ent := Defining_Identifier (Ent); exit; + when N_Entity => + exit; + when others => null; end case; |