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 | |
| parent | 5c6e261645296b9175c5bbd6d5bf6341cc80bdd0 (diff) | |
| download | gcc-66152ecdaebfce758cb5bd00702449dd2c584e68.tar.gz | |
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.
| -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 eb0d08a1851..8bce0229867 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; |