[gcc(refs/users/aoliva/heads/testme)] hardcfr: mark throw-expected functions [ada/gcc-interface]

[Alexandre Oliva <aoliva@gcc.gnu.org>]

https://gcc.gnu.org/g:bc96cc4a48c135466d637cc55db4615c7f8f5f7e

commit bc96cc4a48c135466d637cc55db4615c7f8f5f7e
Author: Alexandre Oliva <oliva@adacore.com>
Date:   Sat Oct 1 01:04:50 2022 -0300

    hardcfr: mark throw-expected functions [ada/gcc-interface]

Diff:
---
 gcc/ada/gcc-interface/trans.cc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc
index 2d93947cb26..8e0cd5a08ac 100644
--- a/gcc/ada/gcc-interface/trans.cc
+++ b/gcc/ada/gcc-interface/trans.cc
@@ -513,6 +513,7 @@ gigi (Node_Id gnat_root,
 			   ftype, NULL_TREE,
 			   is_default, true, true, true, false, false, NULL,
 			   Empty);
+  set_call_expr_flags (reraise_zcx_decl, ECF_NORETURN | ECF_THROW);
 
   /* Dummy objects to materialize "others" and "all others" in the exception
      tables.  These are exported by a-exexpr-gcc.adb, so see this unit for
@@ -552,6 +553,7 @@ gigi (Node_Id gnat_root,
 	  (get_identifier ("__gnat_last_chance_handler"), NULL_TREE, ftype,
 	   NULL_TREE, is_default, true, true, true, false, false, NULL,
 	   Empty);
+      set_call_expr_flags (decl, ECF_NORETURN | ECF_THROW);
       for (i = 0; i < (int) ARRAY_SIZE (gnat_raise_decls); i++)
 	gnat_raise_decls[i] = decl;
     }
@@ -715,6 +717,7 @@ build_raise_check (int check, enum exception_info_kind kind)
     = create_subprog_decl (get_identifier (Name_Buffer), NULL_TREE, ftype,
 			   NULL_TREE, is_default, true, true, true, false,
 			   false, NULL, Empty);
+  set_call_expr_flags (result, ECF_NORETURN | ECF_THROW);
 
   return result;
 }