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 ec48edda9f40dbdc0c852a5517dbd331ea14e2ca..89beb2b9a7e019ce006386f010d3e51e36dbbfea 100644 (file)
--- 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