diff options
author | Arnaud Charlet <charlet@adacore.com> | 2020-03-01 06:59:11 -0500 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-09 04:09:04 -0400 |
commit | 4228c32ab0b50e10e74ff53159894708471bcdbc (patch) | |
tree | a6103aead9b87ef970c07c50ed26250cd48a6905 /gcc/ada/exp_ch8.adb | |
parent | 7d4d54aa7c2d6dadcc24fb946b127bd1a179e3ec (diff) | |
download | gcc-4228c32ab0b50e10e74ff53159894708471bcdbc.zip gcc-4228c32ab0b50e10e74ff53159894708471bcdbc.tar.gz gcc-4228c32ab0b50e10e74ff53159894708471bcdbc.tar.bz2 |
[Ada] Code refactoring on calls to Set_Debug_Info_Needed
2020-06-09 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* sem_util.ads, sem_util.adb (Set_Debug_Info_Defining_Id): New.
* exp_ch3.adb, exp_ch8.adb: Call Set_Debug_Info_Defining_Id when
relevant.
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 |