gdb/bfin-tdep.c - gdb
Global variables defined
Data types defined
Functions defined
Macros defined
Source code
- #include "defs.h"
- #include "inferior.h"
- #include "gdbcore.h"
- #include "arch-utils.h"
- #include "regcache.h"
- #include "frame.h"
- #include "frame-unwind.h"
- #include "frame-base.h"
- #include "trad-frame.h"
- #include "dis-asm.h"
- #include "sim-regno.h"
- #include "gdb/sim-bfin.h"
- #include "dwarf2-frame.h"
- #include "symtab.h"
- #include "elf-bfd.h"
- #include "elf/bfin.h"
- #include "osabi.h"
- #include "infcall.h"
- #include "xml-syscall.h"
- #include "bfin-tdep.h"
- #define P_LINKAGE 0xE800
- #define P_MINUS_SP1 0x0140
- #define P_MINUS_SP2 0x05C0
- #define P_MINUS_SP3 0x0540
- #define P_MINUS_SP4 0x04C0
- #define P_SP_PLUS 0x6C06
- #define P_P2_LOW 0xE10A
- #define P_P2_HIGH 0XE14A
- #define P_SP_EQ_SP_PLUS_P2 0X5BB2
- #define P_SP_EQ_P2_PLUS_SP 0x5B96
- #define P_MINUS_MINUS_SP_EQ_RETS 0x0167
- #define P_16_BIT_INSR_MAX 0xBFFF
- #define P_32_BIT_INSR_MIN 0xC000
- #define P_32_BIT_INSR_MAX 0xE801
- #define P_JUMP_PREG_MIN 0x0050
- #define P_JUMP_PREG_MAX 0x0057
- #define P_JUMP_PC_PLUS_PREG_MIN 0x0080
- #define P_JUMP_PC_PLUS_PREG_MAX 0x0087
- #define P_JUMP_S_MIN 0x2000
- #define P_JUMP_S_MAX 0x2FFF
- #define P_JUMP_L_MIN 0xE200
- #define P_JUMP_L_MAX 0xE2FF
- #define P_IF_CC_JUMP_MIN 0x1800
- #define P_IF_CC_JUMP_MAX 0x1BFF
- #define P_IF_CC_JUMP_BP_MIN 0x1C00
- #define P_IF_CC_JUMP_BP_MAX 0x1FFF
- #define P_IF_NOT_CC_JUMP_MIN 0x1000
- #define P_IF_NOT_CC_JUMP_MAX 0x13FF
- #define P_IF_NOT_CC_JUMP_BP_MIN 0x1400
- #define P_IF_NOT_CC_JUMP_BP_MAX 0x17FF
- #define P_CALL_PREG_MIN 0x0060
- #define P_CALL_PREG_MAX 0x0067
- #define P_CALL_PC_PLUS_PREG_MIN 0x0070
- #define P_CALL_PC_PLUS_PREG_MAX 0x0077
- #define P_CALL_MIN 0xE300
- #define P_CALL_MAX 0xE3FF
- #define P_RTS 0x0010
- #define P_MNOP 0xC803
- #define P_EXCPT_MIN 0x00A0
- #define P_EXCPT_MAX 0x00AF
- #define P_BIT_MULTI_INS_1 0xC000
- #define P_BIT_MULTI_INS_2 0x0800
- #define UPPER_LIMIT 40
- #define ASTAT_CC_POS 5
- #define ASTAT_CC (1 << ASTAT_CC_POS)
- static const char * const bfin_register_name_strings[] =
- {
- "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
- "p0", "p1", "p2", "p3", "p4", "p5", "sp", "fp",
- "i0", "i1", "i2", "i3", "m0", "m1", "m2", "m3",
- "b0", "b1", "b2", "b3", "l0", "l1", "l2", "l3",
- "a0x", "a0w", "a1x", "a1w", "astat", "rets",
- "lc0", "lt0", "lb0", "lc1", "lt1", "lb1", "cycles", "cycles2",
- "usp", "seqstat", "syscfg", "reti", "retx", "retn", "rete",
- "pc", "cc",
- };
- #define NUM_BFIN_REGNAMES ARRAY_SIZE (bfin_register_name_strings)
- static const int map_gcc_gdb[] =
- {
- BFIN_R0_REGNUM,
- BFIN_R1_REGNUM,
- BFIN_R2_REGNUM,
- BFIN_R3_REGNUM,
- BFIN_R4_REGNUM,
- BFIN_R5_REGNUM,
- BFIN_R6_REGNUM,
- BFIN_R7_REGNUM,
- BFIN_P0_REGNUM,
- BFIN_P1_REGNUM,
- BFIN_P2_REGNUM,
- BFIN_P3_REGNUM,
- BFIN_P4_REGNUM,
- BFIN_P5_REGNUM,
- BFIN_SP_REGNUM,
- BFIN_FP_REGNUM,
- BFIN_I0_REGNUM,
- BFIN_I1_REGNUM,
- BFIN_I2_REGNUM,
- BFIN_I3_REGNUM,
- BFIN_B0_REGNUM,
- BFIN_B1_REGNUM,
- BFIN_B2_REGNUM,
- BFIN_B3_REGNUM,
- BFIN_L0_REGNUM,
- BFIN_L1_REGNUM,
- BFIN_L2_REGNUM,
- BFIN_L3_REGNUM,
- BFIN_M0_REGNUM,
- BFIN_M1_REGNUM,
- BFIN_M2_REGNUM,
- BFIN_M3_REGNUM,
- BFIN_A0_DOT_X_REGNUM,
- BFIN_A1_DOT_X_REGNUM,
- BFIN_CC_REGNUM,
- BFIN_RETS_REGNUM,
- BFIN_RETI_REGNUM,
- BFIN_RETX_REGNUM,
- BFIN_RETN_REGNUM,
- BFIN_RETE_REGNUM,
- BFIN_ASTAT_REGNUM,
- BFIN_SEQSTAT_REGNUM,
- BFIN_USP_REGNUM,
- BFIN_LT0_REGNUM,
- BFIN_LT1_REGNUM,
- BFIN_LC0_REGNUM,
- BFIN_LC1_REGNUM,
- BFIN_LB0_REGNUM,
- BFIN_LB1_REGNUM
- };
- struct bfin_frame_cache
- {
-
- CORE_ADDR base;
- CORE_ADDR sp_offset;
- CORE_ADDR pc;
- int frameless_pc_value;
-
- CORE_ADDR saved_regs[BFIN_NUM_REGS];
- CORE_ADDR saved_sp;
-
- long locals;
- };
- static struct bfin_frame_cache *
- bfin_alloc_frame_cache (void)
- {
- struct bfin_frame_cache *cache;
- int i;
- cache = FRAME_OBSTACK_ZALLOC (struct bfin_frame_cache);
-
- cache->base = 0;
- cache->sp_offset = -4;
- cache->pc = 0;
- cache->frameless_pc_value = 0;
-
- for (i = 0; i < BFIN_NUM_REGS; i++)
- cache->saved_regs[i] = -1;
-
- cache->locals = -1;
- return cache;
- }
- static struct bfin_frame_cache *
- bfin_frame_cache (struct frame_info *this_frame, void **this_cache)
- {
- struct bfin_frame_cache *cache;
- int i;
- if (*this_cache)
- return *this_cache;
- cache = bfin_alloc_frame_cache ();
- *this_cache = cache;
- cache->base = get_frame_register_unsigned (this_frame, BFIN_FP_REGNUM);
- if (cache->base == 0)
- return cache;
-
- cache->saved_regs[BFIN_PC_REGNUM] = 4;
- cache->saved_regs[BFIN_FP_REGNUM] = 0;
-
- for (i = 0; i < BFIN_NUM_REGS; i++)
- if (cache->saved_regs[i] != -1)
- cache->saved_regs[i] += cache->base;
- cache->pc = get_frame_func (this_frame) ;
- if (cache->pc == 0 || cache->pc == get_frame_pc (this_frame))
- {
-
- cache->saved_regs[BFIN_PC_REGNUM] =
- get_frame_register_unsigned (this_frame, BFIN_RETS_REGNUM);
- cache->frameless_pc_value = 1;
- cache->base = get_frame_register_unsigned (this_frame, BFIN_FP_REGNUM);
- cache->saved_regs[BFIN_FP_REGNUM] = cache->base;
- cache->saved_sp = cache->base;
- }
- else
- {
- cache->frameless_pc_value = 0;
-
- cache->saved_sp = cache->base + 8;
- }
- return cache;
- }
- static void
- bfin_frame_this_id (struct frame_info *this_frame,
- void **this_cache,
- struct frame_id *this_id)
- {
- struct bfin_frame_cache *cache = bfin_frame_cache (this_frame, this_cache);
-
- if (cache->base == 0)
- return;
-
- *this_id = frame_id_build (cache->base + 8, cache->pc);
- }
- static struct value *
- bfin_frame_prev_register (struct frame_info *this_frame,
- void **this_cache,
- int regnum)
- {
- struct gdbarch *gdbarch = get_frame_arch (this_frame);
- struct bfin_frame_cache *cache = bfin_frame_cache (this_frame, this_cache);
- if (regnum == gdbarch_sp_regnum (gdbarch) && cache->saved_sp)
- return frame_unwind_got_constant (this_frame, regnum, cache->saved_sp);
- if (regnum < BFIN_NUM_REGS && cache->saved_regs[regnum] != -1)
- return frame_unwind_got_memory (this_frame, regnum,
- cache->saved_regs[regnum]);
- return frame_unwind_got_register (this_frame, regnum, regnum);
- }
- static const struct frame_unwind bfin_frame_unwind =
- {
- NORMAL_FRAME,
- default_frame_unwind_stop_reason,
- bfin_frame_this_id,
- bfin_frame_prev_register,
- NULL,
- default_frame_sniffer
- };
- static int
- is_minus_minus_sp (int op)
- {
- op &= 0xFFC0;
- if ((op == P_MINUS_SP1) || (op == P_MINUS_SP2)
- || (op == P_MINUS_SP3) || (op == P_MINUS_SP4))
- return 1;
- return 0;
- }
- static CORE_ADDR
- bfin_skip_prologue (struct gdbarch *gdbarch, CORE_ADDR pc)
- {
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- int op = read_memory_unsigned_integer (pc, 2, byte_order);
- CORE_ADDR orig_pc = pc;
- int done = 0;
-
- while (!done)
- {
- if (is_minus_minus_sp (op))
- {
- while (is_minus_minus_sp (op))
- {
- pc += 2;
- op = read_memory_unsigned_integer (pc, 2, byte_order);
- }
- if (op == P_LINKAGE)
- pc += 4;
- done = 1;
- }
- else if (op == P_LINKAGE)
- {
- pc += 4;
- done = 1;
- }
- else if (op == P_MINUS_MINUS_SP_EQ_RETS)
- {
- pc += 2;
- done = 1;
- }
- else if (op == P_RTS)
- {
- done = 1;
- }
- else if ((op >= P_JUMP_PREG_MIN && op <= P_JUMP_PREG_MAX)
- || (op >= P_JUMP_PC_PLUS_PREG_MIN
- && op <= P_JUMP_PC_PLUS_PREG_MAX)
- || (op == P_JUMP_S_MIN && op <= P_JUMP_S_MAX))
- {
- done = 1;
- }
- else if (pc - orig_pc >= UPPER_LIMIT)
- {
- warning (_("Function Prologue not recognised; "
- "pc will point to ENTRY_POINT of the function"));
- pc = orig_pc + 2;
- done = 1;
- }
- else
- {
- pc += 2;
- op = read_memory_unsigned_integer (pc, 2, byte_order);
- }
- }
- TODO
- return pc;
- }
- static struct type *
- bfin_register_type (struct gdbarch *gdbarch, int regnum)
- {
- if ((regnum >= BFIN_P0_REGNUM && regnum <= BFIN_FP_REGNUM)
- || regnum == BFIN_USP_REGNUM)
- return builtin_type (gdbarch)->builtin_data_ptr;
- if (regnum == BFIN_PC_REGNUM || regnum == BFIN_RETS_REGNUM
- || regnum == BFIN_RETI_REGNUM || regnum == BFIN_RETX_REGNUM
- || regnum == BFIN_RETN_REGNUM || regnum == BFIN_RETE_REGNUM
- || regnum == BFIN_LT0_REGNUM || regnum == BFIN_LB0_REGNUM
- || regnum == BFIN_LT1_REGNUM || regnum == BFIN_LB1_REGNUM)
- return builtin_type (gdbarch)->builtin_func_ptr;
- return builtin_type (gdbarch)->builtin_int32;
- }
- static CORE_ADDR
- bfin_push_dummy_call (struct gdbarch *gdbarch,
- struct value *function,
- struct regcache *regcache,
- CORE_ADDR bp_addr,
- int nargs,
- struct value **args,
- CORE_ADDR sp,
- int struct_return,
- CORE_ADDR struct_addr)
- {
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
- gdb_byte buf[4];
- int i;
- long reg_r0, reg_r1, reg_r2;
- int total_len = 0;
- enum bfin_abi abi = bfin_abi (gdbarch);
- CORE_ADDR func_addr = find_function_addr (function, NULL);
- for (i = nargs - 1; i >= 0; i--)
- {
- struct type *value_type = value_enclosing_type (args[i]);
- total_len += (TYPE_LENGTH (value_type) + 3) & ~3;
- }
-
- if (total_len < 12)
- sp -= 12 - total_len;
-
- for (i = nargs - 1; i >= 0; i--)
- {
- struct type *value_type = value_enclosing_type (args[i]);
- struct type *arg_type = check_typedef (value_type);
- int container_len = (TYPE_LENGTH (value_type) + 3) & ~3;
- sp -= container_len;
- write_memory (sp, value_contents_writeable (args[i]), container_len);
- }
-
- reg_r0 = read_memory_integer (sp, 4, byte_order);
- regcache_cooked_write_unsigned (regcache, BFIN_R0_REGNUM, reg_r0);
- reg_r1 = read_memory_integer (sp + 4, 4, byte_order);
- regcache_cooked_write_unsigned (regcache, BFIN_R1_REGNUM, reg_r1);
- reg_r2 = read_memory_integer (sp + 8, 4, byte_order);
- regcache_cooked_write_unsigned (regcache, BFIN_R2_REGNUM, reg_r2);
-
- if (struct_return)
- regcache_cooked_write_unsigned (regcache, BFIN_P0_REGNUM, struct_addr);
-
- regcache_cooked_write_unsigned (regcache, BFIN_RETS_REGNUM, bp_addr);
-
- regcache_cooked_write_unsigned (regcache, BFIN_SP_REGNUM, sp);
- return sp;
- }
- static int
- bfin_reg_to_regnum (struct gdbarch *gdbarch, int reg)
- {
- if (reg > ARRAY_SIZE (map_gcc_gdb))
- return 0;
- return map_gcc_gdb[reg];
- }
- static const unsigned char *
- bfin_breakpoint_from_pc (struct gdbarch *gdbarch,
- CORE_ADDR *pcptr, int *lenptr)
- {
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- unsigned short iw;
- static unsigned char bfin_breakpoint[] = {0xa1, 0x00, 0x00, 0x00};
- static unsigned char bfin_sim_breakpoint[] = {0x25, 0x00, 0x00, 0x00};
- iw = read_memory_unsigned_integer (*pcptr, 2, byte_order);
- if ((iw & 0xf000) >= 0xc000)
-
- *lenptr = 4;
- else
- *lenptr = 2;
- if (strcmp (target_shortname, "sim") == 0)
- return bfin_sim_breakpoint;
- else
- return bfin_breakpoint;
- }
- static void
- bfin_extract_return_value (struct type *type,
- struct regcache *regs,
- gdb_byte *dst)
- {
- struct gdbarch *gdbarch = get_regcache_arch (regs);
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- bfd_byte *valbuf = dst;
- int len = TYPE_LENGTH (type);
- ULONGEST tmp;
- int regno = BFIN_R0_REGNUM;
- gdb_assert (len <= 8);
- while (len > 0)
- {
- regcache_cooked_read_unsigned (regs, regno++, &tmp);
- store_unsigned_integer (valbuf, (len > 4 ? 4 : len), byte_order, tmp);
- len -= 4;
- valbuf += 4;
- }
- }
- static void
- bfin_store_return_value (struct type *type,
- struct regcache *regs,
- const gdb_byte *src)
- {
- const bfd_byte *valbuf = src;
-
- int len = TYPE_LENGTH (type);
- int regno = BFIN_R0_REGNUM;
- gdb_assert (len <= 8);
- while (len > 0)
- {
- regcache_cooked_write (regs, regno++, valbuf);
- len -= 4;
- valbuf += 4;
- }
- }
- static enum return_value_convention
- bfin_return_value (struct gdbarch *gdbarch,
- struct value *function,
- struct type *type,
- struct regcache *regcache,
- gdb_byte *readbuf,
- const gdb_byte *writebuf)
- {
- if (TYPE_LENGTH (type) > 8)
- return RETURN_VALUE_STRUCT_CONVENTION;
- if (readbuf)
- bfin_extract_return_value (type, regcache, readbuf);
- if (writebuf)
- bfin_store_return_value (type, regcache, writebuf);
- return RETURN_VALUE_REGISTER_CONVENTION;
- }
- static const char *
- bfin_register_name (struct gdbarch *gdbarch, int i)
- {
- return bfin_register_name_strings[i];
- }
- static enum register_status
- bfin_pseudo_register_read (struct gdbarch *gdbarch, struct regcache *regcache,
- int regnum, gdb_byte *buffer)
- {
- gdb_byte *buf = (gdb_byte *) alloca (MAX_REGISTER_SIZE);
- enum register_status status;
- if (regnum != BFIN_CC_REGNUM)
- internal_error (__FILE__, __LINE__,
- _("invalid register number %d"), regnum);
-
- status = regcache_raw_read (regcache, BFIN_ASTAT_REGNUM, buf);
- if (status == REG_VALID)
- {
- buffer[1] = buffer[2] = buffer[3] = 0;
- buffer[0] = !!(buf[0] & ASTAT_CC);
- }
- return status;
- }
- static void
- bfin_pseudo_register_write (struct gdbarch *gdbarch, struct regcache *regcache,
- int regnum, const gdb_byte *buffer)
- {
- gdb_byte *buf = (gdb_byte *) alloca (MAX_REGISTER_SIZE);
- if (regnum != BFIN_CC_REGNUM)
- internal_error (__FILE__, __LINE__,
- _("invalid register number %d"), regnum);
-
- regcache_raw_read (regcache, BFIN_ASTAT_REGNUM, buf);
- buf[0] = (buf[0] & ~ASTAT_CC) | ((buffer[0] & 1) << ASTAT_CC_POS);
- regcache_raw_write (regcache, BFIN_ASTAT_REGNUM, buf);
- }
- static CORE_ADDR
- bfin_frame_base_address (struct frame_info *this_frame, void **this_cache)
- {
- struct bfin_frame_cache *cache = bfin_frame_cache (this_frame, this_cache);
- return cache->base;
- }
- static CORE_ADDR
- bfin_frame_local_address (struct frame_info *this_frame, void **this_cache)
- {
- struct bfin_frame_cache *cache = bfin_frame_cache (this_frame, this_cache);
- return cache->base - 4;
- }
- static CORE_ADDR
- bfin_frame_args_address (struct frame_info *this_frame, void **this_cache)
- {
- struct bfin_frame_cache *cache = bfin_frame_cache (this_frame, this_cache);
- return cache->base + 8;
- }
- static const struct frame_base bfin_frame_base =
- {
- &bfin_frame_unwind,
- bfin_frame_base_address,
- bfin_frame_local_address,
- bfin_frame_args_address
- };
- static struct frame_id
- bfin_dummy_id (struct gdbarch *gdbarch, struct frame_info *this_frame)
- {
- CORE_ADDR sp;
- sp = get_frame_register_unsigned (this_frame, BFIN_SP_REGNUM);
- return frame_id_build (sp, get_frame_pc (this_frame));
- }
- static CORE_ADDR
- bfin_unwind_pc (struct gdbarch *gdbarch, struct frame_info *next_frame)
- {
- return frame_unwind_register_unsigned (next_frame, BFIN_PC_REGNUM);
- }
- static CORE_ADDR
- bfin_frame_align (struct gdbarch *gdbarch, CORE_ADDR address)
- {
- return (address & ~0x3);
- }
- enum bfin_abi
- bfin_abi (struct gdbarch *gdbarch)
- {
- return gdbarch_tdep (gdbarch)->bfin_abi;
- }
- static struct gdbarch *
- bfin_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
- {
- struct gdbarch_tdep *tdep;
- struct gdbarch *gdbarch;
- int elf_flags;
- enum bfin_abi abi;
-
- if (info.abfd && bfd_get_flavour (info.abfd) == bfd_target_elf_flavour)
- elf_flags = elf_elfheader (info.abfd)->e_flags;
- else
- elf_flags = 0;
- abi = BFIN_ABI_FLAT;
-
- for (arches = gdbarch_list_lookup_by_info (arches, &info);
- arches != NULL;
- arches = gdbarch_list_lookup_by_info (arches->next, &info))
- {
- if (gdbarch_tdep (arches->gdbarch)->bfin_abi != abi)
- continue;
- return arches->gdbarch;
- }
- tdep = XNEW (struct gdbarch_tdep);
- gdbarch = gdbarch_alloc (&info, tdep);
- tdep->bfin_abi = abi;
- set_gdbarch_num_regs (gdbarch, BFIN_NUM_REGS);
- set_gdbarch_pseudo_register_read (gdbarch, bfin_pseudo_register_read);
- set_gdbarch_pseudo_register_write (gdbarch, bfin_pseudo_register_write);
- set_gdbarch_num_pseudo_regs (gdbarch, BFIN_NUM_PSEUDO_REGS);
- set_gdbarch_sp_regnum (gdbarch, BFIN_SP_REGNUM);
- set_gdbarch_pc_regnum (gdbarch, BFIN_PC_REGNUM);
- set_gdbarch_ps_regnum (gdbarch, BFIN_ASTAT_REGNUM);
- set_gdbarch_dwarf2_reg_to_regnum (gdbarch, bfin_reg_to_regnum);
- set_gdbarch_register_name (gdbarch, bfin_register_name);
- set_gdbarch_register_type (gdbarch, bfin_register_type);
- set_gdbarch_dummy_id (gdbarch, bfin_dummy_id);
- set_gdbarch_push_dummy_call (gdbarch, bfin_push_dummy_call);
- set_gdbarch_believe_pcc_promotion (gdbarch, 1);
- set_gdbarch_return_value (gdbarch, bfin_return_value);
- set_gdbarch_skip_prologue (gdbarch, bfin_skip_prologue);
- set_gdbarch_inner_than (gdbarch, core_addr_lessthan);
- set_gdbarch_breakpoint_from_pc (gdbarch, bfin_breakpoint_from_pc);
- set_gdbarch_decr_pc_after_break (gdbarch, 2);
- set_gdbarch_frame_args_skip (gdbarch, 8);
- set_gdbarch_unwind_pc (gdbarch, bfin_unwind_pc);
- set_gdbarch_frame_align (gdbarch, bfin_frame_align);
- set_gdbarch_print_insn (gdbarch, print_insn_bfin);
-
- gdbarch_init_osabi (info, gdbarch);
- dwarf2_append_unwinders (gdbarch);
- frame_base_set_default (gdbarch, &bfin_frame_base);
- frame_unwind_append_unwinder (gdbarch, &bfin_frame_unwind);
- return gdbarch;
- }
- extern initialize_file_ftype _initialize_bfin_tdep;
- void
- _initialize_bfin_tdep (void)
- {
- register_gdbarch_init (bfd_arch_bfin, bfin_gdbarch_init);
- }