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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 176a6ecdb80a0220b088df0bcbb74735061cc890..4fe625b2509d1f74be9854facdc4414d0ac914ab 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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

diff --git a/gdb/expprint.c b/gdb/expprint.c
index 7299d646bb9362b31557e41ae028ec5b1964113b..ee9b4f9a99e95ea590f021aa220a838814ba62a9 100644 (file)
--- a/gdb/expprint.c
+++ b/gdb/expprint.c
@@ -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:

diff --git a/gdb/expression.h b/gdb/expression.h
index 29ebde46b0e2f9b9aa8e16cefc847c717191285e..a6f966a8eea84be249abb3416ca8d2c0979a9d87 100644 (file)
--- a/gdb/expression.h
+++ b/gdb/expression.h
@@ -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 */