#include "defs.h"
#include "inferior.h"
#include "target.h"
#include "gdbarch.h"
#include "gdbcmd.h"
#include "regcache.h"
#include "reggroups.h"
#include "gdb_assert.h"
#include "gdb_string.h"
#include "gdbcmd.h"
#include "observer.h"
struct gdbarch_data *regcache_descr_handle;
struct regcache_descr
{
struct gdbarch *gdbarch;
int nr_raw_registers;
long sizeof_raw_registers;
long sizeof_raw_register_valid_p;
int nr_cooked_registers;
long sizeof_cooked_registers;
long sizeof_cooked_register_valid_p;
long *register_offset;
long *sizeof_register;
struct type **register_type;
};
static void *
init_regcache_descr (struct gdbarch *gdbarch)
{
int i;
struct regcache_descr *descr;
gdb_assert (gdbarch != NULL);
descr = GDBARCH_OBSTACK_ZALLOC (gdbarch, struct regcache_descr);
descr->gdbarch = gdbarch;
descr->nr_cooked_registers = NUM_REGS + NUM_PSEUDO_REGS;
descr->sizeof_cooked_register_valid_p = NUM_REGS + NUM_PSEUDO_REGS;
descr->register_type
= GDBARCH_OBSTACK_CALLOC (gdbarch, descr->nr_cooked_registers, struct type *);
for (i = 0; i < descr->nr_cooked_registers; i++)
descr->register_type[i] = gdbarch_register_type (gdbarch, i);
descr->nr_raw_registers = NUM_REGS;
descr->sizeof_raw_register_valid_p = descr->sizeof_cooked_register_valid_p;
{
long offset = 0;
descr->sizeof_register
= GDBARCH_OBSTACK_CALLOC (gdbarch, descr->nr_cooked_registers, long);
descr->register_offset
= GDBARCH_OBSTACK_CALLOC (gdbarch, descr->nr_cooked_registers, long);
for (i = 0; i < descr->nr_cooked_registers; i++)
{
descr->sizeof_register[i] = TYPE_LENGTH (descr->register_type[i]);
descr->register_offset[i] = offset;
offset += descr->sizeof_register[i];
gdb_assert (MAX_REGISTER_SIZE >= descr->sizeof_register[i]);
}
descr->sizeof_cooked_registers = offset;
}
descr->sizeof_raw_registers = descr->sizeof_cooked_registers;
return descr;
}
static struct regcache_descr *
regcache_descr (struct gdbarch *gdbarch)
{
return gdbarch_data (gdbarch, regcache_descr_handle);
}
struct type *
register_type (struct gdbarch *gdbarch, int regnum)
{
struct regcache_descr *descr = regcache_descr (gdbarch);
gdb_assert (regnum >= 0 && regnum < descr->nr_cooked_registers);
return descr->register_type[regnum];
}
int
register_size (struct gdbarch *gdbarch, int regnum)
{
struct regcache_descr *descr = regcache_descr (gdbarch);
int size;
gdb_assert (regnum >= 0 && regnum < (NUM_REGS + NUM_PSEUDO_REGS));
size = descr->sizeof_register[regnum];
return size;
}
struct regcache
{
struct regcache_descr *descr;
gdb_byte *registers;
gdb_byte *register_valid_p;
int readonly_p;
};
struct regcache *
regcache_xmalloc (struct gdbarch *gdbarch)
{
struct regcache_descr *descr;
struct regcache *regcache;
gdb_assert (gdbarch != NULL);
descr = regcache_descr (gdbarch);
regcache = XMALLOC (struct regcache);
regcache->descr = descr;
regcache->registers
= XCALLOC (descr->sizeof_raw_registers, gdb_byte);
regcache->register_valid_p
= XCALLOC (descr->sizeof_raw_register_valid_p, gdb_byte);
regcache->readonly_p = 1;
return regcache;
}
void
regcache_xfree (struct regcache *regcache)
{
if (regcache == NULL)
return;
xfree (regcache->registers);
xfree (regcache->register_valid_p);
xfree (regcache);
}
static void
do_regcache_xfree (void *data)
{
regcache_xfree (data);
}
struct cleanup *
make_cleanup_regcache_xfree (struct regcache *regcache)
{
return make_cleanup (do_regcache_xfree, regcache);
}
struct gdbarch *
get_regcache_arch (const struct regcache *regcache)
{
return regcache->descr->gdbarch;
}
static gdb_byte *
register_buffer (const struct regcache *regcache, int regnum)
{
return regcache->registers + regcache->descr->register_offset[regnum];
}
void
regcache_save (struct regcache *dst, regcache_cooked_read_ftype *cooked_read,
void *src)
{
struct gdbarch *gdbarch = dst->descr->gdbarch;
gdb_byte buf[MAX_REGISTER_SIZE];
int regnum;
gdb_assert (dst->readonly_p);
memset (dst->registers, 0, dst->descr->sizeof_cooked_registers);
memset (dst->register_valid_p, 0, dst->descr->sizeof_cooked_register_valid_p);
for (regnum = 0; regnum < dst->descr->nr_cooked_registers; regnum++)
{
if (gdbarch_register_reggroup_p (gdbarch, regnum, save_reggroup))
{
int valid = cooked_read (src, regnum, buf);
if (valid)
{
memcpy (register_buffer (dst, regnum), buf,
register_size (gdbarch, regnum));
dst->register_valid_p[regnum] = 1;
}
}
}
}
void
regcache_restore (struct regcache *dst,
regcache_cooked_read_ftype *cooked_read,
void *cooked_read_context)
{
struct gdbarch *gdbarch = dst->descr->gdbarch;
gdb_byte buf[MAX_REGISTER_SIZE];
int regnum;
gdb_assert (!dst->readonly_p);
for (regnum = 0; regnum < dst->descr->nr_cooked_registers; regnum++)
{
if (gdbarch_register_reggroup_p (gdbarch, regnum, restore_reggroup))
{
int valid = cooked_read (cooked_read_context, regnum, buf);
if (valid)
regcache_cooked_write (dst, regnum, buf);
}
}
}
static int
do_cooked_read (void *src, int regnum, gdb_byte *buf)
{
struct regcache *regcache = src;
if (!regcache->register_valid_p[regnum] && regcache->readonly_p)
return 0;
regcache_cooked_read (regcache, regnum, buf);
return 1;
}
void
regcache_cpy (struct regcache *dst, struct regcache *src)
{
int i;
gdb_byte *buf;
gdb_assert (src != NULL && dst != NULL);
gdb_assert (src->descr->gdbarch == dst->descr->gdbarch);
gdb_assert (src != dst);
gdb_assert (src->readonly_p || dst->readonly_p);
if (!src->readonly_p)
regcache_save (dst, do_cooked_read, src);
else if (!dst->readonly_p)
regcache_restore (dst, do_cooked_read, src);
else
regcache_cpy_no_passthrough (dst, src);
}
void
regcache_cpy_no_passthrough (struct regcache *dst, struct regcache *src)
{
int i;
gdb_assert (src != NULL && dst != NULL);
gdb_assert (src->descr->gdbarch == dst->descr->gdbarch);
gdb_assert (dst != current_regcache);
memcpy (dst->registers, src->registers, dst->descr->sizeof_raw_registers);
memcpy (dst->register_valid_p, src->register_valid_p,
dst->descr->sizeof_raw_register_valid_p);
}
struct regcache *
regcache_dup (struct regcache *src)
{
struct regcache *newbuf;
gdb_assert (current_regcache != NULL);
newbuf = regcache_xmalloc (src->descr->gdbarch);
regcache_cpy (newbuf, src);
return newbuf;
}
struct regcache *
regcache_dup_no_passthrough (struct regcache *src)
{
struct regcache *newbuf;
gdb_assert (current_regcache != NULL);
newbuf = regcache_xmalloc (src->descr->gdbarch);
regcache_cpy_no_passthrough (newbuf, src);
return newbuf;
}
int
regcache_valid_p (struct regcache *regcache, int regnum)
{
gdb_assert (regcache != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_raw_registers);
return regcache->register_valid_p[regnum];
}
gdb_byte *
deprecated_grub_regcache_for_registers (struct regcache *regcache)
{
return regcache->registers;
}
struct regcache *current_regcache;
static ptid_t registers_ptid;
int
register_cached (int regnum)
{
return current_regcache->register_valid_p[regnum];
}
void
set_register_cached (int regnum, int state)
{
gdb_assert (regnum >= 0);
gdb_assert (regnum < current_regcache->descr->nr_raw_registers);
current_regcache->register_valid_p[regnum] = state;
}
void
regcache_observer_target_changed (struct target_ops *target)
{
registers_changed ();
}
void
registers_changed (void)
{
int i;
registers_ptid = pid_to_ptid (-1);
alloca (0);
for (i = 0; i < current_regcache->descr->nr_raw_registers; i++)
set_register_cached (i, 0);
if (deprecated_registers_changed_hook)
deprecated_registers_changed_hook ();
}
void
deprecated_registers_fetched (void)
{
int i;
for (i = 0; i < NUM_REGS; i++)
set_register_cached (i, 1);
}
void
deprecated_read_register_bytes (int in_start, gdb_byte *in_buf, int in_len)
{
int in_end = in_start + in_len;
int regnum;
gdb_byte reg_buf[MAX_REGISTER_SIZE];
for (regnum = 0; regnum < NUM_REGS + NUM_PSEUDO_REGS; regnum++)
{
int reg_start;
int reg_end;
int reg_len;
int start;
int end;
int byte;
reg_start = DEPRECATED_REGISTER_BYTE (regnum);
reg_len = register_size (current_gdbarch, regnum);
reg_end = reg_start + reg_len;
if (reg_end <= in_start || in_end <= reg_start)
continue;
if (REGISTER_NAME (regnum) != NULL && *REGISTER_NAME (regnum) != '\0')
deprecated_read_register_gen (regnum, reg_buf);
if (in_buf == NULL)
continue;
if (reg_start > in_start)
start = reg_start;
else
start = in_start;
if (reg_end < in_end)
end = reg_end;
else
end = in_end;
for (byte = start; byte < end; byte++)
{
in_buf[byte - in_start] = reg_buf[byte - reg_start];
}
}
}
void
regcache_raw_read (struct regcache *regcache, int regnum, gdb_byte *buf)
{
gdb_assert (regcache != NULL && buf != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_raw_registers);
if (!regcache->readonly_p)
{
gdb_assert (regcache == current_regcache);
if (! ptid_equal (registers_ptid, inferior_ptid))
{
registers_changed ();
registers_ptid = inferior_ptid;
}
if (!register_cached (regnum))
target_fetch_registers (regnum);
#if 0
gdb_assert (register_cached (regnum));
#endif
}
memcpy (buf, register_buffer (regcache, regnum),
regcache->descr->sizeof_register[regnum]);
}
void
regcache_raw_read_signed (struct regcache *regcache, int regnum, LONGEST *val)
{
gdb_byte *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_raw_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
regcache_raw_read (regcache, regnum, buf);
(*val) = extract_signed_integer (buf,
regcache->descr->sizeof_register[regnum]);
}
void
regcache_raw_read_unsigned (struct regcache *regcache, int regnum,
ULONGEST *val)
{
gdb_byte *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_raw_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
regcache_raw_read (regcache, regnum, buf);
(*val) = extract_unsigned_integer (buf,
regcache->descr->sizeof_register[regnum]);
}
void
regcache_raw_write_signed (struct regcache *regcache, int regnum, LONGEST val)
{
void *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >=0 && regnum < regcache->descr->nr_raw_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
store_signed_integer (buf, regcache->descr->sizeof_register[regnum], val);
regcache_raw_write (regcache, regnum, buf);
}
void
regcache_raw_write_unsigned (struct regcache *regcache, int regnum,
ULONGEST val)
{
void *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >=0 && regnum < regcache->descr->nr_raw_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
store_unsigned_integer (buf, regcache->descr->sizeof_register[regnum], val);
regcache_raw_write (regcache, regnum, buf);
}
void
deprecated_read_register_gen (int regnum, gdb_byte *buf)
{
gdb_assert (current_regcache != NULL);
gdb_assert (current_regcache->descr->gdbarch == current_gdbarch);
regcache_cooked_read (current_regcache, regnum, buf);
}
void
regcache_cooked_read (struct regcache *regcache, int regnum, gdb_byte *buf)
{
gdb_assert (regnum >= 0);
gdb_assert (regnum < regcache->descr->nr_cooked_registers);
if (regnum < regcache->descr->nr_raw_registers)
regcache_raw_read (regcache, regnum, buf);
else if (regcache->readonly_p
&& regnum < regcache->descr->nr_cooked_registers
&& regcache->register_valid_p[regnum])
memcpy (buf, register_buffer (regcache, regnum),
regcache->descr->sizeof_register[regnum]);
else
gdbarch_pseudo_register_read (regcache->descr->gdbarch, regcache,
regnum, buf);
}
void
regcache_cooked_read_signed (struct regcache *regcache, int regnum,
LONGEST *val)
{
gdb_byte *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_cooked_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
regcache_cooked_read (regcache, regnum, buf);
(*val) = extract_signed_integer (buf,
regcache->descr->sizeof_register[regnum]);
}
void
regcache_cooked_read_unsigned (struct regcache *regcache, int regnum,
ULONGEST *val)
{
gdb_byte *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_cooked_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
regcache_cooked_read (regcache, regnum, buf);
(*val) = extract_unsigned_integer (buf,
regcache->descr->sizeof_register[regnum]);
}
void
regcache_cooked_write_signed (struct regcache *regcache, int regnum,
LONGEST val)
{
void *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >=0 && regnum < regcache->descr->nr_cooked_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
store_signed_integer (buf, regcache->descr->sizeof_register[regnum], val);
regcache_cooked_write (regcache, regnum, buf);
}
void
regcache_cooked_write_unsigned (struct regcache *regcache, int regnum,
ULONGEST val)
{
void *buf;
gdb_assert (regcache != NULL);
gdb_assert (regnum >=0 && regnum < regcache->descr->nr_cooked_registers);
buf = alloca (regcache->descr->sizeof_register[regnum]);
store_unsigned_integer (buf, regcache->descr->sizeof_register[regnum], val);
regcache_cooked_write (regcache, regnum, buf);
}
void
regcache_raw_write (struct regcache *regcache, int regnum,
const gdb_byte *buf)
{
gdb_assert (regcache != NULL && buf != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_raw_registers);
gdb_assert (!regcache->readonly_p);
if (CANNOT_STORE_REGISTER (regnum))
return;
gdb_assert (regcache == current_regcache);
if (! ptid_equal (registers_ptid, inferior_ptid))
{
registers_changed ();
registers_ptid = inferior_ptid;
}
if (regcache_valid_p (regcache, regnum)
&& (memcmp (register_buffer (regcache, regnum), buf,
regcache->descr->sizeof_register[regnum]) == 0))
return;
target_prepare_to_store ();
memcpy (register_buffer (regcache, regnum), buf,
regcache->descr->sizeof_register[regnum]);
regcache->register_valid_p[regnum] = 1;
target_store_registers (regnum);
}
void
deprecated_write_register_gen (int regnum, gdb_byte *buf)
{
gdb_assert (current_regcache != NULL);
gdb_assert (current_regcache->descr->gdbarch == current_gdbarch);
regcache_cooked_write (current_regcache, regnum, buf);
}
void
regcache_cooked_write (struct regcache *regcache, int regnum,
const gdb_byte *buf)
{
gdb_assert (regnum >= 0);
gdb_assert (regnum < regcache->descr->nr_cooked_registers);
if (regnum < regcache->descr->nr_raw_registers)
regcache_raw_write (regcache, regnum, buf);
else
gdbarch_pseudo_register_write (regcache->descr->gdbarch, regcache,
regnum, buf);
}
void
deprecated_write_register_bytes (int myregstart, gdb_byte *myaddr, int inlen)
{
int myregend = myregstart + inlen;
int regnum;
target_prepare_to_store ();
for (regnum = 0; regnum < NUM_REGS + NUM_PSEUDO_REGS; regnum++)
{
int regstart, regend;
regstart = DEPRECATED_REGISTER_BYTE (regnum);
regend = regstart + register_size (current_gdbarch, regnum);
if (myregend <= regstart || regend <= myregstart)
;
else if (myregstart <= regstart && regend <= myregend)
deprecated_write_register_gen (regnum, myaddr + (regstart - myregstart));
else
{
gdb_byte regbuf[MAX_REGISTER_SIZE];
int overlapstart = max (regstart, myregstart);
int overlapend = min (regend, myregend);
deprecated_read_register_gen (regnum, regbuf);
target_store_registers (regnum);
}
}
}
typedef void (regcache_read_ftype) (struct regcache *regcache, int regnum,
void *buf);
typedef void (regcache_write_ftype) (struct regcache *regcache, int regnum,
const void *buf);
static void
regcache_xfer_part (struct regcache *regcache, int regnum,
int offset, int len, void *in, const void *out,
void (*read) (struct regcache *regcache, int regnum,
gdb_byte *buf),
void (*write) (struct regcache *regcache, int regnum,
const gdb_byte *buf))
{
struct regcache_descr *descr = regcache->descr;
gdb_byte reg[MAX_REGISTER_SIZE];
gdb_assert (offset >= 0 && offset <= descr->sizeof_register[regnum]);
gdb_assert (len >= 0 && offset + len <= descr->sizeof_register[regnum]);
if (offset + len == 0)
return;
if (in != NULL
|| offset > 0
|| offset + len < descr->sizeof_register[regnum])
{
gdb_assert (read != NULL);
read (regcache, regnum, reg);
}
if (in != NULL)
memcpy (in, reg + offset, len);
if (out != NULL)
memcpy (reg + offset, out, len);
if (out != NULL)
{
gdb_assert (write != NULL);
write (regcache, regnum, reg);
}
}
void
regcache_raw_read_part (struct regcache *regcache, int regnum,
int offset, int len, gdb_byte *buf)
{
struct regcache_descr *descr = regcache->descr;
gdb_assert (regnum >= 0 && regnum < descr->nr_raw_registers);
regcache_xfer_part (regcache, regnum, offset, len, buf, NULL,
regcache_raw_read, regcache_raw_write);
}
void
regcache_raw_write_part (struct regcache *regcache, int regnum,
int offset, int len, const gdb_byte *buf)
{
struct regcache_descr *descr = regcache->descr;
gdb_assert (regnum >= 0 && regnum < descr->nr_raw_registers);
regcache_xfer_part (regcache, regnum, offset, len, NULL, buf,
regcache_raw_read, regcache_raw_write);
}
void
regcache_cooked_read_part (struct regcache *regcache, int regnum,
int offset, int len, gdb_byte *buf)
{
struct regcache_descr *descr = regcache->descr;
gdb_assert (regnum >= 0 && regnum < descr->nr_cooked_registers);
regcache_xfer_part (regcache, regnum, offset, len, buf, NULL,
regcache_cooked_read, regcache_cooked_write);
}
void
regcache_cooked_write_part (struct regcache *regcache, int regnum,
int offset, int len, const gdb_byte *buf)
{
struct regcache_descr *descr = regcache->descr;
gdb_assert (regnum >= 0 && regnum < descr->nr_cooked_registers);
regcache_xfer_part (regcache, regnum, offset, len, NULL, buf,
regcache_cooked_read, regcache_cooked_write);
}
int
register_offset_hack (struct gdbarch *gdbarch, int regnum)
{
struct regcache_descr *descr = regcache_descr (gdbarch);
gdb_assert (regnum >= 0 && regnum < descr->nr_cooked_registers);
return descr->register_offset[regnum];
}
int
deprecated_register_bytes (void)
{
return current_regcache->descr->sizeof_raw_registers;
}
ULONGEST
read_register (int regnum)
{
gdb_byte *buf = alloca (register_size (current_gdbarch, regnum));
deprecated_read_register_gen (regnum, buf);
return (extract_unsigned_integer (buf, register_size (current_gdbarch, regnum)));
}
ULONGEST
read_register_pid (int regnum, ptid_t ptid)
{
ptid_t save_ptid;
int save_pid;
CORE_ADDR retval;
if (ptid_equal (ptid, inferior_ptid))
return read_register (regnum);
save_ptid = inferior_ptid;
inferior_ptid = ptid;
retval = read_register (regnum);
inferior_ptid = save_ptid;
return retval;
}
void
write_register (int regnum, LONGEST val)
{
void *buf;
int size;
size = register_size (current_gdbarch, regnum);
buf = alloca (size);
store_signed_integer (buf, size, (LONGEST) val);
deprecated_write_register_gen (regnum, buf);
}
void
write_register_pid (int regnum, CORE_ADDR val, ptid_t ptid)
{
ptid_t save_ptid;
if (ptid_equal (ptid, inferior_ptid))
{
write_register (regnum, val);
return;
}
save_ptid = inferior_ptid;
inferior_ptid = ptid;
write_register (regnum, val);
inferior_ptid = save_ptid;
}
void
regcache_raw_supply (struct regcache *regcache, int regnum, const void *buf)
{
void *regbuf;
size_t size;
gdb_assert (regcache != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_raw_registers);
gdb_assert (!regcache->readonly_p);
if (regcache == current_regcache
&& !ptid_equal (registers_ptid, inferior_ptid))
{
registers_changed ();
registers_ptid = inferior_ptid;
}
regbuf = register_buffer (regcache, regnum);
size = regcache->descr->sizeof_register[regnum];
if (buf)
memcpy (regbuf, buf, size);
else
memset (regbuf, 0, size);
regcache->register_valid_p[regnum] = 1;
}
void
regcache_raw_collect (const struct regcache *regcache, int regnum, void *buf)
{
const void *regbuf;
size_t size;
gdb_assert (regcache != NULL && buf != NULL);
gdb_assert (regnum >= 0 && regnum < regcache->descr->nr_raw_registers);
regbuf = register_buffer (regcache, regnum);
size = regcache->descr->sizeof_register[regnum];
memcpy (buf, regbuf, size);
}
CORE_ADDR
read_pc_pid (ptid_t ptid)
{
ptid_t saved_inferior_ptid;
CORE_ADDR pc_val;
saved_inferior_ptid = inferior_ptid;
inferior_ptid = ptid;
if (TARGET_READ_PC_P ())
pc_val = TARGET_READ_PC (ptid);
else if (PC_REGNUM >= 0)
{
CORE_ADDR raw_val = read_register_pid (PC_REGNUM, ptid);
pc_val = ADDR_BITS_REMOVE (raw_val);
}
else
internal_error (__FILE__, __LINE__, _("read_pc_pid: Unable to find PC"));
inferior_ptid = saved_inferior_ptid;
return pc_val;
}
CORE_ADDR
read_pc (void)
{
return read_pc_pid (inferior_ptid);
}
void
generic_target_write_pc (CORE_ADDR pc, ptid_t ptid)
{
if (PC_REGNUM >= 0)
write_register_pid (PC_REGNUM, pc, ptid);
else
internal_error (__FILE__, __LINE__,
_("generic_target_write_pc"));
}
void
write_pc_pid (CORE_ADDR pc, ptid_t ptid)
{
ptid_t saved_inferior_ptid;
saved_inferior_ptid = inferior_ptid;
inferior_ptid = ptid;
TARGET_WRITE_PC (pc, ptid);
inferior_ptid = saved_inferior_ptid;
}
void
write_pc (CORE_ADDR pc)
{
write_pc_pid (pc, inferior_ptid);
}
CORE_ADDR
read_sp (void)
{
if (TARGET_READ_SP_P ())
return TARGET_READ_SP ();
else if (gdbarch_unwind_sp_p (current_gdbarch))
return get_frame_sp (get_current_frame ());
else if (SP_REGNUM >= 0)
return read_register (SP_REGNUM);
internal_error (__FILE__, __LINE__, _("read_sp: Unable to find SP"));
}
static void
reg_flush_command (char *command, int from_tty)
{
registers_changed ();
if (from_tty)
printf_filtered (_("Register cache flushed.\n"));
}
static void
build_regcache (void)
{
current_regcache = regcache_xmalloc (current_gdbarch);
current_regcache->readonly_p = 0;
}
int
regcache_compare (struct regcache *rc1, struct regcache *rc2)
{
int rslt;
rslt = memcmp (rc1->registers, rc2->registers, rc1->descr->sizeof_raw_registers);
if (rslt)
return 0;
return 1;
}
static void
dump_endian_bytes (struct ui_file *file, enum bfd_endian endian,
const unsigned char *buf, long len)
{
int i;
switch (endian)
{
case BFD_ENDIAN_BIG:
for (i = 0; i < len; i++)
fprintf_unfiltered (file, "%02x", buf[i]);
break;
case BFD_ENDIAN_LITTLE:
for (i = len - 1; i >= 0; i--)
fprintf_unfiltered (file, "%02x", buf[i]);
break;
default:
internal_error (__FILE__, __LINE__, _("Bad switch"));
}
}
enum regcache_dump_what
{
regcache_dump_none, regcache_dump_raw, regcache_dump_cooked, regcache_dump_groups
};
static void
regcache_dump (struct regcache *regcache, struct ui_file *file,
enum regcache_dump_what what_to_dump)
{
struct cleanup *cleanups = make_cleanup (null_cleanup, NULL);
struct gdbarch *gdbarch = regcache->descr->gdbarch;
int regnum;
int footnote_nr = 0;
int footnote_register_size = 0;
int footnote_register_offset = 0;
int footnote_register_type_name_null = 0;
long register_offset = 0;
unsigned char buf[MAX_REGISTER_SIZE];
#if 0
fprintf_unfiltered (file, "nr_raw_registers %d\n",
regcache->descr->nr_raw_registers);
fprintf_unfiltered (file, "nr_cooked_registers %d\n",
regcache->descr->nr_cooked_registers);
fprintf_unfiltered (file, "sizeof_raw_registers %ld\n",
regcache->descr->sizeof_raw_registers);
fprintf_unfiltered (file, "sizeof_raw_register_valid_p %ld\n",
regcache->descr->sizeof_raw_register_valid_p);
fprintf_unfiltered (file, "NUM_REGS %d\n", NUM_REGS);
fprintf_unfiltered (file, "NUM_PSEUDO_REGS %d\n", NUM_PSEUDO_REGS);
#endif
gdb_assert (regcache->descr->nr_cooked_registers
== (NUM_REGS + NUM_PSEUDO_REGS));
for (regnum = -1; regnum < regcache->descr->nr_cooked_registers; regnum++)
{
if (regnum < 0)
fprintf_unfiltered (file, " %-10s", "Name");
else
{
const char *p = REGISTER_NAME (regnum);
if (p == NULL)
p = "";
else if (p[0] == '\0')
p = "''";
fprintf_unfiltered (file, " %-10s", p);
}
if (regnum < 0)
fprintf_unfiltered (file, " %4s", "Nr");
else
fprintf_unfiltered (file, " %4d", regnum);
if (regnum < 0)
fprintf_unfiltered (file, " %4s", "Rel");
else if (regnum < NUM_REGS)
fprintf_unfiltered (file, " %4d", regnum);
else
fprintf_unfiltered (file, " %4d", (regnum - NUM_REGS));
if (regnum < 0)
fprintf_unfiltered (file, " %6s ", "Offset");
else
{
fprintf_unfiltered (file, " %6ld",
regcache->descr->register_offset[regnum]);
if (register_offset != regcache->descr->register_offset[regnum]
|| register_offset != DEPRECATED_REGISTER_BYTE (regnum)
|| (regnum > 0
&& (regcache->descr->register_offset[regnum]
!= (regcache->descr->register_offset[regnum - 1]
+ regcache->descr->sizeof_register[regnum - 1])))
)
{
if (!footnote_register_offset)
footnote_register_offset = ++footnote_nr;
fprintf_unfiltered (file, "*%d", footnote_register_offset);
}
else
fprintf_unfiltered (file, " ");
register_offset = (regcache->descr->register_offset[regnum]
+ regcache->descr->sizeof_register[regnum]);
}
if (regnum < 0)
fprintf_unfiltered (file, " %5s ", "Size");
else
fprintf_unfiltered (file, " %5ld",
regcache->descr->sizeof_register[regnum]);
{
const char *t;
if (regnum < 0)
t = "Type";
else
{
static const char blt[] = "builtin_type";
t = TYPE_NAME (register_type (regcache->descr->gdbarch, regnum));
if (t == NULL)
{
char *n;
if (!footnote_register_type_name_null)
footnote_register_type_name_null = ++footnote_nr;
n = xstrprintf ("*%d", footnote_register_type_name_null);
make_cleanup (xfree, n);
t = n;
}
if (strncmp (t, blt, strlen (blt)) == 0)
t += strlen (blt);
}
fprintf_unfiltered (file, " %-15s", t);
}
fprintf_unfiltered (file, " ");
if (what_to_dump == regcache_dump_raw)
{
if (regnum < 0)
fprintf_unfiltered (file, "Raw value");
else if (regnum >= regcache->descr->nr_raw_registers)
fprintf_unfiltered (file, "<cooked>");
else if (!regcache_valid_p (regcache, regnum))
fprintf_unfiltered (file, "<invalid>");
else
{
regcache_raw_read (regcache, regnum, buf);
fprintf_unfiltered (file, "0x");
dump_endian_bytes (file, TARGET_BYTE_ORDER, buf,
regcache->descr->sizeof_register[regnum]);
}
}
if (what_to_dump == regcache_dump_cooked)
{
if (regnum < 0)
fprintf_unfiltered (file, "Cooked value");
else
{
regcache_cooked_read (regcache, regnum, buf);
fprintf_unfiltered (file, "0x");
dump_endian_bytes (file, TARGET_BYTE_ORDER, buf,
regcache->descr->sizeof_register[regnum]);
}
}
if (what_to_dump == regcache_dump_groups)
{
if (regnum < 0)
fprintf_unfiltered (file, "Groups");
else
{
const char *sep = "";
struct reggroup *group;
for (group = reggroup_next (gdbarch, NULL);
group != NULL;
group = reggroup_next (gdbarch, group))
{
if (gdbarch_register_reggroup_p (gdbarch, regnum, group))
{
fprintf_unfiltered (file, "%s%s", sep, reggroup_name (group));
sep = ",";
}
}
}
}
fprintf_unfiltered (file, "\n");
}
if (footnote_register_size)
fprintf_unfiltered (file, "*%d: Inconsistent register sizes.\n",
footnote_register_size);
if (footnote_register_offset)
fprintf_unfiltered (file, "*%d: Inconsistent register offsets.\n",
footnote_register_offset);
if (footnote_register_type_name_null)
fprintf_unfiltered (file,
"*%d: Register type's name NULL.\n",
footnote_register_type_name_null);
do_cleanups (cleanups);
}
static void
regcache_print (char *args, enum regcache_dump_what what_to_dump)
{
if (args == NULL)
regcache_dump (current_regcache, gdb_stdout, what_to_dump);
else
{
struct ui_file *file = gdb_fopen (args, "w");
if (file == NULL)
perror_with_name (_("maintenance print architecture"));
regcache_dump (current_regcache, file, what_to_dump);
ui_file_delete (file);
}
}
static void
maintenance_print_registers (char *args, int from_tty)
{
regcache_print (args, regcache_dump_none);
}
static void
maintenance_print_raw_registers (char *args, int from_tty)
{
regcache_print (args, regcache_dump_raw);
}
static void
maintenance_print_cooked_registers (char *args, int from_tty)
{
regcache_print (args, regcache_dump_cooked);
}
static void
maintenance_print_register_groups (char *args, int from_tty)
{
regcache_print (args, regcache_dump_groups);
}
extern initialize_file_ftype _initialize_regcache;
void
_initialize_regcache (void)
{
regcache_descr_handle = gdbarch_data_register_post_init (init_regcache_descr);
DEPRECATED_REGISTER_GDBARCH_SWAP (current_regcache);
deprecated_register_gdbarch_swap (NULL, 0, build_regcache);
observer_attach_target_changed (regcache_observer_target_changed);
add_com ("flushregs", class_maintenance, reg_flush_command,
_("Force gdb to flush its register cache (maintainer command)"));
registers_ptid = pid_to_ptid (-1);
add_cmd ("registers", class_maintenance, maintenance_print_registers, _("\
Print the internal register configuration.\n\
Takes an optional file parameter."), &maintenanceprintlist);
add_cmd ("raw-registers", class_maintenance,
maintenance_print_raw_registers, _("\
Print the internal register configuration including raw values.\n\
Takes an optional file parameter."), &maintenanceprintlist);
add_cmd ("cooked-registers", class_maintenance,
maintenance_print_cooked_registers, _("\
Print the internal register configuration including cooked values.\n\
Takes an optional file parameter."), &maintenanceprintlist);
add_cmd ("register-groups", class_maintenance,
maintenance_print_register_groups, _("\
Print the internal register configuration including each register's group.\n\
Takes an optional file parameter."),
&maintenanceprintlist);
}