From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 11 Jan 2022 19:41:13 +0000 (+0100)
Subject: [Ada] Simplify rewriting of attributes into Boolean literals
X-Git-Tag: basepoints/gcc-14~5572
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a24614ec4918d00f0c0761ba987cd15374b3ac43;p=thirdparty%2Fgcc.git

[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 --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;
 
    --------------------------------