ada: Reuse idiomatic procedure in CStand

This change replaces a call to Set_Name_Entity_Id with a call to the higher-level Set_Current_Entity. gcc/ada/ * cstand.adb: Use more idiomatic procedure. Tested on x86_64-pc-linux-gnu, committed on master.
plctlab · May 22, 2023 · 2b4d74f · 2b4d74f
1 parent c2d62cd
commit 2b4d74f
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
@@ -1642,8 +1642,7 @@ package body CStand is
 
       for E in Standard_Entity_Type loop
          if Ekind (Standard_Entity (E)) /= E_Operator then
-            Set_Name_Entity_Id
-              (Chars (Standard_Entity (E)), Standard_Entity (E));
+            Set_Current_Entity (Standard_Entity (E));
             Set_Homonym (Standard_Entity (E), Empty);
          end if;