mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-13 00:10:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

ada: Simplify "not Present" with "No"

Browse Source 
gcc/ada/

	* exp_aggr.adb (Expand_Container_Aggregate): Simplify with "No".
This commit is contained in:
Piotr Trojanek 2023-09-25 17:30:57 +02:00 committed by Marc Poulhiès
parent 19cc4b9d74
commit 7b1b787baa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/exp_aggr.adb
View File

@ -7288,7 +7288,7 @@ package body Exp_Aggr is
-- Iterated component association. Discard
-- positional insertion procedure.
if not Present (Iterator_Specification (Comp)) then
if No (Iterator_Specification (Comp)) then
Add_Named_Subp := Assign_Indexed_Subp;
Add_Unnamed_Subp := Empty;
end if;