diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-12-15 19:07:44 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-06 11:11:25 +0200 |
| commit | 4002a72aff546e20b6efc75147bebdf893891ea6 (patch) | |
| tree | e88119349aeb312b6b9d32b1d8d1e0e91f7d16a2 | |
| parent | 6cc4ac7d151e432b75da58d44d2ffb53192e04b5 (diff) | |
| download | gcc-4002a72aff546e20b6efc75147bebdf893891ea6.zip gcc-4002a72aff546e20b6efc75147bebdf893891ea6.tar.gz gcc-4002a72aff546e20b6efc75147bebdf893891ea6.tar.bz2 | |
ada: Fix non-idiomatic construct
gcc/ada/
* exp_ch3.adb (Expand_Freeze_Class_Wide_Type): Use No instead of
not Present.
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 7a137dd..09551b2 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -5021,7 +5021,7 @@ package body Exp_Ch3 is -- Create the body of TSS primitive Finalize_Address. This automatically -- sets the TSS entry for the class-wide type. - if not Present (Finalize_Address (Typ)) then + if No (Finalize_Address (Typ)) then Make_Finalize_Address_Body (Typ); end if; end Expand_Freeze_Class_Wide_Type; |