diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-07-15 22:42:26 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-23 13:06:17 +0000 |
| commit | 96783caedcbde030672350dd3ac2118fe4f8e73f (patch) | |
| tree | 2402e8d0b198450926112545745b30ed52f60af5 /gcc/ada/gcc-interface/decl.c | |
| parent | c20222ed49c0e6ec5520286f742c2999e14e4d03 (diff) | |
| download | gcc-96783caedcbde030672350dd3ac2118fe4f8e73f.zip gcc-96783caedcbde030672350dd3ac2118fe4f8e73f.tar.gz gcc-96783caedcbde030672350dd3ac2118fe4f8e73f.tar.bz2 | |
[Ada] Fix obsolete comment mentioning girder discriminants
gcc/ada/
* gcc-interface/decl.c (gnat_to_gnu_entity): Fix comment.
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 32142d0..13e9004 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -557,7 +557,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) /* If the entity is an inherited component (in the case of extended tagged record types), just return the original entity, which must be a FIELD_DECL. Likewise for discriminants. If the entity is a - non-girder discriminant (in the case of derived untagged record + non-stored discriminant (in the case of derived untagged record types), return the stored discriminant it renames. */ if (Present (Original_Record_Component (gnat_entity)) && Original_Record_Component (gnat_entity) != gnat_entity) |