#include "defs.h"
#include "inferior.h"
#include "symfile.h"
#include "gdbcore.h"
#include "arch-utils.h"
#include "regcache.h"
extern void _initialize_frv_tdep (void);
static gdbarch_init_ftype frv_gdbarch_init;
static gdbarch_register_name_ftype frv_register_name;
static gdbarch_register_raw_size_ftype frv_register_raw_size;
static gdbarch_register_virtual_size_ftype frv_register_virtual_size;
static gdbarch_register_virtual_type_ftype frv_register_virtual_type;
static gdbarch_register_byte_ftype frv_register_byte;
static gdbarch_breakpoint_from_pc_ftype frv_breakpoint_from_pc;
static gdbarch_frame_chain_ftype frv_frame_chain;
static gdbarch_frame_saved_pc_ftype frv_frame_saved_pc;
static gdbarch_skip_prologue_ftype frv_skip_prologue;
static gdbarch_frame_init_saved_regs_ftype frv_frame_init_saved_regs;
static gdbarch_deprecated_extract_return_value_ftype frv_extract_return_value;
static gdbarch_deprecated_extract_struct_value_address_ftype frv_extract_struct_value_address;
static gdbarch_use_struct_convention_ftype frv_use_struct_convention;
static gdbarch_frameless_function_invocation_ftype frv_frameless_function_invocation;
static gdbarch_init_extra_frame_info_ftype stupid_useless_init_extra_frame_info;
static gdbarch_store_struct_return_ftype frv_store_struct_return;
static gdbarch_push_arguments_ftype frv_push_arguments;
static gdbarch_push_return_address_ftype frv_push_return_address;
static gdbarch_pop_frame_ftype frv_pop_frame;
static gdbarch_saved_pc_after_call_ftype frv_saved_pc_after_call;
static void frv_pop_frame_regular (struct frame_info *frame);
enum {
frv_num_regs = 147,
first_gpr_regnum = 0,
sp_regnum = 1,
fp_regnum = 2,
struct_return_regnum = 3,
last_gpr_regnum = 63,
first_fpr_regnum = 64,
last_fpr_regnum = 127,
first_spr_regnum = 128,
pc_regnum = 128,
psr_regnum = 129,
ccr_regnum = 130,
cccr_regnum = 131,
tbr_regnum = 135,
brr_regnum = 136,
dbar0_regnum = 137,
dbar1_regnum = 138,
dbar2_regnum = 139,
dbar3_regnum = 140,
lr_regnum = 145,
lcr_regnum = 146,
last_spr_regnum = 146
};
static LONGEST frv_call_dummy_words[] =
{0};
struct frame_extra_info
{
int fp_to_callers_sp_offset;
int lr_saved_on_stack;
};
struct gdbarch_tdep
{
int num_gprs;
int num_fprs;
int num_hw_watchpoints;
int num_hw_breakpoints;
char **register_names;
};
#define CURRENT_VARIANT (gdbarch_tdep (current_gdbarch))
static struct gdbarch_tdep *
new_variant (void)
{
struct gdbarch_tdep *var;
int r;
char buf[20];
var = xmalloc (sizeof (*var));
memset (var, 0, sizeof (*var));
var->num_gprs = 64;
var->num_fprs = 64;
var->num_hw_watchpoints = 0;
var->num_hw_breakpoints = 0;
var->register_names = (char **) xmalloc (frv_num_regs * sizeof (char *));
for (r = 0; r < frv_num_regs; r++)
var->register_names[r] = "";
for (r = first_spr_regnum; r <= last_spr_regnum; ++r)
{
sprintf (buf, "x%d", r);
var->register_names[r] = xstrdup (buf);
}
var->register_names[pc_regnum] = "pc";
var->register_names[lr_regnum] = "lr";
var->register_names[lcr_regnum] = "lcr";
var->register_names[psr_regnum] = "psr";
var->register_names[ccr_regnum] = "ccr";
var->register_names[cccr_regnum] = "cccr";
var->register_names[tbr_regnum] = "tbr";
var->register_names[brr_regnum] = "brr";
var->register_names[dbar0_regnum] = "dbar0";
var->register_names[dbar1_regnum] = "dbar1";
var->register_names[dbar2_regnum] = "dbar2";
var->register_names[dbar3_regnum] = "dbar3";
return var;
}
static void
set_variant_num_gprs (struct gdbarch_tdep *var, int num_gprs)
{
int r;
var->num_gprs = num_gprs;
for (r = 0; r < num_gprs; ++r)
{
char buf[20];
sprintf (buf, "gr%d", r);
var->register_names[first_gpr_regnum + r] = xstrdup (buf);
}
}
static void
set_variant_num_fprs (struct gdbarch_tdep *var, int num_fprs)
{
int r;
var->num_fprs = num_fprs;
for (r = 0; r < num_fprs; ++r)
{
char buf[20];
sprintf (buf, "fr%d", r);
var->register_names[first_fpr_regnum + r] = xstrdup (buf);
}
}
static const char *
frv_register_name (int reg)
{
if (reg < 0)
return "?toosmall?";
if (reg >= frv_num_regs)
return "?toolarge?";
return CURRENT_VARIANT->register_names[reg];
}
static int
frv_register_raw_size (int reg)
{
return 4;
}
static int
frv_register_virtual_size (int reg)
{
return 4;
}
static struct type *
frv_register_virtual_type (int reg)
{
if (reg >= 64 && reg <= 127)
return builtin_type_float;
else
return builtin_type_int;
}
static int
frv_register_byte (int reg)
{
return (reg * 4);
}
static const unsigned char *
frv_breakpoint_from_pc (CORE_ADDR *pcptr, int *lenp)
{
static unsigned char breakpoint[] = {0xc0, 0x70, 0x00, 0x01};
*lenp = sizeof (breakpoint);
return breakpoint;
}
static CORE_ADDR
frv_frame_chain (struct frame_info *frame)
{
CORE_ADDR saved_fp_addr;
if (frame->saved_regs && frame->saved_regs[fp_regnum] != 0)
saved_fp_addr = frame->saved_regs[fp_regnum];
else
saved_fp_addr = frame->frame;
return read_memory_integer (saved_fp_addr, 4);
}
static CORE_ADDR
frv_frame_saved_pc (struct frame_info *frame)
{
frv_frame_init_saved_regs (frame);
if (frame->saved_regs && frame->saved_regs[pc_regnum] != 0)
return read_memory_integer (frame->saved_regs[pc_regnum], 4);
if (frame->extra_info->lr_saved_on_stack)
return read_memory_integer (frame->frame + 8, 4);
if (! frame->next)
return read_register (lr_regnum);
return read_memory_integer (frame->frame + 8, 4);
}
static int
is_caller_saves_reg (int reg)
{
return ((4 <= reg && reg <= 7)
|| (14 <= reg && reg <= 15)
|| (32 <= reg && reg <= 47));
}
static int
is_callee_saves_reg (int reg)
{
return ((16 <= reg && reg <= 31)
|| (48 <= reg && reg <= 63));
}
static int
is_argument_reg (int reg)
{
return (8 <= reg && reg <= 13);
}
static CORE_ADDR
frv_analyze_prologue (CORE_ADDR pc, struct frame_info *frame)
{
int fp_set = 0;
int fp_offset = 0;
int framesize = 0;
int lr_save_reg = -1;
int lr_saved_on_stack = 0;
char gr_saved[64];
int gr_sp_offset[64];
memset (gr_saved, 0, sizeof (gr_saved));
while (! frame || pc < frame->pc)
{
LONGEST op = read_memory_integer (pc, 4);
if ((op & 0x7fffffff) == 0x04881000)
{
fp_set = 1;
fp_offset = 0;
}
else if ((op & 0x7fffffc0) == 0x080d01c0)
{
int gr_j = op & 0x3f;
if (is_caller_saves_reg (gr_j))
lr_save_reg = gr_j;
else
break;
}
else if ((op & 0x01ffffff) == 0x000c10c0
|| (op & 0x01ffffff) == 0x000c1100)
{
int gr_k = ((op >> 25) & 0x3f);
int ope = ((op >> 6) & 0x3f);
int count;
int i;
if (ope == 0x03)
count = 2;
else
count = 4;
if (is_callee_saves_reg (gr_k))
{
for (i = 0; i < count; i++)
{
gr_saved[gr_k + i] = 1;
gr_sp_offset[gr_k + i] = 4 * i;
}
}
else
break;
}
else if ((op & 0x7ffff000) == 0x02401000)
{
int s = (((op & 0xfff) - 0x800) & 0xfff) - 0x800;
framesize -= s;
}
else if ((op & 0x7ffff000) == 0x04401000)
{
int s = (((op & 0xfff) - 0x800) & 0xfff) - 0x800;
fp_set = 1;
fp_offset = s;
}
else if ((op & 0x01fc0fff) == 0x00880000)
{
int gr_i = ((op >> 12) & 0x3f);
if (! is_argument_reg (gr_i))
break;
}
else if ( (op & 0x01fff000) == 0x01442000
|| (op & 0x01fff000) == 0x01402000)
{
int gr_k = ((op >> 25) & 0x3f);
if (! is_argument_reg (gr_k))
break;
}
else if ((op & 0x01fff000) == 0x014c1000
|| (op & 0x01fff000) == 0x01501000)
{
int gr_k = ((op >> 25) & 0x3f);
int count;
int i;
if ((op & 0x01fff000) == 0x014c1000)
count = 2;
else
count = 4;
if (is_callee_saves_reg (gr_k))
{
int s = (((op & 0xfff) - 0x800) & 0xfff) - 0x800;
for (i = 0; i < count; i++)
{
gr_saved[gr_k + i] = 1;
gr_sp_offset[gr_k + i] = s + (4 * i);
}
}
else
break;
}
else if (((op & 0x01fc0fff) == 0x000c0080)
|| ((op & 0x01fc0000) == 0x01480000))
{
int gr_k = ((op >> 25) & 0x3f);
int gr_i = ((op >> 12) & 0x3f);
int offset;
if ((op & 0x01fc0fff) == 0x000c0080)
offset = 0;
else
offset = (((op & 0xfff) - 0x800) & 0xfff) - 0x800;
if (gr_i != sp_regnum && gr_i != fp_regnum)
break;
if (gr_k == fp_regnum && gr_i == sp_regnum)
;
else if (gr_i == sp_regnum
&& is_callee_saves_reg (gr_k))
{
gr_saved[gr_k] = 1;
gr_sp_offset[gr_k] = offset;
}
else if (lr_save_reg != -1
&& gr_k == lr_save_reg)
lr_saved_on_stack = 1;
else if (is_argument_reg (gr_k))
;
else
break;
}
else
break;
pc += 4;
}
if (frame)
{
frame->extra_info->lr_saved_on_stack = lr_saved_on_stack;
if (fp_set)
{
int i;
for (i = 0; i < 64; i++)
if (gr_saved[i])
frame->saved_regs[i] = (frame->frame
- fp_offset + gr_sp_offset[i]);
frame->extra_info->fp_to_callers_sp_offset = framesize - fp_offset;
}
}
return pc;
}
static CORE_ADDR
frv_skip_prologue (CORE_ADDR pc)
{
CORE_ADDR func_addr, func_end, new_pc;
new_pc = pc;
if (find_pc_partial_function (pc, NULL, &func_addr, &func_end))
{
struct symtab_and_line sal;
sal = find_pc_line (func_addr, 0);
if (sal.line != 0 && sal.end < func_end)
{
new_pc = sal.end;
}
}
if (new_pc < pc + 20)
new_pc = frv_analyze_prologue (pc, 0);
return new_pc;
}
static void
frv_frame_init_saved_regs (struct frame_info *frame)
{
if (frame->saved_regs)
return;
frame_saved_regs_zalloc (frame);
frame->saved_regs[fp_regnum] = frame->frame;
{
CORE_ADDR func_addr, func_end;
if (find_pc_partial_function (frame->pc, NULL, &func_addr, &func_end))
frv_analyze_prologue (func_addr, frame);
}
}
static int
frv_use_struct_convention (int gcc_p, struct type *type)
{
return 1;
}
static void
frv_extract_return_value (struct type *type, char *regbuf, char *valbuf)
{
memcpy (valbuf, (regbuf
+ frv_register_byte (8)
+ (TYPE_LENGTH (type) < 4 ? 4 - TYPE_LENGTH (type) : 0)),
TYPE_LENGTH (type));
}
static CORE_ADDR
frv_extract_struct_value_address (char *regbuf)
{
return extract_address (regbuf + frv_register_byte (struct_return_regnum),
4);
}
static void
frv_store_struct_return (CORE_ADDR addr, CORE_ADDR sp)
{
write_register (struct_return_regnum, addr);
}
static int
frv_frameless_function_invocation (struct frame_info *frame)
{
return frameless_look_for_prologue (frame);
}
static CORE_ADDR
frv_saved_pc_after_call (struct frame_info *frame)
{
return read_register (lr_regnum);
}
static void
frv_init_extra_frame_info (int fromleaf, struct frame_info *frame)
{
frame->extra_info = (struct frame_extra_info *)
frame_obstack_alloc (sizeof (struct frame_extra_info));
frame->extra_info->fp_to_callers_sp_offset = 0;
frame->extra_info->lr_saved_on_stack = 0;
}
#define ROUND_UP(n,a) (((n)+(a)-1) & ~((a)-1))
#define ROUND_DOWN(n,a) ((n) & ~((a)-1))
static CORE_ADDR
frv_push_arguments (int nargs, struct value **args, CORE_ADDR sp,
int struct_return, CORE_ADDR struct_addr)
{
int argreg;
int argnum;
char *val;
char valbuf[4];
struct value *arg;
struct type *arg_type;
int len;
enum type_code typecode;
CORE_ADDR regval;
int stack_space;
int stack_offset;
#if 0
printf("Push %d args at sp = %x, struct_return=%d (%x)\n",
nargs, (int) sp, struct_return, struct_addr);
#endif
stack_space = 0;
for (argnum = 0; argnum < nargs; ++argnum)
stack_space += ROUND_UP (TYPE_LENGTH (VALUE_TYPE (args[argnum])), 4);
stack_space -= (6 * 4);
if (stack_space > 0)
sp -= stack_space;
sp = ROUND_DOWN (sp, 8);
stack_offset = 0;
argreg = 8;
if (struct_return)
write_register (struct_return_regnum, struct_addr);
for (argnum = 0; argnum < nargs; ++argnum)
{
arg = args[argnum];
arg_type = check_typedef (VALUE_TYPE (arg));
len = TYPE_LENGTH (arg_type);
typecode = TYPE_CODE (arg_type);
if (typecode == TYPE_CODE_STRUCT || typecode == TYPE_CODE_UNION)
{
store_address (valbuf, 4, VALUE_ADDRESS (arg));
typecode = TYPE_CODE_PTR;
len = 4;
val = valbuf;
}
else
{
val = (char *) VALUE_CONTENTS (arg);
}
while (len > 0)
{
int partial_len = (len < 4 ? len : 4);
if (argreg < 14)
{
regval = extract_address (val, partial_len);
#if 0
printf(" Argnum %d data %x -> reg %d\n",
argnum, (int) regval, argreg);
#endif
write_register (argreg, regval);
++argreg;
}
else
{
#if 0
printf(" Argnum %d data %x -> offset %d (%x)\n",
argnum, *((int *)val), stack_offset, (int) (sp + stack_offset));
#endif
write_memory (sp + stack_offset, val, partial_len);
stack_offset += ROUND_UP(partial_len, 4);
}
len -= partial_len;
val += partial_len;
}
}
return sp;
}
static CORE_ADDR
frv_push_return_address (CORE_ADDR pc, CORE_ADDR sp)
{
write_register (lr_regnum, CALL_DUMMY_ADDRESS ());
return sp;
}
static void
frv_store_return_value (struct type *type, char *valbuf)
{
int length = TYPE_LENGTH (type);
int reg8_offset = frv_register_byte (8);
if (length <= 4)
write_register_bytes (reg8_offset + (4 - length), valbuf, length);
else if (length == 8)
write_register_bytes (reg8_offset, valbuf, length);
else
internal_error (__FILE__, __LINE__,
"Don't know how to return a %d-byte value.", length);
}
static void
frv_pop_frame (void)
{
generic_pop_current_frame (frv_pop_frame_regular);
}
static void
frv_pop_frame_regular (struct frame_info *frame)
{
CORE_ADDR fp;
int regno;
fp = frame->frame;
frv_frame_init_saved_regs (frame);
write_register (pc_regnum, frv_frame_saved_pc (frame));
for (regno = 0; regno < frv_num_regs; ++regno)
{
if (frame->saved_regs[regno]
&& regno != pc_regnum
&& regno != sp_regnum)
{
write_register (regno,
read_memory_integer (frame->saved_regs[regno], 4));
}
}
write_register (sp_regnum, fp + frame->extra_info->fp_to_callers_sp_offset);
flush_cached_frames ();
}
static void
frv_remote_translate_xfer_address (CORE_ADDR memaddr, int nr_bytes,
CORE_ADDR *targ_addr, int *targ_len)
{
*targ_addr = memaddr;
*targ_len = nr_bytes;
}
int
frv_check_watch_resources (int type, int cnt, int ot)
{
struct gdbarch_tdep *var = CURRENT_VARIANT;
if (strcmp (target_shortname, "sim") == 0)
return 0;
if (type == bp_hardware_breakpoint)
{
if (var->num_hw_breakpoints == 0)
return 0;
else if (cnt <= var->num_hw_breakpoints)
return 1;
}
else
{
if (var->num_hw_watchpoints == 0)
return 0;
else if (ot)
return -1;
else if (cnt <= var->num_hw_watchpoints)
return 1;
}
return -1;
}
CORE_ADDR
frv_stopped_data_address (void)
{
CORE_ADDR brr, dbar0, dbar1, dbar2, dbar3;
brr = read_register (brr_regnum);
dbar0 = read_register (dbar0_regnum);
dbar1 = read_register (dbar1_regnum);
dbar2 = read_register (dbar2_regnum);
dbar3 = read_register (dbar3_regnum);
if (brr & (1<<11))
return dbar0;
else if (brr & (1<<10))
return dbar1;
else if (brr & (1<<9))
return dbar2;
else if (brr & (1<<8))
return dbar3;
else
return 0;
}
static struct gdbarch *
frv_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
{
struct gdbarch *gdbarch;
struct gdbarch_tdep *var;
arches = gdbarch_list_lookup_by_info (arches, &info);
if (arches)
return arches->gdbarch;
var = new_variant ();
switch (info.bfd_arch_info->mach)
{
case bfd_mach_frv:
case bfd_mach_frvsimple:
case bfd_mach_fr500:
case bfd_mach_frvtomcat:
set_variant_num_gprs (var, 64);
set_variant_num_fprs (var, 64);
break;
case bfd_mach_fr400:
set_variant_num_gprs (var, 32);
set_variant_num_fprs (var, 32);
break;
default:
return 0;
}
gdbarch = gdbarch_alloc (&info, var);
set_gdbarch_short_bit (gdbarch, 16);
set_gdbarch_int_bit (gdbarch, 32);
set_gdbarch_long_bit (gdbarch, 32);
set_gdbarch_long_long_bit (gdbarch, 64);
set_gdbarch_float_bit (gdbarch, 32);
set_gdbarch_double_bit (gdbarch, 64);
set_gdbarch_long_double_bit (gdbarch, 64);
set_gdbarch_ptr_bit (gdbarch, 32);
set_gdbarch_num_regs (gdbarch, frv_num_regs);
set_gdbarch_sp_regnum (gdbarch, sp_regnum);
set_gdbarch_fp_regnum (gdbarch, fp_regnum);
set_gdbarch_pc_regnum (gdbarch, pc_regnum);
set_gdbarch_register_name (gdbarch, frv_register_name);
set_gdbarch_register_size (gdbarch, 4);
set_gdbarch_register_bytes (gdbarch, frv_num_regs * 4);
set_gdbarch_register_byte (gdbarch, frv_register_byte);
set_gdbarch_register_raw_size (gdbarch, frv_register_raw_size);
set_gdbarch_max_register_raw_size (gdbarch, 4);
set_gdbarch_register_virtual_size (gdbarch, frv_register_virtual_size);
set_gdbarch_max_register_virtual_size (gdbarch, 4);
set_gdbarch_register_virtual_type (gdbarch, frv_register_virtual_type);
set_gdbarch_skip_prologue (gdbarch, frv_skip_prologue);
set_gdbarch_breakpoint_from_pc (gdbarch, frv_breakpoint_from_pc);
set_gdbarch_frame_num_args (gdbarch, frame_num_args_unknown);
set_gdbarch_frame_args_skip (gdbarch, 0);
set_gdbarch_frameless_function_invocation (gdbarch, frv_frameless_function_invocation);
set_gdbarch_saved_pc_after_call (gdbarch, frv_saved_pc_after_call);
set_gdbarch_frame_chain (gdbarch, frv_frame_chain);
set_gdbarch_frame_chain_valid (gdbarch, func_frame_chain_valid);
set_gdbarch_frame_saved_pc (gdbarch, frv_frame_saved_pc);
set_gdbarch_frame_args_address (gdbarch, default_frame_address);
set_gdbarch_frame_locals_address (gdbarch, default_frame_address);
set_gdbarch_frame_init_saved_regs (gdbarch, frv_frame_init_saved_regs);
set_gdbarch_use_struct_convention (gdbarch, frv_use_struct_convention);
set_gdbarch_deprecated_extract_return_value (gdbarch, frv_extract_return_value);
set_gdbarch_store_struct_return (gdbarch, frv_store_struct_return);
set_gdbarch_deprecated_store_return_value (gdbarch, frv_store_return_value);
set_gdbarch_deprecated_extract_struct_value_address (gdbarch, frv_extract_struct_value_address);
set_gdbarch_use_generic_dummy_frames (gdbarch, 1);
set_gdbarch_call_dummy_length (gdbarch, 0);
set_gdbarch_coerce_float_to_double (gdbarch,
standard_coerce_float_to_double);
set_gdbarch_push_arguments (gdbarch, frv_push_arguments);
set_gdbarch_push_return_address (gdbarch, frv_push_return_address);
set_gdbarch_pop_frame (gdbarch, frv_pop_frame);
set_gdbarch_call_dummy_p (gdbarch, 1);
set_gdbarch_call_dummy_words (gdbarch, frv_call_dummy_words);
set_gdbarch_sizeof_call_dummy_words (gdbarch, sizeof (frv_call_dummy_words));
set_gdbarch_call_dummy_breakpoint_offset_p (gdbarch, 1);
set_gdbarch_init_extra_frame_info (gdbarch, frv_init_extra_frame_info);
set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
set_gdbarch_read_pc (gdbarch, generic_target_read_pc);
set_gdbarch_write_pc (gdbarch, generic_target_write_pc);
set_gdbarch_read_fp (gdbarch, generic_target_read_fp);
set_gdbarch_read_sp (gdbarch, generic_target_read_sp);
set_gdbarch_write_sp (gdbarch, generic_target_write_sp);
set_gdbarch_call_dummy_location (gdbarch, AT_ENTRY_POINT);
set_gdbarch_call_dummy_address (gdbarch, entry_point_address);
set_gdbarch_call_dummy_breakpoint_offset (gdbarch, 0);
set_gdbarch_call_dummy_start_offset (gdbarch, 0);
set_gdbarch_pc_in_call_dummy (gdbarch, pc_in_call_dummy_at_entry_point);
set_gdbarch_call_dummy_stack_adjust_p (gdbarch, 0);
set_gdbarch_push_dummy_frame (gdbarch, generic_push_dummy_frame);
set_gdbarch_fix_call_dummy (gdbarch, generic_fix_call_dummy);
set_gdbarch_get_saved_register (gdbarch, generic_unwind_get_saved_register);
set_gdbarch_decr_pc_after_break (gdbarch, 0);
set_gdbarch_function_start_offset (gdbarch, 0);
set_gdbarch_register_convertible (gdbarch, generic_register_convertible_not);
set_gdbarch_remote_translate_xfer_address
(gdbarch, frv_remote_translate_xfer_address);
switch (info.bfd_arch_info->mach)
{
case bfd_mach_frv:
case bfd_mach_frvsimple:
case bfd_mach_fr500:
case bfd_mach_frvtomcat:
var->num_hw_watchpoints = 4;
var->num_hw_breakpoints = 4;
break;
case bfd_mach_fr400:
var->num_hw_watchpoints = 2;
var->num_hw_breakpoints = 4;
break;
default:
var->num_hw_watchpoints = 0;
var->num_hw_breakpoints = 0;
break;
}
return gdbarch;
}
void
_initialize_frv_tdep (void)
{
register_gdbarch_init (bfd_arch_frv, frv_gdbarch_init);
tm_print_insn = print_insn_frv;
}