diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-08-23 18:16:05 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-04 08:45:03 +0000 |
| commit | 602176ae83ad265a1dfa061c8b85e24376c22028 (patch) | |
| tree | 4f4dac1bfeb957df63d7c2de477c51a718e9181a /gcc | |
| parent | 935b35674947fe91e204521626c15090621e41ae (diff) | |
| download | gcc-602176ae83ad265a1dfa061c8b85e24376c22028.zip gcc-602176ae83ad265a1dfa061c8b85e24376c22028.tar.gz gcc-602176ae83ad265a1dfa061c8b85e24376c22028.tar.bz2 | |
[Ada] Emit debugging information for TSD object
gcc/ada/
* exp_disp.adb (Make_DT): Copy the Needs_Debug_Info flag from the
type onto the TSD object.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_disp.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 72f4e7c9..6ade54b 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -5703,6 +5703,11 @@ package body Exp_Disp is Set_Is_True_Constant (TSD, Building_Static_DT (Typ)); + -- The debugging information for type Ada.Tags.Type_Specific_Data is + -- needed by the debugger in order to display values of tagged types. + + Set_Needs_Debug_Info (TSD, Needs_Debug_Info (Typ)); + -- Initialize or declare the dispatch table object if not Has_DT (Typ) then |