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.

diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index 3646003b3306c75134f5e3ea406baa9c5ab5abe3..fbd5888b19812704e41e58ca5a9fc9c6aa8fbe1e 100644 (file)
--- 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;