diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2017-05-15 08:14:32 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2017-05-15 08:14:32 +0000 |
| commit | b1b2b511e525b098204c590b0eafa7d36092b7e1 (patch) | |
| tree | bcc1d733b4e48add82745d886ea9a58bd46a228d /gcc/ada/gcc-interface/decl.c | |
| parent | 04bc3c93bec894ca85bc448b40af42545a280928 (diff) | |
| download | gcc-b1b2b511e525b098204c590b0eafa7d36092b7e1.zip gcc-b1b2b511e525b098204c590b0eafa7d36092b7e1.tar.gz gcc-b1b2b511e525b098204c590b0eafa7d36092b7e1.tar.bz2 | |
trans.c (gnat_to_gnu): Fix formatting.
* gcc-interface/trans.c (gnat_to_gnu) <N_Aggregate>: Fix formatting.
<N_Allocator>: Use properly typed constants.
(extract_values): Move around.
(pos_to_constructor): Minor tweaks.
(Sloc_to_locus): Fix formatting.
* gcc-interface/utils.c (process_deferred_decl_context): Minor tweaks.
* gcc-interface/gigi.h (MARK_VISITED): Remove blank line.
(Gigi_Equivalent_Type): Adjust head comment.
* gcc-interface/decl.c (Gigi_Equivalent_Type): Likewise.
From-SVN: r248050
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index b39b75a..dee59c0 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -3270,12 +3270,12 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) } /* If we have a derived untagged type that renames discriminants in - the root type, the (stored) discriminants are just a copy of the - discriminants of the root type. This means that any constraints - added by the renaming in the derivation are disregarded as far - as the layout of the derived type is concerned. To rescue them, - we change the type of the (stored) discriminants to a subtype - with the bounds of the type of the visible discriminants. */ + the parent type, the (stored) discriminants are just a copy of the + discriminants of the parent type. This means that any constraints + added by the renaming in the derivation are disregarded as far as + the layout of the derived type is concerned. To rescue them, we + change the type of the (stored) discriminants to a subtype with + the bounds of the type of the visible discriminants. */ if (has_discr && !is_extension && Stored_Constraint (gnat_entity) != No_Elist) @@ -4967,12 +4967,10 @@ finalize_from_limited_with (void) } } -/* Return the equivalent type to be used for GNAT_ENTITY, if it's a - kind of type (such E_Task_Type) that has a different type which Gigi - uses for its representation. If the type does not have a special type - for its representation, return GNAT_ENTITY. If a type is supposed to - exist, but does not, abort unless annotating types, in which case - return Empty. If GNAT_ENTITY is Empty, return Empty. */ +/* Return the equivalent type to be used for GNAT_ENTITY, if it's a kind + of type (such E_Task_Type) that has a different type which Gigi uses + for its representation. If the type does not have a special type for + its representation, return GNAT_ENTITY. */ Entity_Id Gigi_Equivalent_Type (Entity_Id gnat_entity) |