#include "defs.h"
#include "target.h"
#include "frame.h"
#include "osabi.h"
#include "elf-bfd.h"
#include "elf/frv.h"
#include "frv-tdep.h"
#include "trad-frame.h"
#include "frame-unwind.h"
static const int frv_instr_size = 4;
enum {
NORMAL_SIGTRAMP = 1,
RT_SIGTRAMP = 2
};
static int
frv_linux_pc_in_sigtramp (CORE_ADDR pc, char *name)
{
char buf[frv_instr_size];
LONGEST instr;
int retval = 0;
if (target_read_memory (pc, buf, sizeof buf) != 0)
return 0;
instr = extract_unsigned_integer (buf, sizeof buf);
if (instr == 0x8efc0077)
retval = NORMAL_SIGTRAMP;
else if (instr -= 0x8efc00ad)
retval = RT_SIGTRAMP;
else
return 0;
if (target_read_memory (pc + frv_instr_size, buf, sizeof buf) != 0)
return 0;
instr = extract_unsigned_integer (buf, sizeof buf);
if (instr != 0xc0700000)
return 0;
return retval;
}
static LONGEST
frv_linux_sigcontext_reg_addr (struct frame_info *next_frame, int regno,
CORE_ADDR *sc_addr_cache_ptr)
{
CORE_ADDR sc_addr;
if (sc_addr_cache_ptr && *sc_addr_cache_ptr)
{
sc_addr = *sc_addr_cache_ptr;
}
else
{
CORE_ADDR pc, sp;
char buf[4];
int tramp_type;
pc = frame_pc_unwind (next_frame);
tramp_type = frv_linux_pc_in_sigtramp (pc, 0);
frame_unwind_register (next_frame, sp_regnum, buf);
sp = extract_unsigned_integer (buf, sizeof buf);
if (tramp_type == NORMAL_SIGTRAMP)
{
sc_addr = sp + 8;
}
else if (tramp_type == RT_SIGTRAMP)
{
if (target_read_memory (sp + 12, buf, sizeof buf) != 0)
{
warning (_("Can't read realtime sigtramp frame."));
return 0;
}
sc_addr = extract_unsigned_integer (buf, sizeof buf);
sc_addr += 24;
}
else
internal_error (__FILE__, __LINE__, _("not a signal trampoline"));
if (sc_addr_cache_ptr)
*sc_addr_cache_ptr = sc_addr;
}
switch (regno)
{
case psr_regnum :
return sc_addr + 0;
case ccr_regnum :
return sc_addr + 8;
case cccr_regnum :
return sc_addr + 12;
case lr_regnum :
return sc_addr + 16;
case lcr_regnum :
return sc_addr + 20;
case pc_regnum :
return sc_addr + 24;
case iacc0h_regnum :
return sc_addr + 48;
case iacc0l_regnum :
return sc_addr + 52;
default :
if (first_gpr_regnum <= regno && regno <= last_gpr_regnum)
return sc_addr + 56 + 4 * (regno - first_gpr_regnum);
else if (first_fpr_regnum <= regno && regno <= last_fpr_regnum)
return sc_addr + 312 + 4 * (regno - first_fpr_regnum);
else
return -1;
}
}
static struct trad_frame_cache *
frv_linux_sigtramp_frame_cache (struct frame_info *next_frame, void **this_cache)
{
struct trad_frame_cache *cache;
struct gdbarch_tdep *tdep = gdbarch_tdep (current_gdbarch);
CORE_ADDR addr;
char buf[4];
int regnum;
CORE_ADDR sc_addr_cache_val = 0;
struct frame_id this_id;
if (*this_cache)
return *this_cache;
cache = trad_frame_cache_zalloc (next_frame);
frame_unwind_register (next_frame, sp_regnum, buf);
this_id = frame_id_build (extract_unsigned_integer (buf, sizeof buf),
frame_pc_unwind (next_frame));
trad_frame_set_id (cache, this_id);
for (regnum = 0; regnum < frv_num_regs; regnum++)
{
LONGEST reg_addr = frv_linux_sigcontext_reg_addr (next_frame, regnum,
&sc_addr_cache_val);
if (reg_addr != -1)
trad_frame_set_reg_addr (cache, regnum, reg_addr);
}
*this_cache = cache;
return cache;
}
static void
frv_linux_sigtramp_frame_this_id (struct frame_info *next_frame, void **this_cache,
struct frame_id *this_id)
{
struct trad_frame_cache *cache =
frv_linux_sigtramp_frame_cache (next_frame, this_cache);
trad_frame_get_id (cache, this_id);
}
static void
frv_linux_sigtramp_frame_prev_register (struct frame_info *next_frame,
void **this_cache,
int regnum, enum opt_state *optimizedp,
enum lval_type *lvalp, CORE_ADDR *addrp,
int *realnump, void *valuep)
{
struct trad_frame_cache *cache =
frv_linux_sigtramp_frame_cache (next_frame, this_cache);
trad_frame_get_register (cache, next_frame, regnum, optimizedp, lvalp,
addrp, realnump, valuep);
}
static const struct frame_unwind frv_linux_sigtramp_frame_unwind =
{
SIGTRAMP_FRAME,
frv_linux_sigtramp_frame_this_id,
frv_linux_sigtramp_frame_prev_register
};
static const struct frame_unwind *
frv_linux_sigtramp_frame_sniffer (struct frame_info *next_frame)
{
CORE_ADDR pc = frame_pc_unwind (next_frame);
char *name;
find_pc_partial_function (pc, &name, NULL, NULL);
if (frv_linux_pc_in_sigtramp (pc, name))
return &frv_linux_sigtramp_frame_unwind;
return NULL;
}
static void
frv_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
{
frame_unwind_append_sniffer (gdbarch, frv_linux_sigtramp_frame_sniffer);
}
static enum gdb_osabi
frv_linux_elf_osabi_sniffer (bfd *abfd)
{
int elf_flags;
elf_flags = elf_elfheader (abfd)->e_flags;
if (elf_flags & EF_FRV_FDPIC)
return GDB_OSABI_LINUX;
else
return GDB_OSABI_UNKNOWN;
}
void _initialize_frv_linux_tdep (void);
void
_initialize_frv_linux_tdep (void)
{
gdbarch_register_osabi (bfd_arch_frv, 0, GDB_OSABI_LINUX, frv_linux_init_abi);
gdbarch_register_osabi_sniffer (bfd_arch_frv,
bfd_target_elf_flavour,
frv_linux_elf_osabi_sniffer);
}