From 2000-06-25 Stephane Carrez <Stephane.Carrez@worldnet.fr>:
* configure.tgt: Recognize the 68hc11. * m68hc11-tdep.c: New file for 68hc11 target. * config/m68hc11/m68hc11.mt: New file for 68hc11 port. * configure.tgt: When 68hc11, set gdb_multi_arch.
This commit is contained in:
parent
597f589d01
commit
78073dd899
4 changed files with 778 additions and 0 deletions
|
@ -1,3 +1,12 @@
|
|||
Thu Jul 27 14:06:27 2000 Andrew Cagney <cagney@b1.cygnus.com>
|
||||
|
||||
From 2000-06-25 Stephane Carrez <Stephane.Carrez@worldnet.fr>:
|
||||
* configure.tgt: Recognize the 68hc11.
|
||||
* m68hc11-tdep.c: New file for 68hc11 target.
|
||||
* config/m68hc11/m68hc11.mt: New file for 68hc11 port.
|
||||
|
||||
* configure.tgt: When 68hc11, set gdb_multi_arch.
|
||||
|
||||
Wed Jul 26 17:22:53 2000 Andrew Cagney <cagney@b1.cygnus.com>
|
||||
|
||||
* configure.in (GDB_MULTI_ARCH): Define from configure.tgt
|
||||
|
|
6
gdb/config/m68hc11/m68hc11.mt
Normal file
6
gdb/config/m68hc11/m68hc11.mt
Normal file
|
@ -0,0 +1,6 @@
|
|||
# Target: Motorola 68HC11 processor
|
||||
TDEPFILES= m68hc11-tdep.o
|
||||
TM_FILE= tm-m68hc11.h
|
||||
SIM_OBS= remote-sim.o
|
||||
SIM= ../sim/m68hc11/libsim.a -lm
|
||||
|
|
@ -17,6 +17,7 @@ arm*) gdb_target_cpu=arm ;;
|
|||
# OBSOLETE c[12]) gdb_target_cpu=convex ;;
|
||||
hppa*) gdb_target_cpu=pa ;;
|
||||
i[3456]86*) gdb_target_cpu=i386 ;;
|
||||
m68hc11*|m6811*) gdb_target_cpu=m68hc11 ;;
|
||||
m68*) gdb_target_cpu=m68k ;;
|
||||
m88*) gdb_target_cpu=m88k ;;
|
||||
mips*) gdb_target_cpu=mips ;;
|
||||
|
@ -133,6 +134,8 @@ ia64-*-linux*) gdb_target=linux ;;
|
|||
|
||||
m32r-*-elf*) gdb_target=m32r ;;
|
||||
|
||||
m68hc11*-*-*|m6811*-*-*) gdb_target=m68hc11 ;;
|
||||
|
||||
m68000-*-sunos3*) gdb_target=sun2os3 ;;
|
||||
m68000-*-sunos4*) gdb_target=sun2os4 ;;
|
||||
|
||||
|
@ -299,3 +302,9 @@ z8k-*-coff*) gdb_target=z8k ;;
|
|||
|
||||
esac
|
||||
|
||||
|
||||
# map GDB target onto multi-arch support
|
||||
|
||||
case "${gdb_target}" in
|
||||
m68hc11) gdb_multi_arch=yes ;;
|
||||
esac
|
||||
|
|
754
gdb/m68hc11-tdep.c
Normal file
754
gdb/m68hc11-tdep.c
Normal file
|
@ -0,0 +1,754 @@
|
|||
/* Target-dependent code for Motorola 68HC11
|
||||
Copyright (C) 1999, 2000 Free Software Foundation, Inc.
|
||||
Contributed by Stephane Carrez, stcarrez@worldnet.fr
|
||||
|
||||
This file is part of GDB.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||||
|
||||
#if 0
|
||||
/* FIXME: This is from tm-m68hc1.h */
|
||||
|
||||
#define GDB_TARGET_IS_M6811
|
||||
|
||||
/* Define the bit, byte, and word ordering of the machine. */
|
||||
|
||||
#define TARGET_BYTE_ORDER BIG_ENDIAN
|
||||
|
||||
/* Offset from address of function to start of its code.
|
||||
Zero on most machines. */
|
||||
|
||||
#define FUNCTION_START_OFFSET 0
|
||||
|
||||
#ifdef __STDC__ /* Forward decls for prototypes */
|
||||
struct frame_info;
|
||||
struct frame_saved_regs;
|
||||
struct type;
|
||||
struct value;
|
||||
#endif
|
||||
|
||||
/* Advance PC across any function entry prologue instructions
|
||||
to reach some "real" code. */
|
||||
|
||||
extern CORE_ADDR m68hc11_skip_prologue ();
|
||||
#define SKIP_PROLOGUE(ip) \
|
||||
m68hc11_skip_prologue (ip)
|
||||
|
||||
|
||||
/* Stack grows downward. */
|
||||
|
||||
#define INNER_THAN(lhs,rhs) ((lhs) < (rhs))
|
||||
|
||||
/* For a breakpoint, use "test". This is also the breakpoint
|
||||
instruction on the 68HC12. */
|
||||
#define BREAKPOINT {0x0}
|
||||
|
||||
/* If your kernel resets the pc after the trap happens you may need to
|
||||
define this before including this file. */
|
||||
#define DECR_PC_AFTER_BREAK 0
|
||||
|
||||
extern char *m68hc11_register_names[];
|
||||
#define REGISTER_NAME(i) m68hc11_register_names[i]
|
||||
|
||||
#define REGISTER_SIZE 2
|
||||
|
||||
/* Register numbers of various important registers.
|
||||
Note that some of these values are "real" register numbers,
|
||||
and correspond to the general registers of the machine,
|
||||
and some are "phony" register numbers which are too large
|
||||
to be actual register numbers as far as the user is concerned
|
||||
but do serve to get the desired values when passed to read_register. */
|
||||
|
||||
#define X_REGNUM 0
|
||||
#define D_REGNUM 1
|
||||
#define Y_REGNUM 2
|
||||
#define SP_REGNUM 3
|
||||
#define PC_REGNUM 4
|
||||
#define A_REGNUM 5
|
||||
#define B_REGNUM 6
|
||||
#define PSW_REGNUM 7
|
||||
#define Z_REGNUM 8
|
||||
#define FP_REGNUM 9
|
||||
#define TMP_REGNUM 10
|
||||
#define ZS_REGNUM 11
|
||||
#define XY_REGNUM 12
|
||||
#define ZD1_REGNUM 13
|
||||
#define ZD32_REGNUM (ZD1_REGNUM+31)
|
||||
|
||||
#define NUM_REGS (ZD32_REGNUM+1)
|
||||
|
||||
#include "opcode/m68hc11.h"
|
||||
|
||||
/* Say how much memory is needed to store a copy of the register set */
|
||||
#define REGISTER_BYTES ((NUM_REGS)*2)
|
||||
|
||||
/* Index within `registers' of the first byte of the space for
|
||||
register N. */
|
||||
|
||||
#define REGISTER_BYTE(N) ((N) * 2)
|
||||
|
||||
/* Number of bytes of storage in the actual machine representation
|
||||
for register N. */
|
||||
|
||||
#define REGISTER_RAW_SIZE(N) (2)
|
||||
|
||||
/* Number of bytes of storage in the program's representation
|
||||
for register N. */
|
||||
|
||||
#define REGISTER_VIRTUAL_SIZE(N) (2)
|
||||
|
||||
/* Largest value REGISTER_RAW_SIZE can have. */
|
||||
|
||||
#define MAX_REGISTER_RAW_SIZE 8
|
||||
|
||||
/* Largest value REGISTER_VIRTUAL_SIZE can have. */
|
||||
|
||||
#define MAX_REGISTER_VIRTUAL_SIZE 8
|
||||
|
||||
/* Return the GDB type object for the "standard" data type
|
||||
of data in register N. */
|
||||
|
||||
#define REGISTER_VIRTUAL_TYPE(N) builtin_type_uint16
|
||||
|
||||
/* Store the address of the place in which to copy the structure the
|
||||
subroutine will return. This is called from call_function.
|
||||
|
||||
We store structs through a pointer passed in D */
|
||||
|
||||
#define STORE_STRUCT_RETURN(ADDR, SP) \
|
||||
{ write_register (D_REGNUM, (ADDR)); }
|
||||
|
||||
|
||||
/* Write into appropriate registers a function return value
|
||||
of type TYPE, given in virtual format.
|
||||
|
||||
Things always get returned in D/X */
|
||||
|
||||
#define STORE_RETURN_VALUE(TYPE,VALBUF) \
|
||||
write_register_bytes (REGISTER_BYTE (D_REGNUM), VALBUF, TYPE_LENGTH (TYPE))
|
||||
|
||||
|
||||
/* Extract from an array REGBUF containing the (raw) register state
|
||||
the address in which a function should return its structure value,
|
||||
as a CORE_ADDR (or an expression that can be used as one). */
|
||||
|
||||
#define EXTRACT_STRUCT_VALUE_ADDRESS(REGBUF) (*(CORE_ADDR *)(REGBUF))
|
||||
|
||||
|
||||
/* Define other aspects of the stack frame.
|
||||
we keep a copy of the worked out return pc lying around, since it
|
||||
is a useful bit of info */
|
||||
|
||||
#define EXTRA_FRAME_INFO \
|
||||
int frame_reg; \
|
||||
CORE_ADDR return_pc; \
|
||||
CORE_ADDR dummy; \
|
||||
int frameless; \
|
||||
int size;
|
||||
|
||||
/* There's a mess in stack frame creation. See comments in blockframe.c
|
||||
near reference to INIT_FRAME_PC_FIRST. */
|
||||
|
||||
#define INIT_FRAME_PC(fromleaf, prev) /* nada */
|
||||
|
||||
#define INIT_FRAME_PC_FIRST(fromleaf, prev) \
|
||||
(prev)->pc = ((fromleaf) ? SAVED_PC_AFTER_CALL ((prev)->next) : \
|
||||
(prev)->next ? FRAME_SAVED_PC ((prev)->next) : read_pc ());
|
||||
|
||||
#define INIT_EXTRA_FRAME_INFO(fromleaf, fi) \
|
||||
m68hc11_init_extra_frame_info (fromleaf, fi)
|
||||
|
||||
extern void m68hc11_init_extra_frame_info (int fromleaf,
|
||||
struct frame_info * fi);
|
||||
|
||||
/* A macro that tells us whether the function invocation represented
|
||||
by FI does not have a frame on the stack associated with it. If it
|
||||
does not, FRAMELESS is set to 1, else 0. */
|
||||
|
||||
#define FRAMELESS_FUNCTION_INVOCATION(FI) \
|
||||
frameless_look_for_prologue (FI)
|
||||
|
||||
#define FRAME_CHAIN(FRAME) m68hc11_frame_chain (FRAME)
|
||||
#define FRAME_CHAIN_VALID(chain,frame) \
|
||||
((chain) != 0 && (frame) != 0)
|
||||
#define FRAME_SAVED_PC(FRAME) ((FRAME)->return_pc)
|
||||
#define FRAME_ARGS_ADDRESS(fi) (fi)->frame
|
||||
#define FRAME_LOCALS_ADDRESS(fi) (fi)->frame
|
||||
|
||||
#define SAVED_PC_AFTER_CALL(frame) m68hc11_saved_pc_after_call (frame)
|
||||
|
||||
/* Set VAL to the number of args passed to frame described by FI.
|
||||
Can set VAL to -1, meaning no way to tell. */
|
||||
/* We can't tell how many args there are */
|
||||
|
||||
#define FRAME_NUM_ARGS(fi) (-1)
|
||||
|
||||
/* Return number of bytes at start of arglist that are not really args. */
|
||||
|
||||
#define FRAME_ARGS_SKIP 0
|
||||
|
||||
|
||||
/* Put here the code to store, into a struct frame_saved_regs,
|
||||
the addresses of the saved registers of frame described by FRAME_INFO.
|
||||
This includes special registers such as pc and fp saved in special
|
||||
ways in the stack frame. sp is even more special:
|
||||
the address we return for it IS the sp for the next frame. */
|
||||
|
||||
#define FRAME_FIND_SAVED_REGS(frame_info, frame_saved_regs) \
|
||||
m68hc11_frame_find_saved_regs (frame_info, &(frame_saved_regs))
|
||||
|
||||
extern void m68hc11_frame_find_saved_regs (struct frame_info *,
|
||||
struct frame_saved_regs *);
|
||||
|
||||
#define CALL_DUMMY { 0 }
|
||||
#define PUSH_DUMMY_FRAME
|
||||
#define CALL_DUMMY_START_OFFSET 0
|
||||
#define CALL_DUMMY_BREAKPOINT_OFFSET (0)
|
||||
|
||||
extern CORE_ADDR m68hc11_call_dummy_address (void);
|
||||
#define CALL_DUMMY_ADDRESS() m68hc11_call_dummy_address ()
|
||||
|
||||
#define FIX_CALL_DUMMY(dummyname, pc, fun, nargs, args, type, gcc_p) \
|
||||
sp = m68hc11_fix_call_dummy (dummyname, pc, fun, nargs, args, type, gcc_p)
|
||||
|
||||
extern CORE_ADDR m68hc11_fix_call_dummy (char *, CORE_ADDR, CORE_ADDR,
|
||||
int, struct value **,
|
||||
struct type *, int);
|
||||
#define PUSH_ARGUMENTS(nargs, args, sp, struct_return, struct_addr) \
|
||||
sp = m68hc11_push_arguments ((nargs), (args), (sp), \
|
||||
(struct_return), (struct_addr))
|
||||
extern CORE_ADDR m68hc11_push_arguments (int, struct value **,
|
||||
CORE_ADDR, int, CORE_ADDR);
|
||||
|
||||
|
||||
/* Extract from an array REGBUF containing the (raw) register state
|
||||
a function return value of type TYPE, and copy that, in virtual format,
|
||||
into VALBUF. */
|
||||
|
||||
#define EXTRACT_RETURN_VALUE(TYPE,REGBUF,VALBUF) \
|
||||
m68hc11_extract_return_value(TYPE, REGBUF, VALBUF)
|
||||
extern void m68hc11_extract_return_value (struct type *, char *, char *);
|
||||
|
||||
|
||||
/* Discard from the stack the innermost frame,
|
||||
restoring all saved registers. */
|
||||
#define POP_FRAME m68hc11_pop_frame();
|
||||
extern void m68hc11_pop_frame (void);
|
||||
|
||||
|
||||
/* Number of bits in the appropriate type. */
|
||||
|
||||
#define TARGET_INT_BIT (2 * TARGET_CHAR_BIT)
|
||||
#define TARGET_PTR_BIT (2 * TARGET_CHAR_BIT)
|
||||
#define TARGET_DOUBLE_BIT (4 * TARGET_CHAR_BIT)
|
||||
#define TARGET_LONG_DOUBLE_BIT (8 * TARGET_CHAR_BIT)
|
||||
|
||||
#endif
|
||||
|
||||
#include "defs.h"
|
||||
#include "frame.h"
|
||||
#include "obstack.h"
|
||||
#include "symtab.h"
|
||||
#include "gdbtypes.h"
|
||||
#include "gdbcmd.h"
|
||||
#include "gdbcore.h"
|
||||
#include "gdb_string.h"
|
||||
#include "value.h"
|
||||
#include "inferior.h"
|
||||
#include "dis-asm.h"
|
||||
#include "symfile.h"
|
||||
#include "objfiles.h"
|
||||
|
||||
/* NOTE: This port is not finished. Several operations are not implemented
|
||||
and will raise an error. Most of these functions concern the calling
|
||||
of a function by GDB itself (command 'call') and retrieving data pushed
|
||||
on the stack. */
|
||||
|
||||
void m68hc11_frame_find_saved_regs (struct frame_info *fi,
|
||||
struct frame_saved_regs *fsr);
|
||||
static void m68hc11_pop_dummy_frame (struct frame_info *fi);
|
||||
|
||||
/* Table of registers for 68HC11. This includes the hard registers
|
||||
and the pseudo hard registers used by GCC. */
|
||||
char*
|
||||
m68hc11_register_names[] =
|
||||
{
|
||||
"x", "d", "y", "sp", "pc", "a", "b",
|
||||
"ccr", "z", "frame","tmp", "zs", "xy",
|
||||
"ZD1", "ZD2", "ZD3", "ZD4", "ZD5", "ZD6", "ZD7",
|
||||
"ZD8", "ZD9", "ZD10", "ZD11", "ZD12", "ZD13", "ZD14",
|
||||
"ZD15", "ZD16", "ZD17", "ZD18", "ZD19", "ZD20", "ZD21",
|
||||
"ZD22", "ZD23", "ZD24", "ZD25", "ZD26", "ZD27", "ZD28",
|
||||
"ZD29", "ZD30", "ZD31", "ZD32"
|
||||
};
|
||||
|
||||
static int reg_last = 32 * 2 + 6;
|
||||
static int frame_index = 6;
|
||||
|
||||
/* Raise an error for operations which are not yet provided. */
|
||||
static void
|
||||
m68hc11_not_yet (const char *operation)
|
||||
{
|
||||
error ("Operation '%s' is not yet implemented\n", operation);
|
||||
}
|
||||
|
||||
/* Immediately after a function call, return the saved pc before the frame
|
||||
is setup. For sun3's, we check for the common case of being inside of a
|
||||
system call, and if so, we know that Sun pushes the call # on the stack
|
||||
prior to doing the trap. */
|
||||
|
||||
CORE_ADDR
|
||||
m68hc11_saved_pc_after_call (struct frame_info *frame)
|
||||
{
|
||||
unsigned addr = frame->frame + 1 + 2;
|
||||
|
||||
addr = read_register (SP_REGNUM) + 1;
|
||||
addr &= 0x0ffff;
|
||||
return read_memory_integer (addr, 2) & 0x0FFFF;
|
||||
}
|
||||
|
||||
/* Discard from the stack the innermost frame, restoring all saved
|
||||
registers. */
|
||||
|
||||
void
|
||||
m68hc11_pop_frame ()
|
||||
{
|
||||
m68hc11_not_yet ("m68hc11_pop_frame");
|
||||
}
|
||||
|
||||
/* Analyze the function prologue to find some information
|
||||
about the function:
|
||||
- the PC of the first line (for m68hc11_skip_prologue)
|
||||
- the offset of the previous frame saved address (from current frame)
|
||||
- the soft registers which are pushed. */
|
||||
static void
|
||||
m68hc11_guess_from_prologue (CORE_ADDR pc, CORE_ADDR* first_line,
|
||||
int* frame_offset, int* pushed_regs)
|
||||
{
|
||||
CORE_ADDR func_end;
|
||||
unsigned char op0, op1, op2;
|
||||
int add_sp_mode;
|
||||
int sp_adjust;
|
||||
int size;
|
||||
int found_frame_point;
|
||||
int found_load;
|
||||
CORE_ADDR first_pc;
|
||||
int reg_saved;
|
||||
|
||||
first_pc = get_pc_function_start (pc);
|
||||
size = 0;
|
||||
|
||||
if (first_pc == 0)
|
||||
{
|
||||
*frame_offset = 0;
|
||||
*pushed_regs = 0;
|
||||
*first_line = pc;
|
||||
return;
|
||||
}
|
||||
|
||||
#define OP_PAGE2 (0x18)
|
||||
#define OP_LDX (0xde)
|
||||
#define OP_LDY (0xde)
|
||||
#define OP_PSHX (0x3c)
|
||||
#define OP_PSHY (0x3c)
|
||||
#define OP_STS (0x9f)
|
||||
#define OP_TSX (0x30)
|
||||
#define OP_TSY (0x30)
|
||||
#define OP_XGDX (0x8f)
|
||||
#define OP_XGDY (0x8f)
|
||||
#define OP_ADDD (0xc3)
|
||||
#define OP_TXS (0x35)
|
||||
#define OP_TYS (0x35)
|
||||
|
||||
/* The 68hc11 stack is as follows:
|
||||
|
||||
|
||||
| |
|
||||
+-----------+
|
||||
| |
|
||||
| args |
|
||||
| |
|
||||
+-----------+
|
||||
| PC-return |
|
||||
+-----------+
|
||||
| Old frame |
|
||||
+-----------+
|
||||
| |
|
||||
| Locals |
|
||||
| |
|
||||
+-----------+ <--- current frame
|
||||
| |
|
||||
|
||||
With most processors (like 68K) the previous frame can be computed
|
||||
easily because it is always at a fixed offset (see link/unlink).
|
||||
That is, locals are accessed with negative offsets, arguments are
|
||||
accessed with positive ones. Since 68hc11 only supports offsets
|
||||
in the range [0..255], the frame is defined at the bottom of
|
||||
locals (see picture).
|
||||
|
||||
The purpose of the analysis made here is to find out the size
|
||||
of locals in this function. An alternative to this is to use
|
||||
DWARF2 info. This would be better but I don't know how to
|
||||
access dwarf2 debug from this function.
|
||||
|
||||
Walk from the function entry point to the point where we save
|
||||
the frame. While walking instructions, compute the size of bytes
|
||||
which are pushed. This gives us the index to access the previous
|
||||
frame.
|
||||
|
||||
We limit the search to 128 bytes so that the algorithm is bounded
|
||||
in case of random and wrong code. We also stop and abort if
|
||||
we find an instruction which is not supposed to appear in the
|
||||
prologue (as generated by gcc 2.95, 2.96).
|
||||
*/
|
||||
pc = first_pc;
|
||||
func_end = pc + 128;
|
||||
add_sp_mode = 0;
|
||||
found_frame_point = 0;
|
||||
while (pc + 2 < func_end)
|
||||
{
|
||||
op0 = read_memory_unsigned_integer (pc, 1);
|
||||
op1 = read_memory_unsigned_integer (pc + 1, 1);
|
||||
op2 = read_memory_unsigned_integer (pc + 2, 1);
|
||||
|
||||
/* ldx *frame */
|
||||
if (op0 == OP_LDX && op1 == frame_index)
|
||||
{
|
||||
pc += 2;
|
||||
}
|
||||
|
||||
/* ldy *frame */
|
||||
else if (op0 == OP_PAGE2 && op1 == OP_LDY && op2 == frame_index)
|
||||
{
|
||||
pc += 3;
|
||||
}
|
||||
|
||||
/* pshx */
|
||||
else if (op0 == OP_PSHX)
|
||||
{
|
||||
pc += 1;
|
||||
size += 2;
|
||||
}
|
||||
|
||||
/* pshy */
|
||||
else if (op0 == OP_PAGE2 && op1 == OP_PSHX)
|
||||
{
|
||||
pc += 2;
|
||||
size += 2;
|
||||
}
|
||||
|
||||
/* sts *frame */
|
||||
else if (op0 == OP_STS && op1 == frame_index)
|
||||
{
|
||||
found_frame_point = 1;
|
||||
pc += 2;
|
||||
break;
|
||||
}
|
||||
else if (op0 == OP_TSX && op1 == OP_XGDX)
|
||||
{
|
||||
add_sp_mode = 1;
|
||||
pc += 2;
|
||||
}
|
||||
else if (op0 == OP_PAGE2 && op1 == OP_TSY && op2 == OP_PAGE2)
|
||||
{
|
||||
op0 = read_memory_unsigned_integer (pc + 3, 1);
|
||||
if (op0 != OP_XGDY)
|
||||
break;
|
||||
|
||||
add_sp_mode = 2;
|
||||
pc += 4;
|
||||
}
|
||||
else if (add_sp_mode && op0 == OP_ADDD)
|
||||
{
|
||||
sp_adjust = read_memory_unsigned_integer (pc + 1, 2);
|
||||
if (sp_adjust & 0x8000)
|
||||
sp_adjust |= 0xffff0000L;
|
||||
|
||||
sp_adjust = -sp_adjust;
|
||||
add_sp_mode |= 4;
|
||||
pc += 3;
|
||||
}
|
||||
else if (add_sp_mode == (1 | 4) && op0 == OP_XGDX
|
||||
&& op1 == OP_TXS)
|
||||
{
|
||||
size += sp_adjust;
|
||||
pc += 2;
|
||||
add_sp_mode = 0;
|
||||
}
|
||||
else if (add_sp_mode == (2 | 4) && op0 == OP_PAGE2
|
||||
&& op1 == OP_XGDY && op2 == OP_PAGE2)
|
||||
{
|
||||
op0 = read_memory_unsigned_integer (pc + 3, 1);
|
||||
if (op0 != OP_TYS)
|
||||
break;
|
||||
|
||||
size += sp_adjust;
|
||||
pc += 4;
|
||||
add_sp_mode = 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (found_frame_point == 0)
|
||||
{
|
||||
*frame_offset = 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
*frame_offset = size;
|
||||
}
|
||||
|
||||
/* Now, look forward to see how many registers are pushed on the stack.
|
||||
We look only for soft registers so there must be a first LDX *REG
|
||||
before a PSHX. */
|
||||
reg_saved = 0;
|
||||
found_load = 0;
|
||||
while (pc + 2 < func_end)
|
||||
{
|
||||
op0 = read_memory_unsigned_integer (pc, 1);
|
||||
op1 = read_memory_unsigned_integer (pc + 1, 1);
|
||||
op2 = read_memory_unsigned_integer (pc + 2, 1);
|
||||
if (op0 == OP_LDX && op1 > frame_index && op1 <= reg_last)
|
||||
{
|
||||
found_load = 1;
|
||||
pc += 2;
|
||||
}
|
||||
else if (op0 == OP_PAGE2 && op1 == OP_LDY
|
||||
&& op2 > frame_index && op2 < reg_last)
|
||||
{
|
||||
found_load = 1;
|
||||
pc += 3;
|
||||
}
|
||||
else if (op0 == OP_PSHX)
|
||||
{
|
||||
/* If there was no load, this is a push for a function call. */
|
||||
if (found_load == 0)
|
||||
break;
|
||||
|
||||
reg_saved += 2;
|
||||
pc += 1;
|
||||
found_load = 0;
|
||||
}
|
||||
else if (op0 == OP_PAGE2 && op1 == OP_PSHY)
|
||||
{
|
||||
if (found_load == 0)
|
||||
break;
|
||||
|
||||
reg_saved += 2;
|
||||
pc += 2;
|
||||
found_load = 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
*pushed_regs = reg_saved;
|
||||
*first_line = pc;
|
||||
}
|
||||
|
||||
|
||||
CORE_ADDR
|
||||
m68hc11_skip_prologue (CORE_ADDR pc)
|
||||
{
|
||||
CORE_ADDR func_addr, func_end;
|
||||
struct symtab_and_line sal;
|
||||
int frame_offset;
|
||||
int pushed_args;
|
||||
|
||||
/* If we have line debugging information, then the end of the. */
|
||||
/* prologue should be the first assembly instruction of the
|
||||
first source line. */
|
||||
if (find_pc_partial_function (pc, NULL, &func_addr, &func_end))
|
||||
{
|
||||
sal = find_pc_line (func_addr, 0);
|
||||
if (sal.end && sal.end < func_end)
|
||||
return sal.end;
|
||||
}
|
||||
|
||||
m68hc11_guess_from_prologue (pc, &pc, &frame_offset, &pushed_args);
|
||||
return pc;
|
||||
}
|
||||
|
||||
/* Given a GDB frame, determine the address of the calling function's frame.
|
||||
This will be used to create a new GDB frame struct, and then
|
||||
INIT_EXTRA_FRAME_INFO and INIT_FRAME_PC will be called for the new frame.
|
||||
*/
|
||||
|
||||
CORE_ADDR
|
||||
m68hc11_frame_chain (struct frame_info *frame)
|
||||
{
|
||||
unsigned addr;
|
||||
|
||||
if (frame->return_pc == 0 || inside_entry_file(frame->return_pc))
|
||||
return (CORE_ADDR)0;
|
||||
|
||||
if (frame->frame == 0)
|
||||
{
|
||||
return (CORE_ADDR) 0;
|
||||
}
|
||||
|
||||
addr = frame->frame + frame->size + 1 - 2;
|
||||
addr = read_memory_unsigned_integer (addr, 2) & 0x0FFFF;
|
||||
if (addr == 0)
|
||||
{
|
||||
return (CORE_ADDR)0;
|
||||
}
|
||||
|
||||
return addr;
|
||||
}
|
||||
|
||||
/* Put here the code to store, into a struct frame_saved_regs, the
|
||||
addresses of the saved registers of frame described by FRAME_INFO.
|
||||
This includes special registers such as pc and fp saved in special
|
||||
ways in the stack frame. sp is even more special: the address we
|
||||
return for it IS the sp for the next frame. */
|
||||
void
|
||||
m68hc11_frame_find_saved_regs (struct frame_info *fi,
|
||||
struct frame_saved_regs *fsr)
|
||||
{
|
||||
CORE_ADDR pc;
|
||||
int saved;
|
||||
|
||||
pc = fi->pc;
|
||||
memset (fsr, 0, sizeof (*fsr));
|
||||
m68hc11_guess_from_prologue (pc, &pc, &fi->size, &saved);
|
||||
}
|
||||
|
||||
void
|
||||
m68hc11_init_extra_frame_info (int fromleaf, struct frame_info *fi)
|
||||
{
|
||||
unsigned addr;
|
||||
struct frame_saved_regs dummy;
|
||||
|
||||
m68hc11_frame_find_saved_regs (fi, &dummy);
|
||||
|
||||
if (fromleaf)
|
||||
{
|
||||
fi->return_pc = m68hc11_saved_pc_after_call (fi);
|
||||
}
|
||||
else
|
||||
{
|
||||
addr = fi->frame + fi->size + 1;
|
||||
fi->return_pc = read_memory_unsigned_integer (addr, 2) & 0x0ffff;
|
||||
|
||||
#if 0
|
||||
printf ("Pc@0x%04x, FR 0x%04x, size %d, read ret @0x%04x -> 0x%04x\n",
|
||||
fi->pc,
|
||||
fi->frame, fi->size,
|
||||
addr & 0x0ffff,
|
||||
fi->return_pc);
|
||||
#endif
|
||||
}
|
||||
}
|
||||
|
||||
/* Same as 'info reg' but prints the registers in a different way. */
|
||||
static void
|
||||
show_regs (char *args, int from_tty)
|
||||
{
|
||||
int ccr = read_register (PSW_REGNUM);
|
||||
int i;
|
||||
|
||||
printf_filtered ("PC=%04x SP=%04x FP=%04x CCR=%02x %c%c%c%c%c%c%c%c\n",
|
||||
read_register (PC_REGNUM),
|
||||
read_register (SP_REGNUM),
|
||||
read_register (FP_REGNUM),
|
||||
ccr,
|
||||
ccr & M6811_S_BIT ? 'S' : '-',
|
||||
ccr & M6811_X_BIT ? 'X' : '-',
|
||||
ccr & M6811_H_BIT ? 'H' : '-',
|
||||
ccr & M6811_I_BIT ? 'I' : '-',
|
||||
ccr & M6811_N_BIT ? 'N' : '-',
|
||||
ccr & M6811_Z_BIT ? 'Z' : '-',
|
||||
ccr & M6811_V_BIT ? 'V' : '-',
|
||||
ccr & M6811_C_BIT ? 'C' : '-');
|
||||
|
||||
printf_filtered ("D=%04x IX=%04x IY=%04x\n",
|
||||
read_register (D_REGNUM),
|
||||
read_register (X_REGNUM),
|
||||
read_register (Y_REGNUM));
|
||||
for (i = ZD1_REGNUM; i <= ZD32_REGNUM; i++)
|
||||
{
|
||||
printf_filtered ("ZD%d=%04x",
|
||||
i - ZD1_REGNUM + 1,
|
||||
read_register (i));
|
||||
if (((i - ZD1_REGNUM) % 8) == 7)
|
||||
printf_filtered ("\n");
|
||||
else
|
||||
printf_filtered (" ");
|
||||
}
|
||||
}
|
||||
|
||||
CORE_ADDR
|
||||
m68hc11_fix_call_dummy (char *dummyname,
|
||||
CORE_ADDR start_sp,
|
||||
CORE_ADDR fun,
|
||||
int nargs,
|
||||
value_ptr *args,
|
||||
struct type *type,
|
||||
int gcc_p)
|
||||
{
|
||||
m68hc11_not_yet ("m68hc11_fix_call_dummy");
|
||||
return 0;
|
||||
}
|
||||
|
||||
static void
|
||||
m68hc11_pop_dummy_frame (struct frame_info *fi)
|
||||
{
|
||||
m68hc11_not_yet ("m68hc11_pop_dummy_frame");
|
||||
}
|
||||
|
||||
|
||||
CORE_ADDR
|
||||
m68hc11_push_arguments (int nargs,
|
||||
value_ptr *args,
|
||||
CORE_ADDR sp,
|
||||
int struct_return,
|
||||
CORE_ADDR struct_addr)
|
||||
{
|
||||
m68hc11_not_yet ("m68hc11_push_arguments");
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
CORE_ADDR
|
||||
m68hc11_call_dummy_address ()
|
||||
{
|
||||
m68hc11_not_yet ("m68hc11_call_dummy_address");
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* Given a return value in `regbuf' with a type `valtype',
|
||||
extract and copy its value into `valbuf'. */
|
||||
|
||||
void
|
||||
m68hc11_extract_return_value (struct type *valtype,
|
||||
char *regbuf,
|
||||
char *valbuf)
|
||||
{
|
||||
m68hc11_not_yet ("m68hc11_extract_return_value");
|
||||
}
|
||||
|
||||
void
|
||||
_initialize_m68hc11_tdep ()
|
||||
{
|
||||
tm_print_insn = print_insn_m68hc11;
|
||||
|
||||
add_com ("regs", class_vars, show_regs, "Print all registers");
|
||||
}
|
||||
|
Loading…
Reference in a new issue