From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 1BDAA385E036; Thu, 20 Oct 2022 04:09:22 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 1BDAA385E036 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1666238962; bh=xGH7OeRF6Qkr9ZQgBa/cgbtYRyz7laVePwGaTz9URy4=; h=From:To:Subject:Date:From; b=RsPwFDTuZoWvQ7kcpuO9qeqUAQNUxDfRU3wstdKEsSEuqdcE6M/Bvfvl8m9AdV8ts 4SLTSb8J5++GB32ugBATag+k6mtI/uFc7QCDXzvNnglkkARBdyIYjqBuZfV/tEWRYB L7vOiX63rBrwHDmzibpvFjyCNArTnhYnGfwRso7Q= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Alexandre Oliva To: gcc-cvs@gcc.gnu.org Subject: [gcc(refs/users/aoliva/heads/testme)] hardcfr: mark throw-expected functions [ada/gcc-interface] X-Act-Checkin: gcc X-Git-Author: Alexandre Oliva X-Git-Refname: refs/users/aoliva/heads/testme X-Git-Oldrev: 0b7fbc9fb5c6e5520ab0f4bc57c19ae0a3090ad1 X-Git-Newrev: 13aa3c2c1518792e193c1e2862c20e0f9d069fef Message-Id: <20221020040922.1BDAA385E036@sourceware.org> Date: Thu, 20 Oct 2022 04:09:22 +0000 (GMT) List-Id: https://gcc.gnu.org/g:13aa3c2c1518792e193c1e2862c20e0f9d069fef commit 13aa3c2c1518792e193c1e2862c20e0f9d069fef Author: Alexandre Oliva Date: Wed Oct 19 20:36:20 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 d0ff741585e..d75ba55d985 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; }