1 files changed, 1 insertions, 10 deletions
diff --git a/gcc/ada/gen_il-fields.ads b/gcc/ada/gen_il-fields.ads
index 6cd1355..d25006c 100644
--- a/gcc/ada/gen_il-fields.ads
+++ b/gcc/ada/gen_il-fields.ads
@@ -131,7 +131,6 @@ package Gen_IL.Fields is
       Corresponding_Stub,
       Dcheck_Function,
       Declarations,
-      Default_Expression,
       Default_Storage_Pool,
       Default_Name,
       Default_Subtype_Mark,
@@ -153,7 +152,6 @@ package Gen_IL.Fields is
       Do_Length_Check,
       Do_Overflow_Check,
       Do_Range_Check,
-      Do_Storage_Check,
       Elaborate_All_Desirable,
       Elaborate_All_Present,
       Elaborate_Desirable,
@@ -161,7 +159,6 @@ package Gen_IL.Fields is
       Else_Actions,
       Else_Statements,
       Elsif_Parts,
-      Enclosing_Variant,
       End_Label,
       End_Span,
       Entity_Or_Associated_Node,
@@ -204,7 +201,6 @@ package Gen_IL.Fields is
       Generic_Parent,
       Generic_Parent_Type,
       Handled_Statement_Sequence,
-      Handler_List_Entry,
       Has_Created_Identifier,
       Has_Dereference_Action,
       Has_Dynamic_Length_Check,
@@ -283,7 +279,6 @@ package Gen_IL.Fields is
       Is_Static_Coextension,
       Is_Static_Expression,
       Is_Structural,
-      Is_Subprogram_Descriptor,
       Is_Task_Allocation_Block,
       Is_Task_Body_Procedure,
       Is_Task_Master,
@@ -376,7 +371,6 @@ package Gen_IL.Fields is
       Reason,
       Record_Extension_Part,
       Redundant_Use,
-      Renaming_Exception,
       Result_Definition,
       Return_Object_Declarations,
       Return_Statement_Entity,
@@ -480,8 +474,6 @@ package Gen_IL.Fields is
       Component_Clause,
       Component_Size,
       Component_Type,
-      Constructor_List,
-      Constructor_Name,
       Continue_Mark,
       Contract,
       Contract_Wrapper,
@@ -614,7 +606,6 @@ package Gen_IL.Fields is
       Has_Own_Invariants,
       Has_Partial_Visible_Refinement,
       Has_Per_Object_Constraint,
-      Has_Pragma_Controlled,
       Has_Pragma_Elaborate_Body,
       Has_Pragma_Inline,
       Has_Pragma_Inline_Always,
@@ -808,7 +799,6 @@ package Gen_IL.Fields is
       Is_Unchecked_Union,
       Is_Underlying_Full_View,
       Is_Underlying_Record_View,
-      Is_Unimplemented,
       Is_Unsigned_Type,
       Is_Uplevel_Referenced_Entity,
       Is_Valued_Procedure,
@@ -818,6 +808,7 @@ package Gen_IL.Fields is
       Is_Volatile_Object,
       Is_Volatile_Full_Access,
       Is_Wrapper,
+      Is_IEEE_Extended_Precision,
       Itype_Printed,
       Kill_Elaboration_Checks,
       Known_To_Have_Preelab_Init,