Checkpoint (sharing through devo).
This commit is contained in:
Zdenek Radouch
parent
de6fb7e775
commit
492eae092d
2 changed files with 226 additions and 236 deletions
|
|
@ -50,8 +50,20 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||||||
|
|
||||||
#define TARGET_BYTE_ORDER BIG_ENDIAN
|
#define TARGET_BYTE_ORDER BIG_ENDIAN
|
||||||
|
|
||||||
|
#define R0_REGNUM 0
|
||||||
|
#define R1_REGNUM 1
|
||||||
|
#define R2_REGNUM 2
|
||||||
|
#define R3_REGNUM 3
|
||||||
#define R4_REGNUM 4
|
#define R4_REGNUM 4
|
||||||
|
#define R5_REGNUM 5
|
||||||
|
#define R6_REGNUM 6
|
||||||
#define R7_REGNUM 7
|
#define R7_REGNUM 7
|
||||||
|
#define R8_REGNUM 8
|
||||||
|
#define R9_REGNUM 9
|
||||||
|
#define R10_REGNUM 10
|
||||||
|
#define R11_REGNUM 11
|
||||||
|
#define R12_REGNUM 12
|
||||||
|
#define R13_REGNUM 13
|
||||||
#define FP_REGNUM 14 /* Frame pointer */
|
#define FP_REGNUM 14 /* Frame pointer */
|
||||||
#define SP_REGNUM 15 /* Stack pointer */
|
#define SP_REGNUM 15 /* Stack pointer */
|
||||||
#define PC_REGNUM 16 /* Program counter */
|
#define PC_REGNUM 16 /* Program counter */
|
||||||
|
|
@ -136,7 +148,11 @@ struct type;
|
||||||
struct value;
|
struct value;
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#define EXTRA_FRAME_INFO struct frame_saved_regs fsr;
|
#define EXTRA_FRAME_INFO \
|
||||||
|
struct frame_saved_regs fsr; \
|
||||||
|
int framesize; \
|
||||||
|
int frameoffset; \
|
||||||
|
int framereg;
|
||||||
|
|
||||||
extern CORE_ADDR fr30_frame_chain PARAMS ((struct frame_info *fi));
|
extern CORE_ADDR fr30_frame_chain PARAMS ((struct frame_info *fi));
|
||||||
#define FRAME_CHAIN(fi) fr30_frame_chain (fi)
|
#define FRAME_CHAIN(fi) fr30_frame_chain (fi)
|
||||||
|
|
|
||||||
442
gdb/fr30-tdep.c
442
gdb/fr30-tdep.c
|
|
@ -28,11 +28,11 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||||||
#include "gdbcore.h"
|
#include "gdbcore.h"
|
||||||
#include "symfile.h"
|
#include "symfile.h"
|
||||||
|
|
||||||
niy(char *f, int l)
|
__t(int l, char *s, int a)
|
||||||
{
|
{
|
||||||
fprintf(stderr, "%s(%d): Not implemented yet\n", f, l);
|
fprintf(stderr, "(%d): %s: 0x%08x\n", l, s, a);
|
||||||
}
|
}
|
||||||
#define NIY() niy(__FILE__, __LINE__)
|
#define T(s, a) __t(__LINE__, s, (int)(a))
|
||||||
|
|
||||||
/* Function: pop_frame
|
/* Function: pop_frame
|
||||||
This routine gets called when either the user uses the `return'
|
This routine gets called when either the user uses the `return'
|
||||||
|
|
@ -78,8 +78,9 @@ fr30_skip_prologue(CORE_ADDR pc)
|
||||||
|
|
||||||
sal = find_pc_line (func_addr, 0);
|
sal = find_pc_line (func_addr, 0);
|
||||||
|
|
||||||
if (sal.line != 0 && sal.end < func_end)
|
if (sal.line != 0 && sal.end < func_end) {
|
||||||
return sal.end;
|
return sal.end;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Either we didn't find the start of this function (nothing we can do),
|
/* Either we didn't find the start of this function (nothing we can do),
|
||||||
|
|
@ -188,28 +189,66 @@ _initialize_fr30_tdep()
|
||||||
tm_print_insn = print_insn_fr30;
|
tm_print_insn = print_insn_fr30;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Function: check_prologue_cache
|
||||||
|
Check if prologue for this frame's PC has already been scanned.
|
||||||
|
If it has, copy the relevant information about that prologue and
|
||||||
|
return non-zero. Otherwise do not copy anything and return zero.
|
||||||
|
|
||||||
/* Info gleaned from scanning a function's prologue. */
|
The information saved in the cache includes:
|
||||||
|
* the frame register number;
|
||||||
|
* the size of the stack frame;
|
||||||
|
* the offsets of saved regs (relative to the old SP); and
|
||||||
|
* the offset from the stack pointer to the frame pointer
|
||||||
|
|
||||||
struct pifsr /* Info about one saved reg */
|
The cache contains only one entry, since this is adequate
|
||||||
|
for the typical sequence of prologue scan requests we get.
|
||||||
|
When performing a backtrace, GDB will usually ask to scan
|
||||||
|
the same function twice in a row (once to get the frame chain,
|
||||||
|
and once to fill in the extra frame information).
|
||||||
|
*/
|
||||||
|
|
||||||
|
static struct frame_info prologue_cache;
|
||||||
|
|
||||||
|
static int
|
||||||
|
check_prologue_cache (fi)
|
||||||
|
struct frame_info * fi;
|
||||||
{
|
{
|
||||||
int framereg; /* Frame reg (SP or FP) */
|
int i;
|
||||||
int offset; /* Offset from framereg */
|
|
||||||
int cur_frameoffset; /* Current frameoffset */
|
|
||||||
int reg; /* Saved register number */
|
|
||||||
};
|
|
||||||
|
|
||||||
struct prologue_info
|
if (fi->pc == prologue_cache.pc)
|
||||||
|
{
|
||||||
|
fi->framereg = prologue_cache.framereg;
|
||||||
|
fi->framesize = prologue_cache.framesize;
|
||||||
|
fi->frameoffset = prologue_cache.frameoffset;
|
||||||
|
for (i = 0; i <= NUM_REGS; i++)
|
||||||
|
fi->fsr.regs[i] = prologue_cache.fsr.regs[i];
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* Function: save_prologue_cache
|
||||||
|
Copy the prologue information from fi to the prologue cache.
|
||||||
|
*/
|
||||||
|
|
||||||
|
static void
|
||||||
|
save_prologue_cache (fi)
|
||||||
|
struct frame_info * fi;
|
||||||
{
|
{
|
||||||
int framereg;
|
int i;
|
||||||
int frameoffset;
|
|
||||||
int start_function;
|
prologue_cache.pc = fi->pc;
|
||||||
struct pifsr *pifsrs;
|
prologue_cache.framereg = fi->framereg;
|
||||||
};
|
prologue_cache.framesize = fi->framesize;
|
||||||
|
prologue_cache.frameoffset = fi->frameoffset;
|
||||||
|
|
||||||
|
for (i = 0; i <= NUM_REGS; i++)
|
||||||
|
prologue_cache.fsr.regs[i] = fi->fsr.regs[i];
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
static CORE_ADDR fr30_scan_prologue PARAMS ((CORE_ADDR pc,
|
|
||||||
struct prologue_info *fs));
|
|
||||||
|
|
||||||
/* Function: scan_prologue
|
/* Function: scan_prologue
|
||||||
Scan the prologue of the function that contains PC, and record what
|
Scan the prologue of the function that contains PC, and record what
|
||||||
we find in PI. PI->fsr must be zeroed by the called. Returns the
|
we find in PI. PI->fsr must be zeroed by the called. Returns the
|
||||||
|
|
@ -219,208 +258,123 @@ static CORE_ADDR fr30_scan_prologue PARAMS ((CORE_ADDR pc,
|
||||||
frame pointer yet. In some circumstances, the frame pointer can't
|
frame pointer yet. In some circumstances, the frame pointer can't
|
||||||
be determined till after we have scanned the prologue. */
|
be determined till after we have scanned the prologue. */
|
||||||
|
|
||||||
static CORE_ADDR
|
static void
|
||||||
fr30_scan_prologue (pc, pi)
|
fr30_scan_prologue (fi)
|
||||||
CORE_ADDR pc;
|
struct frame_info * fi;
|
||||||
struct prologue_info *pi;
|
|
||||||
{
|
{
|
||||||
CORE_ADDR func_addr, prologue_end, current_pc;
|
int sp_offset, fp_offset;
|
||||||
struct pifsr *pifsr, *pifsr_tmp;
|
CORE_ADDR prologue_start, prologue_end, current_pc;
|
||||||
int fp_used;
|
|
||||||
int ep_used;
|
|
||||||
int reg;
|
|
||||||
CORE_ADDR save_pc, save_end;
|
|
||||||
int regsave_func_p;
|
|
||||||
int current_sp_size;
|
|
||||||
int r12_tmp;
|
|
||||||
|
|
||||||
/* First, figure out the bounds of the prologue so that we can limit the
|
/* Check if this function is already in the cache of frame information. */
|
||||||
search to something reasonable. */
|
if (check_prologue_cache (fi))
|
||||||
|
return;
|
||||||
|
|
||||||
if (find_pc_partial_function (pc, NULL, &func_addr, NULL))
|
/* Assume there is no frame until proven otherwise. */
|
||||||
|
fi->framereg = SP_REGNUM;
|
||||||
|
fi->framesize = 0;
|
||||||
|
fi->frameoffset = 0;
|
||||||
|
|
||||||
|
/* Find the function prologue. If we can't find the function in
|
||||||
|
the symbol table, peek in the stack frame to find the PC. */
|
||||||
|
if (find_pc_partial_function (fi->pc, NULL, &prologue_start, &prologue_end))
|
||||||
{
|
{
|
||||||
struct symtab_and_line sal;
|
/* Assume the prologue is everything between the first instruction
|
||||||
|
in the function and the first source line. */
|
||||||
|
struct symtab_and_line sal = find_pc_line (prologue_start, 0);
|
||||||
|
|
||||||
sal = find_pc_line (func_addr, 0);
|
if (sal.line == 0) /* no line info, use current PC */
|
||||||
|
prologue_end = fi->pc;
|
||||||
if (func_addr == entry_point_address ())
|
else if (sal.end < prologue_end) /* next line begins after fn end */
|
||||||
pi->start_function = 1;
|
prologue_end = sal.end; /* (probably means no prologue) */
|
||||||
else
|
|
||||||
pi->start_function = 0;
|
|
||||||
|
|
||||||
#if 0
|
|
||||||
if (sal.line == 0)
|
|
||||||
prologue_end = pc;
|
|
||||||
else
|
|
||||||
prologue_end = sal.end;
|
|
||||||
#else
|
|
||||||
prologue_end = pc;
|
|
||||||
#endif
|
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{ /* We're in the boondocks */
|
{
|
||||||
func_addr = pc - 100;
|
T("NIY", 0);
|
||||||
prologue_end = pc;
|
/* XXX ??? Z.R. Get address of the stmfd in the prologue of the callee; the saved
|
||||||
|
PC is the address of the stmfd + 12. */
|
||||||
|
prologue_start = (read_memory_integer (fi->frame, 4) & 0x03fffffc) - 12;
|
||||||
|
prologue_end = prologue_start + 40; /* FIXME: should be big enough */
|
||||||
}
|
}
|
||||||
|
|
||||||
prologue_end = min (prologue_end, pc);
|
/* Now search the prologue looking for instructions that set up the
|
||||||
|
frame pointer, adjust the stack pointer, and save registers. */
|
||||||
|
|
||||||
/* Now, search the prologue looking for instructions that setup fp, save
|
sp_offset = fp_offset = 0;
|
||||||
rp, adjust sp and such. We also record the frame offset of any saved
|
for (current_pc = prologue_start; current_pc < prologue_end; current_pc += 2)
|
||||||
registers. */
|
|
||||||
|
|
||||||
pi->frameoffset = 0;
|
|
||||||
pi->framereg = SP_REGNUM;
|
|
||||||
fp_used = 0;
|
|
||||||
ep_used = 0;
|
|
||||||
pifsr = pi->pifsrs;
|
|
||||||
regsave_func_p = 0;
|
|
||||||
save_pc = 0;
|
|
||||||
save_end = 0;
|
|
||||||
r12_tmp = 0;
|
|
||||||
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("Current_pc = 0x%.8lx, prologue_end = 0x%.8lx\n",
|
|
||||||
(long)func_addr, (long)prologue_end);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
for (current_pc = func_addr; current_pc < prologue_end; current_pc += 2)
|
|
||||||
{
|
{
|
||||||
int insn;
|
unsigned int insn;
|
||||||
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("0x%.8lx ", (long)current_pc);
|
|
||||||
(*tm_print_insn) (current_pc, &tm_print_insn_info);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
insn = read_memory_unsigned_integer (current_pc, 2);
|
insn = read_memory_unsigned_integer (current_pc, 2);
|
||||||
|
|
||||||
if ((insn & 0xffc0) == ((10 << 11) | 0x0780) && !regsave_func_p)
|
if ((insn & 0xfe00) == 0x8e00) /* stm0 or stm1 */
|
||||||
{ /* jarl <func>,10 */
|
|
||||||
long low_disp = read_memory_unsigned_integer (current_pc + 2, 2) & ~ (long) 1;
|
|
||||||
long disp = (((((insn & 0x3f) << 16) + low_disp)
|
|
||||||
& ~ (long) 1) ^ 0x00200000) - 0x00200000;
|
|
||||||
|
|
||||||
save_pc = current_pc;
|
|
||||||
save_end = prologue_end;
|
|
||||||
regsave_func_p = 1;
|
|
||||||
current_pc += disp - 2;
|
|
||||||
prologue_end = (current_pc
|
|
||||||
+ (2 * 3) /* moves to/from ep */
|
|
||||||
+ 4 /* addi <const>,sp,sp */
|
|
||||||
+ 2 /* jmp [r10] */
|
|
||||||
+ (2 * 12) /* sst.w to save r2, r20-r29, r31 */
|
|
||||||
+ 20); /* slop area */
|
|
||||||
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("\tfound jarl <func>,r10, disp = %ld, low_disp = %ld, new pc = 0x%.8lx\n",
|
|
||||||
disp, low_disp, (long)current_pc + 2);
|
|
||||||
#endif
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if ((insn & 0xffe0) == 0x0060 && regsave_func_p)
|
|
||||||
{ /* jmp after processing register save function */
|
|
||||||
current_pc = save_pc + 2;
|
|
||||||
prologue_end = save_end;
|
|
||||||
regsave_func_p = 0;
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("\tfound jmp after regsave func");
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
else if ((insn & 0x07c0) == 0x0780 /* jarl or jr */
|
|
||||||
|| (insn & 0xffe0) == 0x0060 /* jmp */
|
|
||||||
|| (insn & 0x0780) == 0x0580) /* branch */
|
|
||||||
{
|
{
|
||||||
#ifdef DEBUG
|
int reg, mask = insn & 0xff;
|
||||||
printf_filtered ("\n");
|
|
||||||
#endif
|
|
||||||
break; /* Ran into end of prologue */
|
|
||||||
}
|
|
||||||
|
|
||||||
else if ((insn & 0xffe0) == ((SP_REGNUM << 11) | 0x0240)) /* add <imm>,sp */
|
/* scan in one sweep - create virtual 16-bit mask from either insn's mask */
|
||||||
pi->frameoffset += ((insn & 0x1f) ^ 0x10) - 0x10;
|
if((insn & 0x0100) == 0)
|
||||||
else if (insn == ((SP_REGNUM << 11) | 0x0600 | SP_REGNUM)) /* addi <imm>,sp,sp */
|
{
|
||||||
pi->frameoffset += read_memory_integer (current_pc + 2, 2);
|
mask <<= 8; /* stm0 - move to upper byte in virtual mask */
|
||||||
else if (insn == ((FP_REGNUM << 11) | 0x0000 | SP_REGNUM)) /* mov sp,fp */
|
}
|
||||||
|
|
||||||
|
/* Calculate offsets of saved registers (to be turned later into addresses). */
|
||||||
|
for (reg = R4_REGNUM; reg <= R11_REGNUM; reg++)
|
||||||
|
if (mask & (1 << (15 - reg)))
|
||||||
|
{
|
||||||
|
sp_offset -= 4;
|
||||||
|
fi->fsr.regs[reg] = sp_offset;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if((insn & 0xff00) == 0x0f00) /* enter */
|
||||||
|
{
|
||||||
|
fp_offset = fi->fsr.regs[FP_REGNUM] = sp_offset - 4;
|
||||||
|
sp_offset -= 4 * (insn & 0xff);
|
||||||
|
fi->framereg = FP_REGNUM;
|
||||||
|
}
|
||||||
|
else if(insn == 0x1781) /* st rp,@-sp */
|
||||||
{
|
{
|
||||||
fp_used = 1;
|
sp_offset -= 4;
|
||||||
pi->framereg = FP_REGNUM;
|
fi->fsr.regs[RP_REGNUM] = sp_offset;
|
||||||
}
|
}
|
||||||
|
else if(insn == 0x170e) /* st fp,@-sp */
|
||||||
#if(0) /* Z.R. XXX */
|
|
||||||
else if (insn == ((R12_REGNUM << 11) | 0x0640 | R0_REGNUM)) /* movhi hi(const),r0,r12 */
|
|
||||||
r12_tmp = read_memory_integer (current_pc + 2, 2) << 16;
|
|
||||||
else if (insn == ((R12_REGNUM << 11) | 0x0620 | R12_REGNUM)) /* movea lo(const),r12,r12 */
|
|
||||||
r12_tmp += read_memory_integer (current_pc + 2, 2);
|
|
||||||
else if (insn == ((SP_REGNUM << 11) | 0x01c0 | R12_REGNUM) && r12_tmp) /* add r12,sp */
|
|
||||||
pi->frameoffset = r12_tmp;
|
|
||||||
else if (insn == ((EP_REGNUM << 11) | 0x0000 | SP_REGNUM)) /* mov sp,ep */
|
|
||||||
ep_used = 1;
|
|
||||||
else if (insn == ((EP_REGNUM << 11) | 0x0000 | R1_REGNUM)) /* mov r1,ep */
|
|
||||||
ep_used = 0;
|
|
||||||
else if (((insn & 0x07ff) == (0x0760 | SP_REGNUM) /* st.w <reg>,<offset>[sp] */
|
|
||||||
|| (fp_used
|
|
||||||
&& (insn & 0x07ff) == (0x0760 | FP_RAW_REGNUM))) /* st.w <reg>,<offset>[fp] */
|
|
||||||
&& pifsr
|
|
||||||
&& (((reg = (insn >> 11) & 0x1f) >= SAVE1_START_REGNUM && reg <= SAVE1_END_REGNUM)
|
|
||||||
|| (reg >= SAVE2_START_REGNUM && reg <= SAVE2_END_REGNUM)
|
|
||||||
|| (reg >= SAVE3_START_REGNUM && reg <= SAVE3_END_REGNUM)))
|
|
||||||
{
|
{
|
||||||
pifsr->reg = reg;
|
sp_offset -= 4;
|
||||||
pifsr->offset = read_memory_integer (current_pc + 2, 2) & ~1;
|
fi->fsr.regs[FP_REGNUM] = sp_offset;
|
||||||
pifsr->cur_frameoffset = pi->frameoffset;
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("\tSaved register r%d, offset %d", reg, pifsr->offset);
|
|
||||||
#endif
|
|
||||||
pifsr++;
|
|
||||||
}
|
}
|
||||||
|
else if(insn == 0x8bfe) /* mov sp,fp */
|
||||||
else if (ep_used /* sst.w <reg>,<offset>[ep] */
|
|
||||||
&& ((insn & 0x0781) == 0x0501)
|
|
||||||
&& pifsr
|
|
||||||
&& (((reg = (insn >> 11) & 0x1f) >= SAVE1_START_REGNUM && reg <= SAVE1_END_REGNUM)
|
|
||||||
|| (reg >= SAVE2_START_REGNUM && reg <= SAVE2_END_REGNUM)
|
|
||||||
|| (reg >= SAVE3_START_REGNUM && reg <= SAVE3_END_REGNUM)))
|
|
||||||
{
|
{
|
||||||
pifsr->reg = reg;
|
fi->framereg = FP_REGNUM;
|
||||||
pifsr->offset = (insn & 0x007e) << 1;
|
}
|
||||||
pifsr->cur_frameoffset = pi->frameoffset;
|
else if((insn & 0xff00) == 0xa300) /* addsp xx */
|
||||||
#ifdef DEBUG
|
{
|
||||||
printf_filtered ("\tSaved register r%d, offset %d", reg, pifsr->offset);
|
sp_offset += 4 * (signed char)(insn & 0xff);
|
||||||
#endif
|
}
|
||||||
pifsr++;
|
else if((insn & 0xff0f) == 0x9b00 && /* ldi:20 xx,r0 */
|
||||||
|
read_memory_unsigned_integer(current_pc+4, 2)
|
||||||
|
== 0xac0f) /* sub r0,sp */
|
||||||
|
{
|
||||||
|
/* large stack adjustment */
|
||||||
|
sp_offset -= (((insn & 0xf0) << 12) | read_memory_unsigned_integer(current_pc+2, 2));
|
||||||
|
current_pc += 4;
|
||||||
|
}
|
||||||
|
else if(insn == 0x9f80 && /* ldi:32 xx,r0 */
|
||||||
|
read_memory_unsigned_integer(current_pc+6, 2)
|
||||||
|
== 0xac0f) /* sub r0,sp */
|
||||||
|
{
|
||||||
|
/* large stack adjustment */
|
||||||
|
sp_offset -=
|
||||||
|
(read_memory_unsigned_integer(current_pc+2, 2) << 16 |
|
||||||
|
read_memory_unsigned_integer(current_pc+4, 2));
|
||||||
|
current_pc += 6;
|
||||||
}
|
}
|
||||||
#endif /* Z.R. */
|
|
||||||
|
|
||||||
if ((insn & 0x0780) >= 0x0600) /* Four byte instruction? */
|
|
||||||
current_pc += 2;
|
|
||||||
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("\n");
|
|
||||||
#endif
|
|
||||||
}
|
}
|
||||||
|
|
||||||
if (pifsr)
|
/* The frame size is just the negative of the offset (from the original SP)
|
||||||
pifsr->framereg = 0; /* Tie off last entry */
|
of the last thing thing we pushed on the stack. The frame offset is
|
||||||
|
[new FP] - [new SP]. */
|
||||||
|
fi->framesize = -sp_offset;
|
||||||
|
fi->frameoffset = fp_offset - sp_offset;
|
||||||
|
|
||||||
/* Fix up any offsets to the final offset. If a frame pointer was created, use it
|
save_prologue_cache (fi);
|
||||||
instead of the stack pointer. */
|
|
||||||
for (pifsr_tmp = pi->pifsrs; pifsr_tmp && pifsr_tmp != pifsr; pifsr_tmp++)
|
|
||||||
{
|
|
||||||
pifsr_tmp->offset -= pi->frameoffset - pifsr_tmp->cur_frameoffset;
|
|
||||||
pifsr_tmp->framereg = pi->framereg;
|
|
||||||
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("Saved register r%d, offset = %d, framereg = r%d\n",
|
|
||||||
pifsr_tmp->reg, pifsr_tmp->offset, pifsr_tmp->framereg);
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
|
|
||||||
#ifdef DEBUG
|
|
||||||
printf_filtered ("Framereg = r%d, frameoffset = %d\n", pi->framereg, pi->frameoffset);
|
|
||||||
#endif
|
|
||||||
|
|
||||||
return current_pc;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Function: init_extra_frame_info
|
/* Function: init_extra_frame_info
|
||||||
|
|
@ -438,10 +392,8 @@ fr30_scan_prologue (pc, pi)
|
||||||
|
|
||||||
void
|
void
|
||||||
fr30_init_extra_frame_info (fi)
|
fr30_init_extra_frame_info (fi)
|
||||||
struct frame_info *fi;
|
struct frame_info * fi;
|
||||||
{
|
{
|
||||||
struct prologue_info pi;
|
|
||||||
struct pifsr pifsrs[NUM_REGS + 1], *pifsr;
|
|
||||||
int reg;
|
int reg;
|
||||||
|
|
||||||
if (fi->next)
|
if (fi->next)
|
||||||
|
|
@ -449,25 +401,31 @@ fr30_init_extra_frame_info (fi)
|
||||||
|
|
||||||
memset (fi->fsr.regs, '\000', sizeof fi->fsr.regs);
|
memset (fi->fsr.regs, '\000', sizeof fi->fsr.regs);
|
||||||
|
|
||||||
/* The call dummy doesn't save any registers on the stack, so we can return
|
|
||||||
now. */
|
|
||||||
if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame))
|
if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame))
|
||||||
return;
|
|
||||||
|
|
||||||
pi.pifsrs = pifsrs;
|
|
||||||
|
|
||||||
fr30_scan_prologue (fi->pc, &pi);
|
|
||||||
|
|
||||||
if (!fi->next && pi.framereg == SP_REGNUM)
|
|
||||||
fi->frame = read_register (pi.framereg) - pi.frameoffset;
|
|
||||||
|
|
||||||
for (pifsr = pifsrs; pifsr->framereg; pifsr++)
|
|
||||||
{
|
{
|
||||||
fi->fsr.regs[pifsr->reg] = pifsr->offset + fi->frame;
|
/* We need to setup fi->frame here because run_stack_dummy gets it wrong
|
||||||
|
by assuming it's always FP. */
|
||||||
if (pifsr->framereg == SP_REGNUM)
|
fi->frame = generic_read_register_dummy (fi->pc, fi->frame, SP_REGNUM);
|
||||||
fi->fsr.regs[pifsr->reg] += pi.frameoffset;
|
fi->framesize = 0;
|
||||||
|
fi->frameoffset = 0;
|
||||||
|
return;
|
||||||
}
|
}
|
||||||
|
fr30_scan_prologue (fi);
|
||||||
|
|
||||||
|
if (!fi->next) /* this is the innermost frame? */
|
||||||
|
fi->frame = read_register (fi->framereg);
|
||||||
|
else /* not the innermost frame */
|
||||||
|
/* If we have an FP, the callee saved it. */
|
||||||
|
if (fi->framereg == FP_REGNUM)
|
||||||
|
if (fi->next->fsr.regs[fi->framereg] != 0)
|
||||||
|
fi->frame = read_memory_integer (fi->next->fsr.regs[fi->framereg],
|
||||||
|
4);
|
||||||
|
|
||||||
|
/* Calculate actual addresses of saved registers using offsets determined
|
||||||
|
by fr30_scan_prologue. */
|
||||||
|
for (reg = 0; reg < NUM_REGS; reg++)
|
||||||
|
if (fi->fsr.regs[reg] != 0)
|
||||||
|
fi->fsr.regs[reg] += fi->frame + fi->framesize - fi->frameoffset;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Function: find_callers_reg
|
/* Function: find_callers_reg
|
||||||
|
|
@ -501,37 +459,52 @@ fr30_find_callers_reg (fi, regnum)
|
||||||
just return the stack pointer that was in use at the time the
|
just return the stack pointer that was in use at the time the
|
||||||
function call was made. */
|
function call was made. */
|
||||||
|
|
||||||
|
|
||||||
CORE_ADDR
|
CORE_ADDR
|
||||||
fr30_frame_chain (fi)
|
fr30_frame_chain (fi)
|
||||||
struct frame_info *fi;
|
struct frame_info * fi;
|
||||||
{
|
{
|
||||||
struct prologue_info pi;
|
CORE_ADDR fn_start, callers_pc, fp;
|
||||||
CORE_ADDR callers_pc, fp;
|
struct frame_info caller_fi;
|
||||||
|
int framereg;
|
||||||
|
|
||||||
/* First, find out who called us */
|
/* is this a dummy frame? */
|
||||||
callers_pc = FRAME_SAVED_PC (fi);
|
if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame))
|
||||||
/* If caller is a call-dummy, then our FP bears no relation to his FP! */
|
return fi->frame; /* dummy frame same as caller's frame */
|
||||||
|
|
||||||
|
/* is caller-of-this a dummy frame? */
|
||||||
|
callers_pc = FRAME_SAVED_PC(fi); /* find out who called us: */
|
||||||
fp = fr30_find_callers_reg (fi, FP_REGNUM);
|
fp = fr30_find_callers_reg (fi, FP_REGNUM);
|
||||||
if (PC_IN_CALL_DUMMY(callers_pc, fp, fp))
|
if (PC_IN_CALL_DUMMY (callers_pc, fp, fp))
|
||||||
return fp; /* caller is call-dummy: return oldest value of FP */
|
return fp; /* dummy frame's frame may bear no relation to ours */
|
||||||
|
|
||||||
/* Caller is NOT a call-dummy, so everything else should just work.
|
if (find_pc_partial_function (fi->pc, 0, &fn_start, 0))
|
||||||
Even if THIS frame is a call-dummy! */
|
if (fn_start == entry_point_address ())
|
||||||
pi.pifsrs = NULL;
|
return 0; /* in _start fn, don't chain further */
|
||||||
|
|
||||||
fr30_scan_prologue (callers_pc, &pi);
|
framereg = fi->framereg;
|
||||||
|
|
||||||
if (pi.start_function)
|
/* If the caller is the startup code, we're at the end of the chain. */
|
||||||
return 0; /* Don't chain beyond the start function */
|
if (find_pc_partial_function (callers_pc, 0, &fn_start, 0))
|
||||||
|
if (fn_start == entry_point_address ())
|
||||||
|
return 0;
|
||||||
|
|
||||||
if (pi.framereg == FP_REGNUM)
|
memset (& caller_fi, 0, sizeof (caller_fi));
|
||||||
return fr30_find_callers_reg (fi, pi.framereg);
|
caller_fi.pc = callers_pc;
|
||||||
|
fr30_scan_prologue (& caller_fi);
|
||||||
|
framereg = caller_fi.framereg;
|
||||||
|
|
||||||
return fi->frame - pi.frameoffset;
|
/* If the caller used a frame register, return its value.
|
||||||
|
Otherwise, return the caller's stack pointer. */
|
||||||
|
if (framereg == FP_REGNUM)
|
||||||
|
return fr30_find_callers_reg (fi, framereg);
|
||||||
|
else
|
||||||
|
return fi->frame + fi->framesize;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Function: push_arguments
|
/* Function: push_arguments
|
||||||
Setup arguments and RP for a call to the target. First four args
|
Setup arguments and RP for a call to the target. First four args
|
||||||
go in R6->R9, subsequent args go into sp + 16 -> sp + ... Structs
|
go in R4->R7, subsequent args go on stack... Structs
|
||||||
are passed by reference. 64 bit quantities (doubles and long
|
are passed by reference. 64 bit quantities (doubles and long
|
||||||
longs) may be split between the regs and the stack. When calling a
|
longs) may be split between the regs and the stack. When calling a
|
||||||
function that returns a struct, a pointer to the struct is passed
|
function that returns a struct, a pointer to the struct is passed
|
||||||
|
|
@ -631,6 +604,7 @@ fr30_push_return_address (pc, sp)
|
||||||
CORE_ADDR pc;
|
CORE_ADDR pc;
|
||||||
CORE_ADDR sp;
|
CORE_ADDR sp;
|
||||||
{
|
{
|
||||||
|
T("fr30_push_return_address", CALL_DUMMY_ADDRESS ());
|
||||||
write_register (RP_REGNUM, CALL_DUMMY_ADDRESS ());
|
write_register (RP_REGNUM, CALL_DUMMY_ADDRESS ());
|
||||||
return sp;
|
return sp;
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue