diff options
| author | Martin Liska <mliska@suse.cz> | 2021-06-29 08:49:26 +0200 |
|---|---|---|
| committer | Martin Liska <mliska@suse.cz> | 2021-06-29 08:49:26 +0200 |
| commit | 490d1e1be15b62b51a2de248e6d7f76356402bc9 (patch) | |
| tree | a140872a97abd647ca0e5287e5375b7514be227b /gcc/ada | |
| parent | adf0825ae77554b00615521a545b608892bb272c (diff) | |
| parent | 095a01cf6e3883b3083cf339b680cdb39910f529 (diff) | |
| download | gcc-490d1e1be15b62b51a2de248e6d7f76356402bc9.zip gcc-490d1e1be15b62b51a2de248e6d7f76356402bc9.tar.gz gcc-490d1e1be15b62b51a2de248e6d7f76356402bc9.tar.bz2 | |
Merge branch 'master' into devel/sphinx
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
3 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 11001cd..0841a93 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2021-06-28 Martin Sebor <msebor@redhat.com> + + * 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. + 2021-06-21 Gary Dismukes <dismukes@adacore.com> * checks.adb (Selected_Range_Checks): In the case of a diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index feb3a7e..6a7424f 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -5363,7 +5363,7 @@ Handled_Sequence_Of_Statements_to_gnu (Node_Id gnat_node) because of the unstructured form of EH used by fe_sjlj_eh, there might be forward edges going to __builtin_setjmp receivers on which it is uninitialized, although they will never be actually taken. */ - TREE_NO_WARNING (gnu_jmpsave_decl) = 1; + suppress_warning (gnu_jmpsave_decl, OPT_Wuninitialized); gnu_jmpbuf_decl = create_var_decl (get_identifier ("JMP_BUF"), NULL_TREE, jmpbuf_type, @@ -8805,7 +8805,7 @@ gnat_gimplify_expr (tree *expr_p, gimple_seq *pre_p, else { *expr_p = create_tmp_var (type, NULL); - TREE_NO_WARNING (*expr_p) = 1; + suppress_warning (*expr_p); } gimplify_and_add (TREE_OPERAND (expr, 0), pre_p); 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)) |