diff options
| author | Per Bothner <per@bothner.com> | 1995-11-30 01:43:37 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-11-30 01:43:37 +0000 |
| commit | 940d596798931962895918454d2ca6bd14b83b1b (patch) | |
| tree | 0b1efd109bb8fe8f038446ea785b2dd91e35ebeb /gdb/f-valprint.c | |
| parent | d1f4065e6499c42088b36a058b1de4035d051392 (diff) | |
| download | binutils-gdb-940d596798931962895918454d2ca6bd14b83b1b.tar.gz | |
* alpha-tdep.c, c-exp.y, h8500-tdep.c, f-exp.y, f-valprint.c,
findvar.c, hppa-tdep.c, infcmd.c, language.c, printcmd.c,
rs6000-tdep.c, symmisc.c, symtab.c:
Add check_typedef/CHECK_TYPEDEF as needed.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 2b2d47b2b4d..1143b9d406b 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -211,7 +211,7 @@ f77_get_dynamic_length_of_aggregate (type) /* Patch in a valid length value. */ TYPE_LENGTH (type) = - (upper_bound - lower_bound + 1) * TYPE_LENGTH (TYPE_TARGET_TYPE (type)); + (upper_bound - lower_bound + 1) * TYPE_LENGTH (check_typedef (TYPE_TARGET_TYPE (type))); } /* Function that sets up the array offset,size table for the array @@ -376,6 +376,7 @@ f_val_print (type, valaddr, address, stream, format, deref_ref, recurse, LONGEST val; CORE_ADDR addr; + CHECK_TYPEDEF (type); switch (TYPE_CODE (type)) { case TYPE_CODE_STRING: @@ -403,7 +404,7 @@ f_val_print (type, valaddr, address, stream, format, deref_ref, recurse, else { addr = unpack_pointer (type, valaddr); - elttype = TYPE_TARGET_TYPE (type); + elttype = check_typedef (TYPE_TARGET_TYPE (type)); if (TYPE_CODE (elttype) == TYPE_CODE_FUNC) { |