From a2bd3dcdac2e47cdb50de67313175fb8b9ce88fa Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Sat, 29 Jan 2005 01:59:31 +0000 Subject: 2005-01-28 Andrew Cagney * language.h (struct language_defn): Make la_val_print's buffer parameter a const bfd_byte. * cp-valprint.c (cp_print_value_fields, cp_print_value): Update. * ada-lang.c (ada_aligned_value_addr) (ada_value_primitive_packed_val, ada_which_variant_applies): Update. * valprint.c (val_print_array_elements): Update. * valprint.h (val_print_array_elements): Update. * ada-lang.h (ada_val_print, ada_aligned_value_addr) (ada_value_primitive_packed_val, ada_which_variant_applies): Update. * ada-valprint.c (ada_val_print, struct ada_val_print_args) (ada_val_print_1, ada_print_floating, printable_val_type) (print_record, val_print_packed_array_elements) (print_field_values, print_variant_part): Update. * c-lang.h (c_val_print, cp_print_value_fields): Update. * c-valprint.c (c_val_print): Update. * f-lang.h (f_val_print): Update. * f-valprint.c (f_val_print, f77_print_array_1) (f77_print_array): Update. * jv-lang.h (java_val_print): Update. * jv-valprint.c (java_print_value_fields, java_val_print): Update. * language.c (unk_lang_val_print): Update. * m2-lang.h (m2_val_print): Update. * m2-valprint.c (m2_val_print): Update. * p-lang.h (pascal_val_print): Update. (pascal_object_print_value_fields): Update. * p-valprint.c (pascal_val_print) (pascal_object_print_value_fields, pascal_object_print_value) (pascal_object_print_value): Update. * scm-lang.h (scm_val_print): Update. * scm-valprint.c (scm_val_print): Update. * value.h (val_print): Update. --- gdb/ada-valprint.c | 59 +++++++++++++++++++++++++----------------------------- 1 file changed, 27 insertions(+), 32 deletions(-) (limited to 'gdb/ada-valprint.c') diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 040a626..a6e30f2 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -39,7 +39,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ struct ada_val_print_args { struct type *type; - char *valaddr0; + const bfd_byte *valaddr0; int embedded_offset; CORE_ADDR address; struct ui_file *stream; @@ -49,30 +49,21 @@ struct ada_val_print_args enum val_prettyprint pretty; }; -static void print_record (struct type *, char *, struct ui_file *, int, - int, enum val_prettyprint); +static void print_record (struct type *, const bfd_byte *, struct ui_file *, + int, int, enum val_prettyprint); -static int print_field_values (struct type *, char *, struct ui_file *, - int, int, enum val_prettyprint, - int, struct type *, char *); - -static int print_variant_part (struct type *, int, char *, +static int print_field_values (struct type *, const bfd_byte *, struct ui_file *, int, int, enum val_prettyprint, int, struct type *, - char *); - -static void val_print_packed_array_elements (struct type *, char *valaddr, - int, struct ui_file *, int, int, - enum val_prettyprint); + const bfd_byte *); static void adjust_type_signedness (struct type *); static int ada_val_print_stub (void *args0); -static int ada_val_print_1 (struct type *, char *, int, CORE_ADDR, +static int ada_val_print_1 (struct type *, const bfd_byte *, int, CORE_ADDR, struct ui_file *, int, int, int, enum val_prettyprint); -static void ada_print_floating (char *, struct type *, struct ui_file *); /* Make TYPE unsigned if its range of values includes no negatives. */ @@ -138,7 +129,7 @@ print_optional_low_bound (struct ui_file *stream, struct type *type) by ada_coerce_to_simple_array). */ static void -val_print_packed_array_elements (struct type *type, char *valaddr, +val_print_packed_array_elements (struct type *type, const bfd_byte *valaddr, int bitoffset, struct ui_file *stream, int format, int recurse, enum val_prettyprint pretty) @@ -246,7 +237,7 @@ val_print_packed_array_elements (struct type *type, char *valaddr, } static struct type * -printable_val_type (struct type *type, char *valaddr) +printable_val_type (struct type *type, const bfd_byte *valaddr) { return ada_to_fixed_type (ada_aligned_type (type), valaddr, 0, NULL); } @@ -299,7 +290,8 @@ ui_memcpy (void *dest, const char *buffer, long len) a decimal point, and at least one digit before and after the point. We use GNAT format for NaNs and infinities. */ static void -ada_print_floating (char *valaddr, struct type *type, struct ui_file *stream) +ada_print_floating (const bfd_byte *valaddr, struct type *type, + struct ui_file *stream) { char buffer[64]; char *s, *result; @@ -555,9 +547,10 @@ ada_printstr (struct ui_file *stream, const bfd_byte *string, arrays.) */ int -ada_val_print (struct type *type, char *valaddr0, int embedded_offset, - CORE_ADDR address, struct ui_file *stream, int format, - int deref_ref, int recurse, enum val_prettyprint pretty) +ada_val_print (struct type *type, const bfd_byte *valaddr0, + int embedded_offset, CORE_ADDR address, + struct ui_file *stream, int format, int deref_ref, + int recurse, enum val_prettyprint pretty) { struct ada_val_print_args args; args.type = type; @@ -589,8 +582,9 @@ ada_val_print_stub (void *args0) * does not catch evaluation errors (leaving that to ada_val_print). */ static int -ada_val_print_1 (struct type *type, char *valaddr0, int embedded_offset, - CORE_ADDR address, struct ui_file *stream, int format, +ada_val_print_1 (struct type *type, const bfd_byte *valaddr0, + int embedded_offset, CORE_ADDR address, + struct ui_file *stream, int format, int deref_ref, int recurse, enum val_prettyprint pretty) { unsigned int len; @@ -598,7 +592,7 @@ ada_val_print_1 (struct type *type, char *valaddr0, int embedded_offset, struct type *elttype; unsigned int eltlen; LONGEST val; - char *valaddr = valaddr0 + embedded_offset; + const bfd_byte *valaddr = valaddr0 + embedded_offset; type = ada_check_typedef (type); @@ -879,10 +873,10 @@ ada_val_print_1 (struct type *type, char *valaddr0, int embedded_offset, } static int -print_variant_part (struct type *type, int field_num, char *valaddr, +print_variant_part (struct type *type, int field_num, const bfd_byte *valaddr, struct ui_file *stream, int format, int recurse, enum val_prettyprint pretty, int comma_needed, - struct type *outer_type, char *outer_valaddr) + struct type *outer_type, const bfd_byte *outer_valaddr) { struct type *var_type = TYPE_FIELD_TYPE (type, field_num); int which = ada_which_variant_applies (var_type, outer_type, outer_valaddr); @@ -958,8 +952,9 @@ ada_value_print (struct value *val0, struct ui_file *stream, int format, } static void -print_record (struct type *type, char *valaddr, struct ui_file *stream, - int format, int recurse, enum val_prettyprint pretty) +print_record (struct type *type, const bfd_byte *valaddr, + struct ui_file *stream, int format, int recurse, + enum val_prettyprint pretty) { type = ada_check_typedef (type); @@ -990,10 +985,10 @@ print_record (struct type *type, char *valaddr, struct ui_file *stream, Returns 1 if COMMA_NEEDED or any fields were printed. */ static int -print_field_values (struct type *type, char *valaddr, struct ui_file *stream, - int format, int recurse, enum val_prettyprint pretty, - int comma_needed, struct type *outer_type, - char *outer_valaddr) +print_field_values (struct type *type, const bfd_byte *valaddr, + struct ui_file *stream, int format, int recurse, + enum val_prettyprint pretty, int comma_needed, + struct type *outer_type, const bfd_byte *outer_valaddr) { int i, len; -- cgit v1.1