diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-05-27 11:12:28 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2019-05-27 11:12:28 +0000 |
| commit | b4c056d2df1264bad4f837b4ec743461f68edff1 (patch) | |
| tree | 6d668315ccdc7aeddec6f3bf30ab52d268ce50c5 /gcc/ada/gcc-interface/utils.c | |
| parent | eb0f4e48fafd54870e5326b2febdc06cad80d176 (diff) | |
| download | gcc-b4c056d2df1264bad4f837b4ec743461f68edff1.zip gcc-b4c056d2df1264bad4f837b4ec743461f68edff1.tar.gz gcc-b4c056d2df1264bad4f837b4ec743461f68edff1.tar.bz2 | |
utils.c (maybe_pad_type): Issue the warning for the specific case of component types preferably.
* gcc-interface/utils.c (maybe_pad_type): Issue the warning for the
specific case of component types preferably.
From-SVN: r271655
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index da4e100..ab8b93a 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1530,14 +1530,14 @@ built: generated for some other corresponding source entity. */ if (Comes_From_Source (gnat_entity)) { - if (Present (gnat_error_node)) - post_error_ne_tree ("{^ }bits of & unused?", - gnat_error_node, gnat_entity, - size_diffop (size, orig_size)); - else if (is_component_type) + if (is_component_type) post_error_ne_tree ("component of& padded{ by ^ bits}?", gnat_entity, gnat_entity, size_diffop (size, orig_size)); + else if (Present (gnat_error_node)) + post_error_ne_tree ("{^ }bits of & unused?", + gnat_error_node, gnat_entity, + size_diffop (size, orig_size)); } } |