diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-10-27 16:34:20 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-11-09 09:44:48 +0000 |
| commit | e93e554454d855231f257b3b95f4105b4da60cc0 (patch) | |
| tree | 9047e87b6adfad86b897a334e63354ee244b0e16 | |
| parent | 0803fd245a35c4b465cdefff20364f0f6e9f6fa7 (diff) | |
| download | gcc-e93e554454d855231f257b3b95f4105b4da60cc0.zip gcc-e93e554454d855231f257b3b95f4105b4da60cc0.tar.gz gcc-e93e554454d855231f257b3b95f4105b4da60cc0.tar.bz2 | |
[Ada] Simplify building of entity occurrences
gcc/ada/
* tbuild.adb (New_Occurrence_Of): Simplify by reusing
Make_Identifier.
| -rw-r--r-- | gcc/ada/tbuild.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 4d9c1c4..bcd77c7 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -699,11 +699,10 @@ package body Tbuild is Loc : Source_Ptr) return Node_Id is pragma Assert (Present (Def_Id) and then Nkind (Def_Id) in N_Entity); - Occurrence : Node_Id; + Occurrence : constant Node_Id := + Make_Identifier (Loc, Chars (Def_Id)); begin - Occurrence := New_Node (N_Identifier, Loc); - Set_Chars (Occurrence, Chars (Def_Id)); Set_Entity (Occurrence, Def_Id); if Is_Type (Def_Id) then |