* dwarf2loc.h (struct dwarf2_locexpr_baton) <data>: Now const.

(struct dwarf2_loclist_baton) <data>: Likewise.
	* dwarf2loc.c (find_location_expression): Constify return type.
	(dwarf2_evaluate_loc_desc): Make 'data' argument const.
	(dwarf2_loc_desc_needs_frame): Likewise.
	(loclist_read_variable): Constify.
	(loclist_describe_location): Likewise.
	(loclist_tracepoint_var_ref): Likewise.
This commit is contained in:
Tom Tromey
2010-05-26 15:21:13 +00:00
parent f418727792
commit 947bb88ff5
3 changed files with 20 additions and 9 deletions

View File

@@ -1,3 +1,14 @@
2010-05-26 Tom Tromey <tromey@redhat.com>
* dwarf2loc.h (struct dwarf2_locexpr_baton) <data>: Now const.
(struct dwarf2_loclist_baton) <data>: Likewise.
* dwarf2loc.c (find_location_expression): Constify return type.
(dwarf2_evaluate_loc_desc): Make 'data' argument const.
(dwarf2_loc_desc_needs_frame): Likewise.
(loclist_read_variable): Constify.
(loclist_describe_location): Likewise.
(loclist_tracepoint_var_ref): Likewise.
2010-05-25 Tom Tromey <tromey@redhat.com> 2010-05-25 Tom Tromey <tromey@redhat.com>
* dwarf2loc.c (dwarf_expr_frame_base): Constify. * dwarf2loc.c (dwarf_expr_frame_base): Constify.

View File

@@ -54,12 +54,12 @@ dwarf_expr_frame_base_1 (struct symbol *framefunc, CORE_ADDR pc,
For now, only return the first matching location expression; there For now, only return the first matching location expression; there
can be more than one in the list. */ can be more than one in the list. */
static gdb_byte * static const gdb_byte *
find_location_expression (struct dwarf2_loclist_baton *baton, find_location_expression (struct dwarf2_loclist_baton *baton,
size_t *locexpr_length, CORE_ADDR pc) size_t *locexpr_length, CORE_ADDR pc)
{ {
CORE_ADDR low, high; CORE_ADDR low, high;
gdb_byte *loc_ptr, *buf_end; const gdb_byte *loc_ptr, *buf_end;
int length; int length;
struct objfile *objfile = dwarf2_per_cu_objfile (baton->per_cu); struct objfile *objfile = dwarf2_per_cu_objfile (baton->per_cu);
struct gdbarch *gdbarch = get_objfile_arch (objfile); struct gdbarch *gdbarch = get_objfile_arch (objfile);
@@ -773,7 +773,7 @@ static struct lval_funcs pieced_value_funcs = {
static struct value * static struct value *
dwarf2_evaluate_loc_desc (struct type *type, struct frame_info *frame, dwarf2_evaluate_loc_desc (struct type *type, struct frame_info *frame,
gdb_byte *data, unsigned short size, const gdb_byte *data, unsigned short size,
struct dwarf2_per_cu_data *per_cu) struct dwarf2_per_cu_data *per_cu)
{ {
struct value *retval; struct value *retval;
@@ -953,7 +953,7 @@ needs_frame_tls_address (void *baton, CORE_ADDR offset)
requires a frame to evaluate. */ requires a frame to evaluate. */
static int static int
dwarf2_loc_desc_needs_frame (gdb_byte *data, unsigned short size, dwarf2_loc_desc_needs_frame (const gdb_byte *data, unsigned short size,
struct dwarf2_per_cu_data *per_cu) struct dwarf2_per_cu_data *per_cu)
{ {
struct needs_frame_baton baton; struct needs_frame_baton baton;
@@ -1515,7 +1515,7 @@ loclist_read_variable (struct symbol *symbol, struct frame_info *frame)
{ {
struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol); struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
struct value *val; struct value *val;
gdb_byte *data; const gdb_byte *data;
size_t size; size_t size;
data = find_location_expression (dlbaton, &size, data = find_location_expression (dlbaton, &size,
@@ -1557,7 +1557,7 @@ loclist_describe_location (struct symbol *symbol, CORE_ADDR addr,
{ {
struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol); struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
CORE_ADDR low, high; CORE_ADDR low, high;
gdb_byte *loc_ptr, *buf_end; const gdb_byte *loc_ptr, *buf_end;
int length, first = 1; int length, first = 1;
struct objfile *objfile = dwarf2_per_cu_objfile (dlbaton->per_cu); struct objfile *objfile = dwarf2_per_cu_objfile (dlbaton->per_cu);
struct gdbarch *gdbarch = get_objfile_arch (objfile); struct gdbarch *gdbarch = get_objfile_arch (objfile);
@@ -1639,7 +1639,7 @@ loclist_tracepoint_var_ref (struct symbol *symbol, struct gdbarch *gdbarch,
struct agent_expr *ax, struct axs_value *value) struct agent_expr *ax, struct axs_value *value)
{ {
struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol); struct dwarf2_loclist_baton *dlbaton = SYMBOL_LOCATION_BATON (symbol);
gdb_byte *data; const gdb_byte *data;
size_t size; size_t size;
data = find_location_expression (dlbaton, &size, ax->scope); data = find_location_expression (dlbaton, &size, ax->scope);

View File

@@ -43,7 +43,7 @@ CORE_ADDR dwarf2_per_cu_addr_size (struct dwarf2_per_cu_data *cu);
struct dwarf2_locexpr_baton struct dwarf2_locexpr_baton
{ {
/* Pointer to the start of the location expression. */ /* Pointer to the start of the location expression. */
gdb_byte *data; const gdb_byte *data;
/* Length of the location expression. */ /* Length of the location expression. */
unsigned long size; unsigned long size;
@@ -60,7 +60,7 @@ struct dwarf2_loclist_baton
CORE_ADDR base_address; CORE_ADDR base_address;
/* Pointer to the start of the location list. */ /* Pointer to the start of the location list. */
gdb_byte *data; const gdb_byte *data;
/* Length of the location list. */ /* Length of the location list. */
unsigned long size; unsigned long size;