old-cross-binutils/gdb/frame-base.c
Andrew Cagney da62e63311 2003-04-01 Andrew Cagney <cagney@redhat.com>
Add frame debug info addresses:
	* frame-base.c: New file.
	* frame-base.h: New file.
	* frame.h (struct frame_base): Add opaque declaration.
	(get_frame_base): Update comment.
	(get_frame_base_address): Declare.
	(get_frame_locals_address): Declare.
	(get_frame_args_address): Declare.
	(struct frame_info): Add "base" and "base_cache".  Update
	comments on the unwinder.
	* frame.c: Include "frame-base.h".
	(get_frame_locals_address): New function.
	(get_frame_base_address): New function.
	(get_frame_args_address): New function.
	* findvar.c (read_var_value): Use get_frame_locals_address and
	get_frame_args_address.
	* stack.c (frame_info): Use get_frame_locals_address and
	get_frame_args_address.
	(FRAME_ARGS_ADDRESS_CORRECT): Delete conditionally defined macro,
	moved to "frame-base.c".
	* printcmd.c (print_frame_nameless_args): Ditto.
	* symtab.h (address_class): Update comments.
	* dwarf2loc.c (dwarf_expr_frame_base): Add note about
	get_frame_base_address.
	* dwarf2expr.c (execute_stack_op): Ditto.
	* Makefile.in (frame_base_h): Define.
	(frame.o): Update dependencies.
	(frame-base.o): Add dependencies.
	(SFILES): Add frame-base.c.
	(COMMON_OBS): Add frame-base.o.
2003-04-01 19:11:01 +00:00

154 lines
4.3 KiB
C

/* Definitions for frame address handler, for GDB, the GNU debugger.
Copyright 2003 Free Software Foundation, Inc.
This file is part of GDB.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#include "defs.h"
#include "frame-base.h"
#include "frame.h"
/* A default frame base implementations. If it wasn't for the old
FRAME_LOCALS_ADDRESS and FRAME_ARGS_ADDRESS, these could be
combined into a single function. All architectures really need to
override this. */
static CORE_ADDR
default_frame_base_address (struct frame_info *next_frame, void **this_cache)
{
struct frame_info *this_frame = get_prev_frame (next_frame);
return get_frame_base (this_frame); /* sigh! */
}
static CORE_ADDR
default_frame_locals_address (struct frame_info *next_frame, void **this_cache)
{
struct frame_info *this_frame = get_prev_frame (next_frame);
return FRAME_LOCALS_ADDRESS (this_frame);
}
static CORE_ADDR
default_frame_args_address (struct frame_info *next_frame, void **this_cache)
{
struct frame_info *this_frame = get_prev_frame (next_frame);
/* FRAME_ARGS_ADDRESS_CORRECT is just like FRAME_ARGS_ADDRESS except
that if it is unsure about the answer, it returns 0 instead of
guessing (this happens on the VAX and i960, for example).
On most machines, we never have to guess about the args address,
so FRAME_ARGS_ADDRESS{,_CORRECT} are the same. */
#ifdef FRAME_ARGS_ADDRESS_CORRECT
return FRAME_ARGS_ADDRESS_CORRECT (this_frame);
#else
return FRAME_ARGS_ADDRESS (this_frame);
#endif
}
const struct frame_base default_frame_base = {
NULL, /* No parent. */
default_frame_base_address,
default_frame_locals_address,
default_frame_args_address
};
static struct gdbarch_data *frame_base_data;
struct frame_base_table
{
frame_base_p_ftype **p;
const struct frame_base *default_base;
int nr;
};
static void *
frame_base_init (struct gdbarch *gdbarch)
{
struct frame_base_table *table = XCALLOC (1, struct frame_base_table);
table->default_base = &default_frame_base;
return table;
}
static void
frame_base_free (struct gdbarch *gdbarch, void *data)
{
struct frame_base_table *table =
gdbarch_data (gdbarch, frame_base_data);
xfree (table->p);
xfree (table);
}
static struct frame_base_table *
frame_base_table (struct gdbarch *gdbarch)
{
struct frame_base_table *table = gdbarch_data (gdbarch, frame_base_data);
if (table == NULL)
{
/* ULGH, called during architecture initialization. Patch
things up. */
table = frame_base_init (gdbarch);
set_gdbarch_data (gdbarch, frame_base_data, table);
}
return table;
}
/* Append a predicate to the end of the table. */
static void
append_predicate (struct frame_base_table *table, frame_base_p_ftype *p)
{
table->p = xrealloc (table->p, ((table->nr + 1)
* sizeof (frame_base_p_ftype *)));
table->p[table->nr] = p;
table->nr++;
}
void
frame_base_append_predicate (struct gdbarch *gdbarch,
frame_base_p_ftype *p)
{
struct frame_base_table *table = frame_base_table (gdbarch);
append_predicate (table, p);
}
void
frame_base_set_default (struct gdbarch *gdbarch,
const struct frame_base *default_base)
{
struct frame_base_table *table = frame_base_table (gdbarch);
table->default_base = default_base;
}
const struct frame_base *
frame_base_find_by_pc (struct gdbarch *gdbarch, CORE_ADDR pc)
{
int i;
struct frame_base_table *table = frame_base_table (gdbarch);
for (i = 0; i < table->nr; i++)
{
const struct frame_base *desc = table->p[i] (pc);
if (desc != NULL)
return desc;
}
return table->default_base;
}
void
_initialize_frame_base (void)
{
frame_base_data = register_gdbarch_data (frame_base_init,
frame_base_free);
}