yggdrasil/gcc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Ada] Simplify rewriting of attributes into Boolean literals

Browse Source 
Code cleanup; semantics is unaffected.

gcc/ada/

	* sem_attr.adb (Set_Boolean_Result): Simplify using
	Boolean_Literals.
This commit is contained in:
Piotr Trojanek
2022-01-11 20:41:13 +01:00
committed by Pierre-Marie de Rodat
parent f40948963b
commit a24614ec49
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gcc/ada/sem_attr.adb
+1 -6
View File
@@ -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;
--------------------------------