diff options
| author | Steve Baird <baird@adacore.com> | 2023-10-23 14:45:42 -0700 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-11-21 10:57:41 +0100 |
| commit | d75ca8a67e709c3e1dd99e2ada3d33563208c6c2 (patch) | |
| tree | d363954ca2e988afc93fcc724baecf64441f2a2a | |
| parent | d9481c5dc0bac26a2e1ae77eaef6143e0b723fe2 (diff) | |
| download | gcc-d75ca8a67e709c3e1dd99e2ada3d33563208c6c2.zip gcc-d75ca8a67e709c3e1dd99e2ada3d33563208c6c2.tar.gz gcc-d75ca8a67e709c3e1dd99e2ada3d33563208c6c2.tar.bz2 | |
ada: Deep delta aggregates cleanup.
Cleanup after the introduction of deep delta aggregates.
Eliminate a new gnatcheck message.
gcc/ada/
* sem_aggr.adb: Replace "not Present (...)" call with "No (...)" call.
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index c1d2540..46a96a3 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -3903,7 +3903,7 @@ package body Sem_Aggr is Prefix_Type : constant Entity_Id := Get_Component_Type (Prefix (Selector), Enclosing_Type); begin - if not Present (Prefix_Type) then + if No (Prefix_Type) then pragma Assert (Serious_Errors_Detected > 0); return Empty; end if; |