[gcc r15-5676] ada: Clean up utility function

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:22bd31334267d40435c353632fae86f648a20ace

commit r15-5676-g22bd31334267d40435c353632fae86f648a20ace
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Tue Nov 12 09:31:35 2024 +0100

    ada: Clean up utility function
    
    This patch makes Sem_Util.Get_Library_Unit_Name use Uname more 
idiomatically.
    
    gcc/ada/ChangeLog:
    
            * sem_util.adb (Get_Library_Unit_Name): Improve use of Uname.

Diff:
---
 gcc/ada/sem_util.adb | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index a7869397bfcd..30c1a5236ae7 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -10656,15 +10656,9 @@ package body Sem_Util is
 
    function Get_Library_Unit_Name (Decl_Node : Node_Id) return String_Id is
       Unit_Name_Id : constant Unit_Name_Type := Get_Unit_Name (Decl_Node);
-      Buf : Bounded_String;
+      Buf          : Bounded_String;
    begin
-      Get_Unit_Name_String (Buf, Unit_Name_Id);
-
-      --  Remove the last seven characters (" (spec)" or " (body)")
-
-      Buf.Length := Buf.Length - 7;
-      pragma Assert (Buf.Chars (Buf.Length + 1) = ' ');
-
+      Get_Unit_Name_String (Buf, Unit_Name_Id, Suffix => False);
       return String_From_Name_Buffer (Buf);
    end Get_Library_Unit_Name;