* expprint.c (print_subexp_standard): Remove exp_opcodes BINOP_INCL,
BINOP_EXCL.
(op_name_standard): Remove exp_opcodes BINOP_INCL, BINOP_EXCL,
UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH.
(dump_subexp_body_standard): Remove exp_opcodes BINOP_INCL,
BINOP_EXCL, UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH, UNOP_CARD,
UNOP_CHMAX, UNOP_CHMIN.
* expression.h (enum exp_opcode) <BINOP_INCL, BINOP_EXCL,
UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH, UNOP_CARD, UNOP_CHMAX,
UNOP_CHMIN>: Remove opcodes.
+2010-06-01 Sergio Durigan Junior <sergiodj@redhat.com>
+
+ * expprint.c (print_subexp_standard): Remove exp_opcodes BINOP_INCL,
+ BINOP_EXCL.
+ (op_name_standard): Remove exp_opcodes BINOP_INCL, BINOP_EXCL,
+ UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH.
+ (dump_subexp_body_standard): Remove exp_opcodes BINOP_INCL,
+ BINOP_EXCL, UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH, UNOP_CARD,
+ UNOP_CHMAX, UNOP_CHMIN.
+ * expression.h (enum exp_opcode) <BINOP_INCL, BINOP_EXCL,
+ UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH, UNOP_CARD, UNOP_CHMAX,
+ UNOP_CHMIN>: Remove opcodes.
+
2010-06-01 Pierre Muller <muller@ics.u-strasbg.fr>
* dwarf2read.c (read_func_scope): Do not complain for
2010-06-01 Pierre Muller <muller@ics.u-strasbg.fr>
* dwarf2read.c (read_func_scope): Do not complain for
fprintf_unfiltered (stream, ")");
return;
fprintf_unfiltered (stream, ")");
return;
- case BINOP_INCL:
- case BINOP_EXCL:
- error (_("print_subexp: Not implemented."));
-
/* Default ops */
default:
/* Default ops */
default:
return "BINOP_ASSIGN_MODIFY";
case BINOP_VAL:
return "BINOP_VAL";
return "BINOP_ASSIGN_MODIFY";
case BINOP_VAL:
return "BINOP_VAL";
- case BINOP_INCL:
- return "BINOP_INCL";
- case BINOP_EXCL:
- return "BINOP_EXCL";
case BINOP_CONCAT:
return "BINOP_CONCAT";
case BINOP_RANGE:
case BINOP_CONCAT:
return "BINOP_CONCAT";
case BINOP_RANGE:
return "UNOP_POSTDECREMENT";
case UNOP_SIZEOF:
return "UNOP_SIZEOF";
return "UNOP_POSTDECREMENT";
case UNOP_SIZEOF:
return "UNOP_SIZEOF";
- case UNOP_LOWER:
- return "UNOP_LOWER";
- case UNOP_UPPER:
- return "UNOP_UPPER";
- case UNOP_LENGTH:
- return "UNOP_LENGTH";
case UNOP_PLUS:
return "UNOP_PLUS";
case UNOP_CAP:
case UNOP_PLUS:
return "UNOP_PLUS";
case UNOP_CAP:
case BINOP_INTDIV:
case BINOP_ASSIGN_MODIFY:
case BINOP_VAL:
case BINOP_INTDIV:
case BINOP_ASSIGN_MODIFY:
case BINOP_VAL:
- case BINOP_INCL:
- case BINOP_EXCL:
case BINOP_CONCAT:
case BINOP_IN:
case BINOP_RANGE:
case BINOP_CONCAT:
case BINOP_IN:
case BINOP_RANGE:
case UNOP_MIN:
case UNOP_ODD:
case UNOP_TRUNC:
case UNOP_MIN:
case UNOP_ODD:
case UNOP_TRUNC:
- case UNOP_LOWER:
- case UNOP_UPPER:
- case UNOP_LENGTH:
- case UNOP_CARD:
- case UNOP_CHMAX:
- case UNOP_CHMIN:
elt = dump_subexp (exp, stream, elt);
break;
case OP_LONG:
elt = dump_subexp (exp, stream, elt);
break;
case OP_LONG:
/* Modula-2 standard (binary) procedures */
BINOP_VAL,
/* Modula-2 standard (binary) procedures */
BINOP_VAL,
- BINOP_INCL,
- BINOP_EXCL,
/* Concatenate two operands, such as character strings or bitstrings.
If the first operand is a integer expression, then it means concatenate
/* Concatenate two operands, such as character strings or bitstrings.
If the first operand is a integer expression, then it means concatenate
- /* (The deleted) Chill builtin functions. */
- UNOP_LOWER, UNOP_UPPER, UNOP_LENGTH, UNOP_CARD, UNOP_CHMAX, UNOP_CHMIN,
-
OP_BOOL, /* Modula-2 builtin BOOLEAN type */
OP_M2_STRING, /* Modula-2 string constants */
OP_BOOL, /* Modula-2 builtin BOOLEAN type */
OP_M2_STRING, /* Modula-2 string constants */