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.
This commit is contained in:
Sergio Durigan Junior 2010-06-02 00:40:40 +00:00
parent c46581e9f4
commit 7cf3118a8d
3 changed files with 13 additions and 27 deletions

View File

@ -1,3 +1,16 @@
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

View File

@ -532,10 +532,6 @@ print_subexp_standard (struct expression *exp, int *pos,
fprintf_unfiltered (stream, ")");
return;
case BINOP_INCL:
case BINOP_EXCL:
error (_("print_subexp: Not implemented."));
/* Default ops */
default:
@ -714,10 +710,6 @@ op_name_standard (enum exp_opcode opcode)
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:
@ -780,12 +772,6 @@ op_name_standard (enum exp_opcode opcode)
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:
@ -952,8 +938,6 @@ dump_subexp_body_standard (struct expression *exp,
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:
@ -982,12 +966,6 @@ dump_subexp_body_standard (struct expression *exp,
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:

View File

@ -108,8 +108,6 @@ enum exp_opcode
/* 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
@ -279,9 +277,6 @@ enum exp_opcode
UNOP_ODD,
UNOP_TRUNC,
/* (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 */