diff options
Diffstat (limited to 'gcc/ada/exp_ch8.adb')
-rw-r--r-- | gcc/ada/exp_ch8.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb index 71160ee..4498be5 100644 --- a/gcc/ada/exp_ch8.adb +++ b/gcc/ada/exp_ch8.adb @@ -209,10 +209,7 @@ package body Exp_Ch8 is -- needing debug info if it comes from sources because the current -- setting in Freeze_Entity occurs too late. ??? - if Comes_From_Source (Defining_Identifier (N)) then - Set_Debug_Info_Needed (Defining_Identifier (N)); - end if; - + Set_Debug_Info_Defining_Id (N); Decl := Debug_Renaming_Declaration (N); if Present (Decl) then |