diff options
author | Bernhard Heckel <bernhard.heckel@intel.com> | 2022-04-05 17:44:46 +0200 |
---|---|---|
committer | Nils-Christian Kempke <nils-christian.kempke@intel.com> | 2022-04-08 12:17:13 +0200 |
commit | 110aae55a8b7e19fa5f04998851968e48822605f (patch) | |
tree | a8b16eddd2715eb752f6fee43e29636a253ec374 /gdb/f-lang.h | |
parent | 87e10e9c288c2f6c933f235b623522c8d9a2d727 (diff) | |
download | gdb-110aae55a8b7e19fa5f04998851968e48822605f.zip gdb-110aae55a8b7e19fa5f04998851968e48822605f.tar.gz gdb-110aae55a8b7e19fa5f04998851968e48822605f.tar.bz2 |
gdb/fortran: print fortran extended types with ptype
Add the print of the base-class of an extended type to the output of
ptype. This requires the Fortran compiler to emit DW_AT_inheritance
for the extended type.
Co-authored-by: Nils-Christian Kempke <nils-christian.kempke@intel.com>
Diffstat (limited to 'gdb/f-lang.h')
-rw-r--r-- | gdb/f-lang.h | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gdb/f-lang.h b/gdb/f-lang.h index 2a1f6c7..f92d3b0 100644 --- a/gdb/f-lang.h +++ b/gdb/f-lang.h @@ -266,6 +266,17 @@ private: int arrayprint_recurse_level, bool print_rank_only) const; + /* If TYPE is an extended type, then print out derivation information. + + A typical output could look like this: + "Type, extends(point) :: waypoint" + " Type point :: point" + " real(kind=4) :: angle" + "End Type waypoint". */ + + void f_type_print_derivation_info (struct type *type, + struct ui_file *stream) const; + /* Print the name of the type (or the ultimate pointer target, function value or array element), or the description of a structure or union. |