diff options
| author | Per Bothner <per@bothner.com> | 1995-01-23 21:20:58 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-01-23 21:20:58 +0000 |
| commit | 6d34c23688b9d441b6daba6dff56d6a4389bc058 (patch) | |
| tree | f2acf81c173f32cd8b679d92911f4298440f896d /gdb/ch-typeprint.c | |
| parent | ce51845b10a95dc54e30c5df90706a3902d6d1ed (diff) | |
Add support for Chill bitstring literals (e.h. H'FF00').
* ch-exp.y (match_bitstring_literal): Fix for proper endianness.
* expprint.c (print_subexp): Don't call error on OP_BITSTRING,
just print B'<unimlemented>'.
* gdbtypes.c (create_set_type): Fix bug in length calculation.
* valops.c, value.h (value_bitstring): New function.
* eval.c (evaluate_subexp): Implement support for OP_BITSTRING.
* ch-typeprint.c (chill_type_print_base): For TYPE_CODE_FUNC,
check that return type is non-void, and print in proper Chill syntax.
Diffstat (limited to 'gdb/ch-typeprint.c')
| -rw-r--r-- | gdb/ch-typeprint.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gdb/ch-typeprint.c b/gdb/ch-typeprint.c index 88d994d849..ce19e68a63 100644 --- a/gdb/ch-typeprint.c +++ b/gdb/ch-typeprint.c @@ -166,7 +166,12 @@ chill_type_print_base (type, stream, show, level) break; case TYPE_CODE_FUNC: fprintf_filtered (stream, "PROC (?)"); - chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); + if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID) + { + fputs_filtered (" RETURNS (", stream); + chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); + fputs_filtered (")", stream); + } break; case TYPE_CODE_STRUCT: |