diff options
Diffstat (limited to 'gcc/ada/exp_tss.adb')
-rw-r--r-- | gcc/ada/exp_tss.adb | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb index 89bcd29..89af166 100644 --- a/gcc/ada/exp_tss.adb +++ b/gcc/ada/exp_tss.adb @@ -504,13 +504,9 @@ package body Exp_Tss is Subp : Entity_Id; begin - if No (FN) then - return Empty; - - elsif No (TSS_Elist (FN)) then - return Empty; - - else + if Present (FN) + and then Present (TSS_Elist (FN)) + then Elmt := First_Elmt (TSS_Elist (FN)); while Present (Elmt) loop if Is_TSS (Node (Elmt), Nam) then |