From: Richard Kenner <kenner@adacore.com>
Date: Sun, 22 Jan 2023 17:38:41 +0000 (-0500)
Subject: ada: Get name from entity if that's what's passed to Subprogram_Name
X-Git-Tag: basepoints/gcc-15~9254
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=66152ecdaebfce758cb5bd00702449dd2c584e68;p=thirdparty%2Fgcc.git

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.
---

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index eb0d08a18517..8bce02298674 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;