diff options
| author | Per Bothner <per@bothner.com> | 1995-11-30 02:32:29 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-11-30 02:32:29 +0000 |
| commit | bcbf388e993d206027da59f87014ca561ebdd6fc (patch) | |
| tree | a8b686f6b38bff9aceb548ac1ea5465320c7f544 /gdb/typeprint.c | |
| parent | 940d596798931962895918454d2ca6bd14b83b1b (diff) | |
| download | binutils-gdb-bcbf388e993d206027da59f87014ca561ebdd6fc.tar.gz | |
* f-typeprint.c, valarith.c, valprint.c, typeprint.c, eval.c:
Add check_typedef/CHECK_TYPEDEF as needed.
* f-typeprint.c: Various cleaning up.
* valarith.c (value_subscript): Also subscript bitstrings (for Chill).
* typeprint.c (print_type_scalar): Also support TYPE_CODE_RANGE.
* eval.c (evaluate_subexp_standard case OP_ARRAY): Implement
support for labelled array tuples and ranges in powerset tuples.
(init_array_element): New function.
Diffstat (limited to 'gdb/typeprint.c')
| -rw-r--r-- | gdb/typeprint.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gdb/typeprint.c b/gdb/typeprint.c index 135c928cbd1..6b1c6de1d19 100644 --- a/gdb/typeprint.c +++ b/gdb/typeprint.c @@ -180,6 +180,8 @@ print_type_scalar (type, val, stream) unsigned int i; unsigned len; + CHECK_TYPEDEF (type); + switch (TYPE_CODE (type)) { @@ -214,6 +216,10 @@ print_type_scalar (type, val, stream) fprintf_filtered (stream, val ? "TRUE" : "FALSE"); break; + case TYPE_CODE_RANGE: + print_type_scalar (TYPE_TARGET_TYPE (type), val, stream); + return; + case TYPE_CODE_UNDEF: case TYPE_CODE_PTR: case TYPE_CODE_ARRAY: @@ -223,7 +229,6 @@ print_type_scalar (type, val, stream) case TYPE_CODE_FLT: case TYPE_CODE_VOID: case TYPE_CODE_SET: - case TYPE_CODE_RANGE: case TYPE_CODE_STRING: case TYPE_CODE_ERROR: case TYPE_CODE_MEMBER: |