diff options
author | Bob Duff <duff@adacore.com> | 2021-05-17 15:39:29 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-07 16:23:13 +0000 |
commit | 19456797d1d0aa059b9892698f0f979fa29d824c (patch) | |
tree | 5d7468b9be44c46f287b6d1b8cf1fd85d7a98936 /gcc/ada | |
parent | d557a5f9cea39c4871af06e0684f94590d8bd97d (diff) | |
download | gcc-19456797d1d0aa059b9892698f0f979fa29d824c.zip gcc-19456797d1d0aa059b9892698f0f979fa29d824c.tar.gz gcc-19456797d1d0aa059b9892698f0f979fa29d824c.tar.bz2 |
[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.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/gen_il-gen-gen_entities.adb | 5 |
1 files 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)"), |