mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-10-14 19:38:01 +08:00
2004-11-09 Andrew Cagney <cagney@gnu.org>
* value.h (struct value): Delete field bfd_section. (VALUE_BFD_SECTION): Delete macro. (COERCE_REF): Update. (value_at, value_at_lazy): Delete asection parameter. * printcmd.c (print_formatted, x_command): Update. (do_examine): Delete asection parameter. (next_section): Delete variable. * valops.c (value_cast, value_at, value_at_lazy) (value_coerce_function, value_addr, value_ind, value_string) (find_rt_vbase_offset, value_full_object): Update. * hpacc-abi.c (hpacc_virtual_fn_field) (hpacc_value_rtti_type): Update. * gnu-v3-abi.c (gnuv3_rtti_type, gnuv3_virtual_fn_field) (gnuv3_baseclass_offset): Update. * f-valprint.c (f_val_print): Update. * c-valprint.c (c_val_print): Update. * p-valprint.c (pascal_val_print): Update. * jv-valprint.c (java_value_print): Update. * jv-lang.c (java_class_from_object, evaluate_subexp_java): Update. * ada-lang.c (ada_value_primitive_packed_val) (ada_evaluate_subexp): Update. * dwarf2loc.c (dwarf2_evaluate_loc_desc): Update. * expprint.c (print_subexp_standard): Update. * infcall.c (call_function_by_hand): Update. * valarith.c (value_add): Update. * eval.c (evaluate_subexp_standard): Update. * values.c (allocate_value, value_copy, value_static_field): Update. * findvar.c (read_var_value, locate_var_value): Update.
This commit is contained in:
@ -228,7 +228,7 @@ java_class_from_object (struct value *obj_val)
|
||||
if (TYPE_CODE (VALUE_TYPE (obj_val)) == TYPE_CODE_PTR
|
||||
&& TYPE_LENGTH (TYPE_TARGET_TYPE (VALUE_TYPE (obj_val))) == 0)
|
||||
obj_val = value_at (get_java_object_type (),
|
||||
value_as_address (obj_val), NULL);
|
||||
value_as_address (obj_val));
|
||||
|
||||
vtable_val = value_struct_elt (&obj_val, NULL, "vtable", NULL, "structure");
|
||||
return value_struct_elt (&vtable_val, NULL, "class", NULL, "structure");
|
||||
@ -904,7 +904,7 @@ evaluate_subexp_java (struct type *expect_type, struct expression *exp,
|
||||
error ("array index (%ld) out of bounds (length: %ld)",
|
||||
index, length);
|
||||
address = (address + 4) + index * TYPE_LENGTH (el_type);
|
||||
return value_at (el_type, address, NULL);
|
||||
return value_at (el_type, address);
|
||||
}
|
||||
else if (TYPE_CODE (type) == TYPE_CODE_ARRAY)
|
||||
{
|
||||
|
Reference in New Issue
Block a user