diff mbox series

[COMMITTED] ada: Reuse idiomatic procedure in CStand

Message ID 20230522085158.1727700-1-poulhies@adacore.com
State Accepted
Headers
Series [COMMITTED] ada: Reuse idiomatic procedure in CStand |

Checks

Context Check Description
snail/gcc-patch-check success Github commit url

Commit Message

Marc Poulhiès May 22, 2023, 8:51 a.m. UTC 
  From: Ronan Desplanques <desplanques@adacore.com>

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.

---
 gcc/ada/cstand.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)
diff mbox series

Patch

diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index 3646003b330..fbd5888b198 100644
--- 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;