From: Eric Botcazou <ebotca...@adacore.com>
The assignment sets the Etype of a node to itsef.
gcc/ada/ChangeLog:
* sem_ch4.adb (Analyze_Allocator): Do not set Etype to itself.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/sem_ch4.adb | 2 --
1 file changed, 2 deletions(-)
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
--
2.43.0
