From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 6 May 2025 07:03:44 +0000 (+0200)
Subject: ada: Remove dead assignment
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fc23c496e123be827df0e0d768a81a1204746e5a;p=thirdparty%2Fgcc.git

ada: Remove dead assignment

The assignment sets the Etype of a node to itsef.

gcc/ada/ChangeLog:

	* sem_ch4.adb (Analyze_Allocator): Do not set Etype to itself.
---

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index ec48edda9f4..89beb2b9a7e 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -594,8 +594,6 @@ package body Sem_Ch4 is
          --  part of the allocator. It is fully analyzed and resolved when
          --  the allocator is resolved with the context type.
 
-         Set_Etype  (E, Type_Id);
-
       --  Case where allocator has a subtype indication
 
       else