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.
This commit is contained in:
parent
58852c2769
commit
9f2feefc7a
4 changed files with 6 additions and 10 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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) \
|
||||
|
|
Loading…
Reference in a new issue