From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2100) id 9934A3951C5F; Sat, 22 Aug 2020 22:47:11 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 9934A3951C5F DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1598136431; bh=vfaegtD73yZSkByAtePogVod062xa1J1RwLq0QqFPQI=; h=From:To:Subject:Date:From; b=bu27N9k1MavHd0ABArJFW4QcBYY8SxOWxbsUZ0Z1qXZWzwNzZ0IGwoSE5/7M66XX1 mujhG/r6/eywdEZD76fOwhH2o7/LxCNN5TJOr52YuGx+mMzlLDymNExxcknvfMCDOR F4jsU5QpOtguj/jfWneHUiH6pCfOaaK8v/LKHHik= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Giuliano Belinassi To: gcc-cvs@gcc.gnu.org Subject: [gcc/devel/autopar_devel] [Ada] Properly test for Protected_Body_Subprogram X-Act-Checkin: gcc X-Git-Author: Richard Kenner X-Git-Refname: refs/heads/devel/autopar_devel X-Git-Oldrev: 1505811709fca6a11e6feefc1a55c07c25bc7a9b X-Git-Newrev: c9ddc68dfc142126e4f8e402339b3fc7f64fbf2b Message-Id: <20200822224711.9934A3951C5F@sourceware.org> Date: Sat, 22 Aug 2020 22:47:11 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 22 Aug 2020 22:47:11 -0000 https://gcc.gnu.org/g:c9ddc68dfc142126e4f8e402339b3fc7f64fbf2b commit c9ddc68dfc142126e4f8e402339b3fc7f64fbf2b Author: Richard Kenner Date: Mon Apr 20 17:11:20 2020 -0400 [Ada] Properly test for Protected_Body_Subprogram 2020-06-18 Richard Kenner gcc/ada/ * sem_util.adb (Enclosing_Subprogram): No longer need Convention_Protected. Diff: --- gcc/ada/sem_util.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 52a3f947dbe..756162e4a2f 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -7410,8 +7410,7 @@ package body Sem_Util is -- No body is generated if the protected operation is eliminated - elsif Convention (Dyn_Scop) = Convention_Protected - and then not Is_Eliminated (Dyn_Scop) + elsif not Is_Eliminated (Dyn_Scop) and then Present (Protected_Body_Subprogram (Dyn_Scop)) then return Protected_Body_Subprogram (Dyn_Scop);