From: Ronan Desplanques <desplanq...@adacore.com>
A previous change cleaned up the Ekind field of record component
entities. That made a particular test obsolete, so this patch removes
that test.
gcc/ada/ChangeLog:
* einfo-utils.adb (Set_Convention): Remove obsolete test.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/einfo-utils.adb | 9 +--------
1 file changed, 1 insertion(+), 8 deletions(-)
diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb
index 15f5b990848..91d273cb32d 100644
--- a/gcc/ada/einfo-utils.adb
+++ b/gcc/ada/einfo-utils.adb
@@ -2639,14 +2639,7 @@ package body Einfo.Utils is
-- anonymous protected types, since protected types always have the
-- default convention.
- if Present (Etype (E))
- and then (Is_Object (E)
-
- -- Allow E_Void (happens for pragma Convention appearing
- -- in the middle of a record applying to a component)
-
- or else Ekind (E) = E_Void)
- then
+ if Present (Etype (E)) and then Is_Object (E) then
declare
Typ : constant Entity_Id := Etype (E);
--
2.43.0
