From 19456797d1d0aa059b9892698f0f979fa29d824c Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Mon, 17 May 2021 15:39:29 -0400 Subject: [PATCH] [Ada] Linker_Section_Pragma cleanup gcc/ada/ * gen_il-gen-gen_entities.adb: Remove Linker_Section_Pragma field from Record_Field_Kind. Minor comment improvement. --- gcc/ada/gen_il-gen-gen_entities.adb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gcc/ada/gen_il-gen-gen_entities.adb b/gcc/ada/gen_il-gen-gen_entities.adb index 1c6a518..d5977ad 100644 --- a/gcc/ada/gen_il-gen-gen_entities.adb +++ b/gcc/ada/gen_il-gen-gen_entities.adb @@ -315,15 +315,14 @@ begin -- Gen_IL.Gen.Gen_Entities Sm (Entry_Formal, Node_Id), Sm (Esize, Uint), Sm (Interface_Name, Node_Id), - Sm (Linker_Section_Pragma, Node_Id), Sm (Normalized_First_Bit, Uint), Sm (Normalized_Position, Uint), Sm (Normalized_Position_Max, Uint), Sm (Original_Record_Component, Node_Id))); Cc (E_Component, Record_Field_Kind, - -- Components of a record declaration, private declarations of - -- protected objects. + -- Components (other than discriminants) of a record declaration, + -- private declarations of protected objects. (Sm (Discriminant_Checking_Func, Node_Id), Sm (DT_Entry_Count, Uint, Pre => "Is_Tag (N)"), -- 2.7.4