summaryrefslogtreecommitdiff
path: root/gdb/ch-lang.c
diff options
context:
space:
mode:
authorFred Fish <fnf@specifix.com>1993-01-05 01:18:07 +0000
committerFred Fish <fnf@specifix.com>1993-01-05 01:18:07 +0000
commit76a0ffb47b50a3c7918eb93b4f5c5871ccdf31ef (patch)
treeffdf3c6d4491f86859a5b03b83d52d2a8f87d10f /gdb/ch-lang.c
parentdb81c5e7d5f9e90fa76f8783d25142976e842bdc (diff)
downloadbinutils-gdb-76a0ffb47b50a3c7918eb93b4f5c5871ccdf31ef.tar.gz
* expression.h (exp_opcode): Add BINOP_MOD.
* eval.c (evaluate_subexp): Handle new BINOP_MOD. * expprint.c (dump_expression): Handle new BINOP_MOD. * language.c (binop_type_check): Handle new BINOP_MOD. * main.c (float_handler): Re-enable float handler when hit. * valarith.c (language.h): Include, need current_language. * valarith.c (TRUNCATION_TOWARDS_ZERO): Define default macro for integer divide truncates towards zero for negative results. * valarith.c (value_x_binop): Handle BINOP_MOD if seen. * valarith.c (value_binop): Allow arithmetic operations on TYPE_CODE_CHAR variables. Add case to handle new BINOP_MOD. **** start-sanitize-chill **** * ch-exp.y (operand_4): Add useful actions for MOD and REM. * ch-exp.y (tokentab3): Add MOD and REM. * ch-exp.y (yylex): Set innermost_block for symbols found in local scopes. Return LOCATION_NAME for local symbols. * ch-lang.c (chill_op_print_tab): Fix MOD entry to use BINOP_MOD instead of BINOP_REM. Add REM entry, using BINOP_REM. **** end-sanitize-chill ****
Diffstat (limited to 'gdb/ch-lang.c')
-rw-r--r--gdb/ch-lang.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c
index e42dc1b4493..d02d330b6de 100644
--- a/gdb/ch-lang.c
+++ b/gdb/ch-lang.c
@@ -246,7 +246,8 @@ static const struct op_print chill_op_print_tab[] = {
{"AND", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0},
{"OR", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0},
{"NOT", UNOP_LOGICAL_NOT, PREC_PREFIX, 0},
- {"MOD", BINOP_REM, PREC_MUL, 0},
+ {"MOD", BINOP_MOD, PREC_MUL, 0},
+ {"REM", BINOP_REM, PREC_MUL, 0},
{":=", BINOP_ASSIGN, PREC_ASSIGN, 1},
{"=", BINOP_EQUAL, PREC_EQUAL, 0},
{"/=", BINOP_NOTEQUAL, PREC_EQUAL, 0},