From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id B043738316F9; Tue, 12 Jul 2022 12:26:27 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org B043738316F9 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-1635] [Ada] Simplify rewriting of attributes into Boolean literals X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: f40948963b0847f995056fef25c41caec5a969e7 X-Git-Newrev: a24614ec4918d00f0c0761ba987cd15374b3ac43 Message-Id: <20220712122627.B043738316F9@sourceware.org> Date: Tue, 12 Jul 2022 12:26:27 +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: Tue, 12 Jul 2022 12:26:27 -0000 https://gcc.gnu.org/g:a24614ec4918d00f0c0761ba987cd15374b3ac43 commit r13-1635-ga24614ec4918d00f0c0761ba987cd15374b3ac43 Author: Piotr Trojanek Date: Tue Jan 11 20:41:13 2022 +0100 [Ada] Simplify rewriting of attributes into Boolean literals Code cleanup; semantics is unaffected. gcc/ada/ * sem_attr.adb (Set_Boolean_Result): Simplify using Boolean_Literals. Diff: --- gcc/ada/sem_attr.adb | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index cab2461a39c..adeda43bd87 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -12778,13 +12778,8 @@ package body Sem_Attr is ------------------------ procedure Set_Boolean_Result (N : Node_Id; B : Boolean) is - Loc : constant Source_Ptr := Sloc (N); begin - if B then - Rewrite (N, New_Occurrence_Of (Standard_True, Loc)); - else - Rewrite (N, New_Occurrence_Of (Standard_False, Loc)); - end if; + Rewrite (N, New_Occurrence_Of (Boolean_Literals (B), Sloc (N))); end Set_Boolean_Result; --------------------------------