diff options
| author | Andrew Cagney <cagney@redhat.com> | 2004-11-02 14:18:14 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2004-11-02 14:18:14 +0000 |
| commit | 9f2feefc7a78826e5c4e90e528a372696d38da91 (patch) | |
| tree | 29d3ad2a4984c2d08024d3a7f93314c8cf1a59bb | |
| parent | 58852c27692e29c5e94038a6a0dc1023b7da239c (diff) | |
| download | gdb-9f2feefc7a78826e5c4e90e528a372696d38da91.zip gdb-9f2feefc7a78826e5c4e90e528a372696d38da91.tar.gz gdb-9f2feefc7a78826e5c4e90e528a372696d38da91.tar.bz2 | |
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.
| -rw-r--r-- | gdb/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/valarith.c | 4 | ||||
| -rw-r--r-- | gdb/valops.c | 2 | ||||
| -rw-r--r-- | gdb/value.h | 4 |
4 files changed, 6 insertions, 10 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f33341b..34583a3 100644 --- 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 f88701f..54f332a 100644 --- 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 575c9a3..de92457 100644 --- 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 c50c2ca..6a3814c 100644 --- 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) \ |