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/gigi.h | |
| 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/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 1d87b5b..1fc3448 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -88,7 +88,6 @@ extern void mark_visited (tree t); /* This macro calls the above function but short-circuits the common case of a constant to save time and also checks for NULL. */ - #define MARK_VISITED(EXP) \ do { \ if((EXP) && !CONSTANT_CLASS_P (EXP)) \ @@ -98,12 +97,10 @@ do { \ /* Finalize the processing of From_Limited_With incomplete types. */ extern void 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. */ extern Entity_Id Gigi_Equivalent_Type (Entity_Id gnat_entity); /* Given GNAT_ENTITY, elaborate all expressions that are required to |