FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* value.h (COERCE_REF, COERCE_ARRAY, COERCE_NUMBER, COERCE_ENUM)
	(coerce_ref, coerce_array, coerce_number, coerce_enum): Replace
	macros with function declarations.
	* value.c (coerce_ref, coerce_array, coerce_number)
	(coerce_enum): New functions.
	(value_as_long, value_as_address): Update.
	* ada-lang.c (ada_coerce_ref, ada_value_binop)
	(ada_evaluate_subexp, ada_value_assign, ada_value_struct_elt): Update.
	* jv-lang.c (evaluate_subexp_java): Update.
	* valarith.c (value_less, value_neg, value_complement)
	(value_binop, value_add, value_subscript, value_x_binop)
	(value_logical_not, value_sub): Update.
	* valops.c (check_field, value_struct_elt, value_ind)
	(value_find_oload_method_list, value_cast, value_assign): Update.
	* eval.c (evaluate_subexp_standard): Update.
This commit is contained in:
Andrew Cagney 2004-11-10 18:52:25 +00:00
parent 06987e6431
commit 994b921186
8 changed files with 100 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

14
gdb/ada-lang.c
View file

@ -2006,7 +2006,7 @@ ada_value_assign (struct value *toval, struct value *fromval)
if (!toval->modifiable)
error ("Left operand of assignment is not a modifiable lvalue.");
COERCE_REF (toval);
toval = coerce_ref (toval);
if (VALUE_LVAL (toval) == lval_memory
&& bits > 0
@ -5479,7 +5479,7 @@ ada_value_struct_elt (struct value *arg, char *name, char *err)
t1 = ada_check_typedef (t1);
if (TYPE_CODE (t1) == TYPE_CODE_PTR)
{
COERCE_REF (arg);
arg = coerce_ref (arg);
t = t1;
}
}
@ -5766,7 +5766,7 @@ ada_coerce_ref (struct value *val0)
if (TYPE_CODE (VALUE_TYPE (val0)) == TYPE_CODE_REF)
{
struct value *val = val0;
COERCE_REF (val);
val = coerce_ref (val);
val = unwrap_value (val);
return ada_to_fixed_value (val);
}
@ -7030,8 +7030,8 @@ ada_value_binop (struct value *arg1, struct value *arg2, enum exp_opcode op)
struct type *type1, *type2;
LONGEST v, v1, v2;
COERCE_REF (arg1);
COERCE_REF (arg2);
arg1 = coerce_ref (arg1);
arg2 = coerce_ref (arg2);
type1 = base_type (ada_check_typedef (VALUE_TYPE (arg1)));
type2 = base_type (ada_check_typedef (VALUE_TYPE (arg2)));
@ -7406,8 +7406,8 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
evaluate_subexp (NULL_TYPE, exp, pos, noside);
LONGEST low_bound;
LONGEST high_bound;
COERCE_REF (low_bound_val);
COERCE_REF (high_bound_val);
low_bound_val = coerce_ref (low_bound_val);
high_bound_val = coerce_ref (high_bound_val);
low_bound = pos_atr (low_bound_val);
high_bound = pos_atr (high_bound_val);