From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2140) id 6ED3B385E012; Sat, 1 Oct 2022 04:50:17 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 6ED3B385E012 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1664599817; bh=MR5HflfoAoqQDbEgLRL6UCzfGdelkxr3AHz8RkuoVwI=; h=From:To:Subject:Date:From; b=GJno9GOkm0M30TmkTA1CD+a3dZFks5IbxTCQltvMcxl7uaE3LvUbIwgNXzbRzNYIo AbVYuRB3I8VPxs7gKZrOHb+a/6pYlWCBcm75q9Cyj6gOoyMJYW39FCffQlpmIhUsXa 9tWpeSLSobP8ya7vQ8oTtp9qL6lYc9OHLoOBkS4I= 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: dada34ca1de6b7559d67d7f22ff6a2705ac0f85c X-Git-Newrev: bc96cc4a48c135466d637cc55db4615c7f8f5f7e Message-Id: <20221001045017.6ED3B385E012@sourceware.org> Date: Sat, 1 Oct 2022 04:50:17 +0000 (GMT) List-Id: https://gcc.gnu.org/g:bc96cc4a48c135466d637cc55db4615c7f8f5f7e commit bc96cc4a48c135466d637cc55db4615c7f8f5f7e Author: Alexandre Oliva 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; }