aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorBob Duff <duff@adacore.com>2021-05-17 15:39:29 -0400
committerPierre-Marie de Rodat <derodat@adacore.com>2021-07-07 16:23:13 +0000
commit19456797d1d0aa059b9892698f0f979fa29d824c (patch)
tree5d7468b9be44c46f287b6d1b8cf1fd85d7a98936 /gcc/ada
parentd557a5f9cea39c4871af06e0684f94590d8bd97d (diff)
downloadgcc-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.adb5
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)"),