mirrors/binutils-gdb
1
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-11-24 18:44:20 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

2005-01-28 Andrew Cagney <cagney@gnu.org>

Browse Source 
* ada-lang.c (value_from_contents_and_address)
	(to_record_with_fixed_variant_part)
	(value_tag_from_contents_and_address, ada_to_fixed_type)
	(to_fixed_variant_branch_type, to_fixed_record_type)
	(ada_template_to_fixed_record_type, cond_offset_host)
	(ada_template_to_fixed_record_type_1): Make buffer a const
	bfd_byte.
	* ada-lang.h (ada_template_to_fixed_record_type_1)
	(value_from_contents_and_address, ada_to_fixed_type): Ditto.
This commit is contained in:
Andrew Cagney 2005-01-28 19:56:01 +00:00
parent 7af0dfc73d
commit 10a2c479a7
3 changed files with 40 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gdb/ChangeLog
View File

@ -1,5 +1,15 @@
2005-01-28 Andrew Cagney <cagney@gnu.org>
* ada-lang.c (value_from_contents_and_address)
(to_record_with_fixed_variant_part)
(value_tag_from_contents_and_address, ada_to_fixed_type)
(to_fixed_variant_branch_type, to_fixed_record_type)
(ada_template_to_fixed_record_type, cond_offset_host)
(ada_template_to_fixed_record_type_1): Make buffer a const
bfd_byte.
* ada-lang.h (ada_template_to_fixed_record_type_1)
(value_from_contents_and_address, ada_to_fixed_type): Ditto.
* ada-valprint.c (char_at, printstr): Make buffer a const bfd_byte.
* gdbtypes.h (print_scalar_formatted): Make buffer a const bfd_byte.

35
gdb/ada-lang.c
View File

@ -1,6 +1,7 @@
/* Ada language support routines for GDB, the GNU debugger. Copyright
1992, 1993, 1994, 1997, 1998, 1999, 2000, 2003, 2004.
Free Software Foundation, Inc.
1992, 1993, 1994, 1997, 1998, 1999, 2000, 2003, 2004, 2005 Free
Software Foundation, Inc.
This file is part of GDB.
@ -161,7 +162,8 @@ static struct value *evaluate_subexp_type (struct expression *, int *);
static int is_dynamic_field (struct type *, int);
static struct type *to_fixed_variant_branch_type (struct type *, char *,
static struct type *to_fixed_variant_branch_type (struct type *,
const bfd_byte *,
CORE_ADDR, struct value *);
static struct type *to_fixed_array_type (struct type *, struct value *, int);
@ -412,7 +414,8 @@ is_suffix (const char *str, const char *suffix)
ADDRESS. */
struct value *
value_from_contents_and_address (struct type *type, char *valaddr,
value_from_contents_and_address (struct type *type,
const bfd_byte *valaddr,
CORE_ADDR address)
{
struct value *v = allocate_value (type);
@ -458,8 +461,8 @@ coerce_unspec_val_to_type (struct value *val, struct type *type)
}
}
static char *
cond_offset_host (char *valaddr, long offset)
static const bfd_byte *
cond_offset_host (const bfd_byte *valaddr, long offset)
{
if (valaddr == NULL)
return NULL;
@ -4995,7 +4998,8 @@ ada_value_tag (struct value *val)
ADDRESS. */
static struct value *
value_tag_from_contents_and_address (struct type *type, char *valaddr,
value_tag_from_contents_and_address (struct type *type,
const bfd_byte *valaddr,
CORE_ADDR address)
{
int tag_byte_offset, dummy1, dummy2;
@ -5003,7 +5007,9 @@ value_tag_from_contents_and_address (struct type *type, char *valaddr,
if (find_struct_field ("_tag", type, 0, &tag_type, &tag_byte_offset,
&dummy1, &dummy2))
{
char *valaddr1 = (valaddr == NULL) ? NULL : valaddr + tag_byte_offset;
const bfd_byte *valaddr1 = ((valaddr == NULL)
? NULL
: valaddr + tag_byte_offset);
CORE_ADDR address1 = (address == 0) ? 0 : address + tag_byte_offset;
return value_from_contents_and_address (tag_type, valaddr1, address1);
@ -6049,7 +6055,8 @@ empty_record (struct objfile *objfile)
byte-aligned. */
struct type *
ada_template_to_fixed_record_type_1 (struct type *type, char *valaddr,
ada_template_to_fixed_record_type_1 (struct type *type,
const bfd_byte *valaddr,
CORE_ADDR address, struct value *dval0,
int keep_dynamic_fields)
{
@ -6209,7 +6216,7 @@ ada_template_to_fixed_record_type_1 (struct type *type, char *valaddr,
of 1. */
static struct type *
template_to_fixed_record_type (struct type *type, char *valaddr,
template_to_fixed_record_type (struct type *type, const bfd_byte *valaddr,
CORE_ADDR address, struct value *dval0)
{
return ada_template_to_fixed_record_type_1 (type, valaddr,
@ -6276,7 +6283,7 @@ template_to_static_fixed_type (struct type *type0)
contains the necessary discriminant values. */
static struct type *
to_record_with_fixed_variant_part (struct type *type, char *valaddr,
to_record_with_fixed_variant_part (struct type *type, const bfd_byte *valaddr,
CORE_ADDR address, struct value *dval0)
{
struct value *mark = value_mark ();
@ -6354,7 +6361,7 @@ to_record_with_fixed_variant_part (struct type *type, char *valaddr,
shortcut and suspect the compiler should be altered. FIXME. */
static struct type *
to_fixed_record_type (struct type *type0, char *valaddr,
to_fixed_record_type (struct type *type0, const bfd_byte *valaddr,
CORE_ADDR address, struct value *dval)
{
struct type *templ_type;
@ -6389,7 +6396,7 @@ to_fixed_record_type (struct type *type0, char *valaddr,
indicated in the union's type name. */
static struct type *
to_fixed_variant_branch_type (struct type *var_type0, char *valaddr,
to_fixed_variant_branch_type (struct type *var_type0, const bfd_byte *valaddr,
CORE_ADDR address, struct value *dval)
{
int which;
@ -6495,7 +6502,7 @@ to_fixed_array_type (struct type *type0, struct value *dval,
ADDRESS or in VALADDR contains these discriminants. */
struct type *
ada_to_fixed_type (struct type *type, char *valaddr,
ada_to_fixed_type (struct type *type, const bfd_byte *valaddr,
CORE_ADDR address, struct value *dval)
{
type = ada_check_typedef (type);

16
gdb/ada-lang.h
View File

@ -196,7 +196,8 @@ extern int ada_value_print (struct value *, struct ui_file *, int,
/* Defined in ada-lang.c */
extern struct value *value_from_contents_and_address (struct type *, char *,
extern struct value *value_from_contents_and_address (struct type *,
const bfd_byte *,
CORE_ADDR);
extern void ada_emit_char (int, struct ui_file *, int, int);
@ -339,13 +340,14 @@ extern struct type *ada_system_address_type (void);
extern int ada_which_variant_applies (struct type *, struct type *, char *);
extern struct type *ada_to_fixed_type (struct type *, char *, CORE_ADDR,
struct value *);
extern struct type *ada_to_fixed_type (struct type *, const bfd_byte *,
CORE_ADDR, struct value *);
extern struct type *
ada_template_to_fixed_record_type_1 (struct type *type, char *valaddr,
CORE_ADDR address, struct value *dval0,
int keep_dynamic_fields);
extern struct type *ada_template_to_fixed_record_type_1 (struct type *type,
const bfd_byte *valaddr,
CORE_ADDR address,
struct value *dval0,
int keep_dynamic_fields);
extern int ada_name_prefix_len (const char *);