diff options
Diffstat (limited to 'gcc/ada/exp_unst.adb')
| -rw-r--r-- | gcc/ada/exp_unst.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index fbc6a7b..eed26e6 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -243,9 +243,10 @@ package body Exp_Unst is loop if No (C) then return Chars (Ent); + elsif Chars (Defining_Identifier (C)) = Chars (Ent) then - return Name_Find - (Get_Name_String (Chars (Ent)) & Img_Pos (Index)); + return + Name_Find (Get_Name_String (Chars (Ent)) & Img_Pos (Index)); else Next (C); end if; |