diff options
| author | Martin Sebor <msebor@redhat.com> | 2021-06-28 14:18:06 -0600 |
|---|---|---|
| committer | Martin Sebor <msebor@redhat.com> | 2021-06-28 14:18:06 -0600 |
| commit | 8c7dfbb8f3d55be6bed27a6889ebae30c0e7a044 (patch) | |
| tree | fd25f09bffde40d4bd89f6276387ef7873068104 /gcc/ada/gcc-interface/utils.c | |
| parent | 42ff474e28fa3c857296963542bc0b9e1f922b00 (diff) | |
| download | gcc-8c7dfbb8f3d55be6bed27a6889ebae30c0e7a044.zip gcc-8c7dfbb8f3d55be6bed27a6889ebae30c0e7a044.tar.gz gcc-8c7dfbb8f3d55be6bed27a6889ebae30c0e7a044.tar.bz2 | |
ada: Add support for per-location warning groups.
gcc/ada/ChangeLog:
* gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu):
Replace TREE_NO_WARNING with suppress_warning.
(gnat_gimplify_expr): Same.
* gcc-interface/utils.c (gnat_pushdecl): Same.
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 1786fbf..982274c 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -836,7 +836,8 @@ gnat_pushdecl (tree decl, Node_Id gnat_node) if (!deferred_decl_context) DECL_CONTEXT (decl) = context; - TREE_NO_WARNING (decl) = (No (gnat_node) || Warnings_Off (gnat_node)); + suppress_warning (decl, all_warnings, + No (gnat_node) || Warnings_Off (gnat_node)); /* Set the location of DECL and emit a declaration for it. */ if (Present (gnat_node) && !renaming_from_instantiation_p (gnat_node)) |