diff options
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 |