#include "defs.h"
#include "inferior.h"
#include "gdbcore.h"
#include "target.h"
#include "regcache.h"
#include "gdb_string.h"
#include <sys/time.h>
#include <sys/procfs.h>
#include <setjmp.h>
#include "gregset.h"
#include "mips-tdep.h"
static void fetch_core_registers (char *, unsigned int, int, CORE_ADDR);
#define JB_ELEMENT_SIZE 4
void
supply_gregset (gregset_t *gregsetp)
{
int regi;
greg_t *regp = &(*gregsetp)[0];
int gregoff = sizeof (greg_t) - mips_isa_regsize (current_gdbarch);
static char zerobuf[32] = {0};
for (regi = 0; regi <= CTX_RA; regi++)
regcache_raw_supply (current_regcache, regi,
(char *) (regp + regi) + gregoff);
regcache_raw_supply (current_regcache, mips_regnum (current_gdbarch)->pc,
(char *) (regp + CTX_EPC) + gregoff);
regcache_raw_supply (current_regcache, mips_regnum (current_gdbarch)->hi,
(char *) (regp + CTX_MDHI) + gregoff);
regcache_raw_supply (current_regcache, mips_regnum (current_gdbarch)->lo,
(char *) (regp + CTX_MDLO) + gregoff);
regcache_raw_supply (current_regcache, mips_regnum (current_gdbarch)->cause,
(char *) (regp + CTX_CAUSE) + gregoff);
regcache_raw_supply (current_regcache, mips_regnum (current_gdbarch)->badvaddr, zerobuf);
}
void
fill_gregset (gregset_t *gregsetp, int regno)
{
int regi;
greg_t *regp = &(*gregsetp)[0];
LONGEST regval;
for (regi = 0; regi <= CTX_RA; regi++)
if ((regno == -1) || (regno == regi))
{
regcache_raw_read_signed (current_regcache, regi, ®val);
*(regp + regi) = regval;
}
if ((regno == -1) || (regno == PC_REGNUM))
{
regcache_raw_read_signed
(current_regcache, mips_regnum (current_gdbarch)->pc, ®val);
*(regp + CTX_EPC) = regval;
}
if ((regno == -1) || (regno == mips_regnum (current_gdbarch)->cause))
{
regcache_raw_read_signed
(current_regcache, mips_regnum (current_gdbarch)->cause, ®val);
*(regp + CTX_CAUSE) = regval;
}
if ((regno == -1)
|| (regno == mips_regnum (current_gdbarch)->hi))
{
regcache_raw_read_signed
(current_regcache, mips_regnum (current_gdbarch)->hi, ®val);
*(regp + CTX_MDHI) = regval;
}
if ((regno == -1) || (regno == mips_regnum (current_gdbarch)->lo))
{
regcache_raw_read_signed
(current_regcache, mips_regnum (current_gdbarch)->lo, ®val);
*(regp + CTX_MDLO) = regval;
}
}
void
supply_fpregset (fpregset_t *fpregsetp)
{
int regi;
static char zerobuf[32] = {0};
char fsrbuf[8];
for (regi = 0; regi < 32; regi++)
regcache_raw_supply (current_regcache, FP0_REGNUM + regi,
(char *) &fpregsetp->fp_r.fp_regs[regi]);
memset (fsrbuf, 0, 4);
memcpy (fsrbuf + 4, &fpregsetp->fp_csr, 4);
regcache_raw_supply (current_regcache,
mips_regnum (current_gdbarch)->fp_control_status,
fsrbuf);
regcache_raw_supply (current_regcache,
mips_regnum (current_gdbarch)->fp_implementation_revision,
zerobuf);
}
void
fill_fpregset (fpregset_t *fpregsetp, int regno)
{
int regi;
char *from, *to;
for (regi = FP0_REGNUM; regi < FP0_REGNUM + 32; regi++)
{
if ((regno == -1) || (regno == regi))
{
to = (char *) &(fpregsetp->fp_r.fp_regs[regi - FP0_REGNUM]);
regcache_raw_read (current_regcache, regi, to);
}
}
if (regno == -1
|| regno == mips_regnum (current_gdbarch)->fp_control_status)
{
char fsrbuf[8];
regcache_raw_read (current_regcache,
mips_regnum (current_gdbarch)->fp_control_status,
fsrbuf);
memcpy (&fpregsetp->fp_csr, fsrbuf + 4, 4);
}
}
int
get_longjmp_target (CORE_ADDR *pc)
{
char *buf;
CORE_ADDR jb_addr;
buf = alloca (TARGET_PTR_BIT / TARGET_CHAR_BIT);
jb_addr = read_register (MIPS_A0_REGNUM);
if (target_read_memory (jb_addr + JB_PC * JB_ELEMENT_SIZE, buf,
TARGET_PTR_BIT / TARGET_CHAR_BIT))
return 0;
*pc = extract_unsigned_integer (buf, TARGET_PTR_BIT / TARGET_CHAR_BIT);
return 1;
}
static void
fetch_core_registers (char *core_reg_sect, unsigned core_reg_size,
int which, CORE_ADDR reg_addr)
{
char *srcp = core_reg_sect;
int regno;
if (core_reg_size == deprecated_register_bytes ())
{
for (regno = 0; regno < NUM_REGS; regno++)
{
regcache_raw_write (current_regcache, regno, srcp);
srcp += register_size (current_gdbarch, regno);
}
}
else if (mips_isa_regsize (current_gdbarch) == 4 &&
core_reg_size == (2 * mips_isa_regsize (current_gdbarch)) * NUM_REGS)
{
for (regno = 0; regno < NUM_REGS; regno++)
{
if (regno >= FP0_REGNUM && regno < (FP0_REGNUM + 32))
{
regcache_raw_write (current_regcache, regno, srcp);
}
else
{
regcache_raw_write (current_regcache, regno, srcp + 4);
}
srcp += 8;
}
}
else
{
warning (_("wrong size gregset struct in core file"));
return;
}
}
static struct core_fns irix5_core_fns =
{
bfd_target_unknown_flavour,
default_check_format,
default_core_sniffer,
fetch_core_registers,
NULL
};
void
_initialize_core_irix5 (void)
{
deprecated_add_core_fns (&irix5_core_fns);
}