diff options
| author | Fred Fish <fnf@specifix.com> | 1993-01-21 18:13:55 +0000 |
|---|---|---|
| committer | Fred Fish <fnf@specifix.com> | 1993-01-21 18:13:55 +0000 |
| commit | fcbadaee94dcdcc47eb623ce1c41f2bf92719e42 (patch) | |
| tree | 724eb840af8417b004d4585538b81cd8d62c0a0f /gdb/ch-lang.c | |
| parent | 2c320e35984957fbca00f3bad8cea39bc75f4c49 (diff) | |
| download | gdb-fcbadaee94dcdcc47eb623ce1c41f2bf92719e42.zip gdb-fcbadaee94dcdcc47eb623ce1c41f2bf92719e42.tar.gz gdb-fcbadaee94dcdcc47eb623ce1c41f2bf92719e42.tar.bz2 | |
* eval.c (evaluate_subexp): Fix OP_ARRAY, remove code that
implied that "no side effects" was nonfunctional.
* eval.c (evaluate_subexp): Add BINOP_CONCAT case to deal with
character string and bitstring concatenation.
* expprint.c (dump_expression): Add case for BINOP_CONCAT.
* expression.h (exp_opcode): Add BINOP_CONCAT.
* gdbtypes.h (type_code): Add TYPE_CODE_BITSTRING.
* language.c (string_type): Add function to determine if a type
is a string type.
* language.c (binop_type_check): Add case for BINOP_CONCAT.
* valarith.c (value_concat): New function to concatenate two
values, such as character strings or bitstrings.
* valops.c (value_string): Remove error stub and implement
function body.
* value.h (value_concat): Add prototype.
**** start-sanitize-chill ****
* ch-exp.y (operand_3): Add actions for SLASH_SLASH (//).
* ch-exp.y (yylex): Recognize SLASH_SLASH.
* ch-lang.c (chill_op_print_tab): Add SLASH_SLASH (//) as
BINOP_CONCAT.
**** end-sanitize-chill ****
Diffstat (limited to 'gdb/ch-lang.c')
| -rw-r--r-- | gdb/ch-lang.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c index d02d330..78a2067 100644 --- a/gdb/ch-lang.c +++ b/gdb/ch-lang.c @@ -259,6 +259,7 @@ static const struct op_print chill_op_print_tab[] = { {"-", BINOP_SUB, PREC_ADD, 0}, {"*", BINOP_MUL, PREC_MUL, 0}, {"/", BINOP_DIV, PREC_MUL, 0}, + {"//", BINOP_CONCAT, PREC_PREFIX, 0}, /* FIXME: precedence? */ {"-", UNOP_NEG, PREC_PREFIX, 0}, {NULL, 0, 0, 0} }; |