From a24614ec4918d00f0c0761ba987cd15374b3ac43 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 11 Jan 2022 20:41:13 +0100 Subject: [PATCH] [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. --- 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; --------------------------------