2004-11-02 Andrew Cagney <cagney@gnu.org>

	* value.h (COERCE_VARYING_ARRAY): Delete.
	* valops.c (value_cast, value_slice): Delete use.
	* valarith.c (value_subscript, value_concat): Delete use.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f33341b58c6369bc2488fcc8879ec53ed018c9aa..34583a3a6fa1130b6256958d12adc93033384ba5 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-02  Andrew Cagney  <cagney@gnu.org>
+
+       * value.h (COERCE_VARYING_ARRAY): Delete.
+       * valops.c (value_cast, value_slice): Delete use.
+       * valarith.c (value_subscript, value_concat): Delete use.
+
 2004-11-02  Paul Hilfinger  <hilfingr@nile.gnat.com>
 
        * NEWS: GDB understands GNAT Ada.

diff --git a/gdb/valarith.c b/gdb/valarith.c
index f88701faee8e784f50ac2bc28a8399238e4aba49..54f332ad2e0420e358c257e7a35c12b78669828a 100644 (file)
--- a/gdb/valarith.c
+++ b/gdb/valarith.c
@@ -185,7 +185,6 @@ value_subscript (struct value *array, struct value *idx)
 
   COERCE_REF (array);
   tarray = check_typedef (VALUE_TYPE (array));
-  COERCE_VARYING_ARRAY (array, tarray);
 
   if (TYPE_CODE (tarray) == TYPE_CODE_ARRAY
       || TYPE_CODE (tarray) == TYPE_CODE_STRING)
@@ -624,9 +623,6 @@ value_concat (struct value *arg1, struct value *arg2)
   struct type *type1 = check_typedef (VALUE_TYPE (arg1));
   struct type *type2 = check_typedef (VALUE_TYPE (arg2));
 
-  COERCE_VARYING_ARRAY (arg1, type1);
-  COERCE_VARYING_ARRAY (arg2, type2);
-
   /* First figure out if we are dealing with two values to be concatenated
      or a repeat count and a value to be repeated.  INVAL1 is set to the
      first of two concatenated values, or the repeat count.  INVAL2 is set

diff --git a/gdb/valops.c b/gdb/valops.c
index 575c9a335ea362ec976ef75c14fbe717d4408e8a..de92457b467bfee7eae6d56caac8b61bc33e6d58 100644 (file)
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -253,7 +253,6 @@ value_cast (struct type *type, struct value *arg2)
     arg2 = value_coerce_function (arg2);
 
   type2 = check_typedef (VALUE_TYPE (arg2));
-  COERCE_VARYING_ARRAY (arg2, type2);
   code2 = TYPE_CODE (type2);
 
   if (code1 == TYPE_CODE_COMPLEX)
@@ -2731,7 +2730,6 @@ value_slice (struct value *array, int lowbound, int length)
   struct value *slice;
   struct type *array_type;
   array_type = check_typedef (VALUE_TYPE (array));
-  COERCE_VARYING_ARRAY (array, array_type);
   if (TYPE_CODE (array_type) != TYPE_CODE_ARRAY
       && TYPE_CODE (array_type) != TYPE_CODE_STRING
       && TYPE_CODE (array_type) != TYPE_CODE_BITSTRING)

diff --git a/gdb/value.h b/gdb/value.h
index c50c2cac2e67a0e93d9e42e2d4391e7d835a3ca7..6a3814cae65384a1e1b0e5e9bf5252816eaa7f64 100644 (file)
--- a/gdb/value.h
+++ b/gdb/value.h
@@ -259,10 +259,6 @@ extern int value_fetch_lazy (struct value *val);
 #define COERCE_NUMBER(arg) \
   do { COERCE_ARRAY(arg); COERCE_ENUM(arg); } while (0)
 
-/* NOTE: cagney/2002-12-17: This macro was handling a chill language
-   problem but that language has gone away.  */
-#define COERCE_VARYING_ARRAY(arg, real_arg_type)
-
 /* If ARG is an enum, convert it to an integer.  */
 
 #define COERCE_ENUM(arg) \