diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-09-29 11:09:06 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-24 05:16:00 -0500 |
commit | 3ac0642304f83feda52d9285083a4e637e33e3d6 (patch) | |
tree | 13b7058d2f218a3e410b47009d8bcf71568a0146 /gcc/ada/rtsfind.adb | |
parent | 41273281cef411c75d12f45e8083faff2633e61a (diff) | |
download | gcc-3ac0642304f83feda52d9285083a4e637e33e3d6.zip gcc-3ac0642304f83feda52d9285083a4e637e33e3d6.tar.gz gcc-3ac0642304f83feda52d9285083a4e637e33e3d6.tar.bz2 |
[Ada] Use high-level Present instead of low-level equality test
gcc/ada/
* lib-load.adb, lib-writ.adb, lib.adb, par-load.adb,
rtsfind.adb, sem_ch10.adb: Use Present where possible.
Diffstat (limited to 'gcc/ada/rtsfind.adb')
-rw-r--r-- | gcc/ada/rtsfind.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 872ce01..6a0631f 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -423,7 +423,7 @@ package body Rtsfind is (Unit_Name (Current_Sem_Unit)); begin - if Parent_Name /= No_Unit_Name then + if Present (Parent_Name) then Get_Name_String (Parent_Name); declare |