diff options
| author | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-07-09 15:47:19 +0100 |
|---|---|---|
| committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2019-08-28 13:33:54 +0100 |
| commit | 1f20c35ea4a0095e6a9d9b7819f6c437a0c4cfc1 (patch) | |
| tree | b65b098310de5ceb7dc0892d627a283626020821 /gdb/f-lang.c | |
| parent | fa463e9fc644e7a3bad39aa73bf6be72ea865805 (diff) | |
| download | gdb-1f20c35ea4a0095e6a9d9b7819f6c437a0c4cfc1.zip gdb-1f20c35ea4a0095e6a9d9b7819f6c437a0c4cfc1.tar.gz gdb-1f20c35ea4a0095e6a9d9b7819f6c437a0c4cfc1.tar.bz2 | |
gdb/fortran: Implement la_print_typedef for Fortran
Implement an la_print_typedef method for Fortran, this allows 'info
types' to work for Fortran. The implementation is just copied from
ada_print_typedef (with the appropriate changes).
To support the testing of this patch I added a new proc,
fortran_character1, to lib/fortran.exp which returns a regexp to match
a 1-byte character type. The regexp returned is correct for current
versions of gFortran. All of the other regexp are guesses based on
all of the other support procs in lib/fortran.exp, I haven't tested
them myself.
gdb/ChangeLog:
* f-lang.c (f_language_defn): Use f_print_typedef.
* f-lang.h (f_print_typedef): Declare.
* f-typeprint.c (f_print_typedef): Define.
gdb/testsuite/ChangeLog:
* gdb.fortran/info-types.exp: New file.
* gdb.fortran/info-types.f90: New file.
* lib/fortran.exp (fortran_character1): New proc.
Diffstat (limited to 'gdb/f-lang.c')
| -rw-r--r-- | gdb/f-lang.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c index e93a5f3..ce7f147 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -644,7 +644,7 @@ extern const struct language_defn f_language_defn = f_printstr, /* function to print string constant */ f_emit_char, /* Function to print a single character */ f_print_type, /* Print a type using appropriate syntax */ - default_print_typedef, /* Print a typedef using appropriate syntax */ + f_print_typedef, /* Print a typedef using appropriate syntax */ f_val_print, /* Print a value using appropriate syntax */ c_value_print, /* FIXME */ default_read_var_value, /* la_read_var_value */ |