From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2100) id 0E9F9393C89C; Sat, 22 Aug 2020 22:15:41 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 0E9F9393C89C DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1598134541; bh=FHzaVs39heYTfEPZrPmJlCza48objTqjd4F0rCQj3dI=; h=From:To:Subject:Date:From; b=umw8SBLEusNvG4FCwtUyg3fhnZPqwMN6aPjI6XmzpK7ExUDBC2GcYq5mt1qLKJUcC dKEZuth8w5VAb8NCKMAwGHHkqyKIZj/jloKBQvRS6T/dgyl9aQPzRjfLEO96gykl8y z+2m8BoyLY7JL+/10M9V3S8WlR88+loLKgTFp0DA= 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] Fix wrong type being used for range check generation X-Act-Checkin: gcc X-Git-Author: Ghjuvan Lacambre X-Git-Refname: refs/heads/devel/autopar_devel X-Git-Oldrev: 39b41b4ddc9b9b242dcafad26fc8dbd5708d6ec2 X-Git-Newrev: 74c9b33344252a9c5d1e13eb01313dd7a2bf9ae5 Message-Id: <20200822221541.0E9F9393C89C@sourceware.org> Date: Sat, 22 Aug 2020 22:15:41 +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:15:41 -0000 https://gcc.gnu.org/g:74c9b33344252a9c5d1e13eb01313dd7a2bf9ae5 commit 74c9b33344252a9c5d1e13eb01313dd7a2bf9ae5 Author: Ghjuvan Lacambre Date: Fri Feb 28 14:56:31 2020 +0100 [Ada] Fix wrong type being used for range check generation 2020-06-09 Ghjuvan Lacambre gcc/ada/ * sem_res.adb (Resolve_Qualified_Expression): Use Subtype_Mark type. Diff: --- gcc/ada/sem_res.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 6e26ffb3c45..15d08fee4fc 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -10004,8 +10004,10 @@ package body Sem_Res is -- check may convert an illegal static expression and result in warning -- rather than giving an error (e.g Integer'(Integer'Last + 1)). - if Nkind (N) = N_Qualified_Expression and then Is_Scalar_Type (Typ) then - Apply_Scalar_Range_Check (Expr, Typ); + if Nkind (N) = N_Qualified_Expression + and then Is_Scalar_Type (Target_Typ) + then + Apply_Scalar_Range_Check (Expr, Target_Typ); end if; -- AI12-0100: Once the qualified expression is resolved, check whether