aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorAndrew Cagney <cagney@redhat.com>2000-07-27 07:18:32 +0000
committerAndrew Cagney <cagney@redhat.com>2000-07-27 07:18:32 +0000
commit78073dd899b80be1a70ad75d5c3fc9d538ad9f86 (patch)
treebe9d80244ac26b8bbacfd407cb6cc958752e87a7 /gdb
parent597f589d01ce29495bf7b5b23e758bb5a0e18433 (diff)
downloadgdb-78073dd899b80be1a70ad75d5c3fc9d538ad9f86.zip
gdb-78073dd899b80be1a70ad75d5c3fc9d538ad9f86.tar.gz
gdb-78073dd899b80be1a70ad75d5c3fc9d538ad9f86.tar.bz2
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.
Diffstat (limited to 'gdb')
-rw-r--r--gdb/ChangeLog9
-rw-r--r--gdb/config/m68hc11/m68hc11.mt6
-rw-r--r--gdb/configure.tgt9
-rw-r--r--gdb/m68hc11-tdep.c754
4 files changed, 778 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index b0e4540..522ddff 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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
diff --git a/gdb/config/m68hc11/m68hc11.mt b/gdb/config/m68hc11/m68hc11.mt
new file mode 100644
index 0000000..5e25eee
--- /dev/null
+++ b/gdb/config/m68hc11/m68hc11.mt
@@ -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
+
diff --git a/gdb/configure.tgt b/gdb/configure.tgt
index 5d4395a..9277e1e 100644
--- a/gdb/configure.tgt
+++ b/gdb/configure.tgt
@@ -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
diff --git a/gdb/m68hc11-tdep.c b/gdb/m68hc11-tdep.c
new file mode 100644
index 0000000..82d71b2
--- /dev/null
+++ b/gdb/m68hc11-tdep.c
@@ -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");
+}
+