From fcbadaee94dcdcc47eb623ce1c41f2bf92719e42 Mon Sep 17 00:00:00 2001
From: Fred Fish <fnf@specifix.com>
Date: Thu, 21 Jan 1993 18:13:55 +0000
Subject: * 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 ****
---
gdb/ch-exp.y | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
(limited to 'gdb/ch-exp.y')
diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index 35fb2feff65..cb17086fd1c 100644
--- a/gdb/ch-exp.y
+++ b/gdb/ch-exp.y
@@ -759,7 +759,7 @@ operand_3 : operand_4
}
| operand_3 SLASH_SLASH operand_4
{
- $$ = 0; /* FIXME */
+ write_exp_elt_opcode (BINOP_CONCAT);
}
;
@@ -1778,7 +1778,6 @@ yylex ()
case '+':
case '-':
case '*':
- case '/':
case '(':
case ')':
case '[':
--
cgit v1.2.1