61a0d0227a
* ppc-bdm.c (bdm_ppc_wait): stop printfing ecr, der
* ocd.c: initialize remote_timeout
(ocd_wait): while looping, call ocd_do_command with OCD_AYT
(ocd_get_packet): remove find_packet goto. If there isn't
an 0x55 at the start, something is quite wrong so error out
instead of advancing in the packet and trying again. If checksum
is invalid, print error message instead of trying again.
* ser-ocd.c (ocd_readchar): error if we attempt to read past
the end of the from_wiggler_buffer.
359 lines
9.8 KiB
C
359 lines
9.8 KiB
C
/* Remote target communications for the Macraigor Systems BDM Wiggler
|
||
talking to a Motorola PPC 8xx ADS board
|
||
Copyright 1996, 1997 Free Software Foundation, Inc.
|
||
|
||
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. */
|
||
|
||
#include "defs.h"
|
||
#include "gdbcore.h"
|
||
#include "gdb_string.h"
|
||
#include <fcntl.h>
|
||
#include "frame.h"
|
||
#include "inferior.h"
|
||
#include "bfd.h"
|
||
#include "symfile.h"
|
||
#include "target.h"
|
||
#include "wait.h"
|
||
#include "gdbcmd.h"
|
||
#include "objfiles.h"
|
||
#include "gdb-stabs.h"
|
||
#include <sys/types.h>
|
||
#include <signal.h>
|
||
#include "serial.h"
|
||
#include "ocd.h"
|
||
|
||
static void bdm_ppc_open PARAMS ((char *name, int from_tty));
|
||
|
||
static int bdm_ppc_wait PARAMS ((int pid,
|
||
struct target_waitstatus *target_status));
|
||
|
||
static void bdm_ppc_fetch_registers PARAMS ((int regno));
|
||
|
||
static void bdm_ppc_store_registers PARAMS ((int regno));
|
||
|
||
extern struct target_ops bdm_ppc_ops; /* Forward decl */
|
||
|
||
/*#define BDM_NUM_REGS 71*/
|
||
#define BDM_NUM_REGS 24
|
||
|
||
#define BDM_REGMAP \
|
||
2048, 2049, 2050, 2051, 2052, 2053, 2054, 2055, /* r0-r7 */ \
|
||
2056, 2057, 2058, 2059, 2060, 2061, 2062, 2063, /* r8-r15 */ \
|
||
2064, 2065, 2066, 2067, 2068, 2069, 2070, 2071, /* r16-r23 */ \
|
||
2072, 2073, 2074, 2075, 2076, 2077, 2078, 2079, /* r24-r31 */ \
|
||
\
|
||
2080, 2082, 2084, 2086, 2088, 2090, 2092, 2094, /* fp0->fp8 */ \
|
||
2096, 2098, 2100, 2102, 2104, 2106, 2108, 2110, /* fp0->fp8 */ \
|
||
2112, 2114, 2116, 2118, 2120, 2122, 2124, 2126, /* fp0->fp8 */ \
|
||
2128, 2130, 2132, 2134, 2136, 2138, 2140, 2142, /* fp0->fp8 */ \
|
||
\
|
||
26, /* pc (SRR0 (SPR 26)) */ \
|
||
2146, /* ps (MSR) */ \
|
||
2144, /* cnd (CR) */ \
|
||
8, /* lr (SPR 8) */ \
|
||
9, /* cnt (CTR (SPR 9)) */ \
|
||
1, /* xer (SPR 1) */ \
|
||
0, /* mq (SPR 0) */
|
||
|
||
|
||
char nowatchdog[4] = {0xff,0xff,0xff,0x88};
|
||
|
||
/* Open a connection to a remote debugger.
|
||
NAME is the filename used for communication. */
|
||
|
||
static void
|
||
bdm_ppc_open (name, from_tty)
|
||
char *name;
|
||
int from_tty;
|
||
{
|
||
CORE_ADDR watchdogaddr = 0xff000004;
|
||
|
||
ocd_open (name, from_tty, OCD_TARGET_MOTO_PPC, &bdm_ppc_ops);
|
||
|
||
/* We want interrupts to drop us into debugging mode. */
|
||
/* Modify the DER register to accomplish this. */
|
||
ocd_write_bdm_register (149, 0x20024000);
|
||
|
||
/* Disable watchdog timer on the board */
|
||
ocd_write_bytes (watchdogaddr, nowatchdog, 4);
|
||
}
|
||
|
||
/* Wait until the remote machine stops, then return,
|
||
storing status in STATUS just as `wait' would.
|
||
Returns "pid" (though it's not clear what, if anything, that
|
||
means in the case of this target). */
|
||
|
||
static int
|
||
bdm_ppc_wait (pid, target_status)
|
||
int pid;
|
||
struct target_waitstatus *target_status;
|
||
{
|
||
int stop_reason;
|
||
|
||
target_status->kind = TARGET_WAITKIND_STOPPED;
|
||
|
||
stop_reason = ocd_wait ();
|
||
|
||
if (stop_reason)
|
||
{
|
||
target_status->value.sig = TARGET_SIGNAL_INT;
|
||
return inferior_pid;
|
||
}
|
||
|
||
target_status->value.sig = TARGET_SIGNAL_TRAP; /* XXX for now */
|
||
|
||
#if 0
|
||
{
|
||
unsigned long ecr, der;
|
||
|
||
ecr = ocd_read_bdm_register (148); /* Read the exception cause register */
|
||
der = ocd_read_bdm_register (149); /* Read the debug enables register */
|
||
fprintf_unfiltered (gdb_stdout, "ecr = 0x%x, der = 0x%x\n", ecr, der);
|
||
}
|
||
#endif
|
||
|
||
return inferior_pid;
|
||
}
|
||
|
||
static int bdm_regmap[] = {BDM_REGMAP};
|
||
|
||
/* Read the remote registers into regs.
|
||
Fetch register REGNO, or all registers if REGNO == -1
|
||
|
||
The Wiggler uses the following codes to access the registers:
|
||
|
||
0 -> 1023 SPR 0 -> 1023
|
||
0 - SPR 0 - MQ
|
||
1 - SPR 1 - XER
|
||
8 - SPR 8 - LR
|
||
9 - SPR 9 - CTR (known as cnt in GDB)
|
||
26 - SPR 26 - SRR0 - pc
|
||
1024 -> 2047 DCR 0 -> DCR 1023 (IBM PPC 4xx only)
|
||
2048 -> 2079 R0 -> R31
|
||
2080 -> 2143 FP0 -> FP31 (64 bit regs) (IBM PPC 5xx only)
|
||
2144 CR (known as cnd in GDB)
|
||
2145 FPCSR
|
||
2146 MSR (known as ps in GDB)
|
||
*/
|
||
|
||
static void
|
||
bdm_ppc_fetch_registers (regno)
|
||
int regno;
|
||
{
|
||
int i;
|
||
unsigned char *regs, *beginregs, *endregs, *almostregs;
|
||
unsigned char midregs[32];
|
||
unsigned char mqreg[1];
|
||
int first_regno, last_regno;
|
||
int first_bdm_regno, last_bdm_regno;
|
||
int reglen, beginreglen, endreglen;
|
||
|
||
#if 1
|
||
for (i = 0; i < (FPLAST_REGNUM - FP0_REGNUM + 1); i++)
|
||
{
|
||
midregs[i] = -1;
|
||
}
|
||
mqreg[0] = -1;
|
||
#endif
|
||
|
||
if (regno == -1)
|
||
{
|
||
first_regno = 0;
|
||
last_regno = NUM_REGS - 1;
|
||
|
||
first_bdm_regno = 0;
|
||
last_bdm_regno = BDM_NUM_REGS - 1;
|
||
}
|
||
else
|
||
{
|
||
first_regno = regno;
|
||
last_regno = regno;
|
||
|
||
first_bdm_regno = bdm_regmap [regno];
|
||
last_bdm_regno = bdm_regmap [regno];
|
||
}
|
||
|
||
if (first_bdm_regno == -1)
|
||
{
|
||
supply_register (first_regno, NULL);
|
||
return; /* Unsupported register */
|
||
}
|
||
|
||
#if 1
|
||
/* Can't ask for floating point regs on ppc 8xx, also need to
|
||
avoid asking for the mq register. */
|
||
if (first_regno == last_regno) /* only want one reg */
|
||
{
|
||
/* printf("Asking for register %d\n", first_regno); */
|
||
|
||
/* if asking for an invalid register */
|
||
if ((first_regno == MQ_REGNUM) ||
|
||
((first_regno >= FP0_REGNUM) && (first_regno <= FPLAST_REGNUM)))
|
||
{
|
||
/* printf("invalid reg request!\n"); */
|
||
supply_register (first_regno, NULL);
|
||
return; /* Unsupported register */
|
||
}
|
||
else
|
||
{
|
||
regs = ocd_read_bdm_registers (first_bdm_regno,
|
||
last_bdm_regno, ®len);
|
||
}
|
||
}
|
||
else /* want all regs */
|
||
{
|
||
/* printf("Asking for registers %d to %d\n", first_regno, last_regno); */
|
||
beginregs = ocd_read_bdm_registers (first_bdm_regno,
|
||
FP0_REGNUM - 1, &beginreglen);
|
||
endregs = (strcat (midregs,
|
||
ocd_read_bdm_registers (FPLAST_REGNUM + 1,
|
||
last_bdm_regno - 1, &endreglen)));
|
||
almostregs = (strcat (beginregs, endregs));
|
||
regs = (strcat (almostregs, mqreg));
|
||
reglen = beginreglen + 32 + endreglen + 1;
|
||
}
|
||
|
||
#endif
|
||
#if 0
|
||
regs = ocd_read_bdm_registers (first_bdm_regno, last_bdm_regno, ®len);
|
||
#endif
|
||
|
||
for (i = first_regno; i <= last_regno; i++)
|
||
{
|
||
int bdm_regno, regoffset;
|
||
|
||
bdm_regno = bdm_regmap [i];
|
||
if (bdm_regno != -1)
|
||
{
|
||
regoffset = bdm_regno - first_bdm_regno;
|
||
|
||
if (regoffset >= reglen / 4)
|
||
continue;
|
||
|
||
supply_register (i, regs + 4 * regoffset);
|
||
}
|
||
else
|
||
supply_register (i, NULL); /* Unsupported register */
|
||
}
|
||
}
|
||
|
||
/* Store register REGNO, or all registers if REGNO == -1, from the contents
|
||
of REGISTERS. FIXME: ignores errors. */
|
||
|
||
static void
|
||
bdm_ppc_store_registers (regno)
|
||
int regno;
|
||
{
|
||
int i;
|
||
int first_regno, last_regno;
|
||
int first_bdm_regno, last_bdm_regno;
|
||
|
||
if (regno == -1)
|
||
{
|
||
first_regno = 0;
|
||
last_regno = NUM_REGS - 1;
|
||
|
||
first_bdm_regno = 0;
|
||
last_bdm_regno = BDM_NUM_REGS - 1;
|
||
}
|
||
else
|
||
{
|
||
first_regno = regno;
|
||
last_regno = regno;
|
||
|
||
first_bdm_regno = bdm_regmap [regno];
|
||
last_bdm_regno = bdm_regmap [regno];
|
||
}
|
||
|
||
if (first_bdm_regno == -1)
|
||
return; /* Unsupported register */
|
||
|
||
for (i = first_regno; i <= last_regno; i++)
|
||
{
|
||
int bdm_regno;
|
||
|
||
bdm_regno = bdm_regmap [i];
|
||
|
||
/* only attempt to write if it's a valid ppc 8xx register */
|
||
/* (need to avoid FP regs and MQ reg) */
|
||
if ((i != MQ_REGNUM) && ((i < FP0_REGNUM) || (i > FPLAST_REGNUM)))
|
||
{
|
||
/* printf("write valid reg %d\n", bdm_regno); */
|
||
ocd_write_bdm_registers (bdm_regno, registers + REGISTER_BYTE (i), 4);
|
||
}
|
||
/*
|
||
else if (i == MQ_REGNUM)
|
||
printf("don't write invalid reg %d (MQ_REGNUM)\n", bdm_regno);
|
||
else
|
||
printf("don't write invalid reg %d\n", bdm_regno);
|
||
*/
|
||
}
|
||
}
|
||
|
||
/* Define the target subroutine names */
|
||
|
||
struct target_ops bdm_ppc_ops = {
|
||
"ocd", /* to_shortname */
|
||
"Remote target with On-Chip Debugging", /* to_longname */
|
||
"Use a remote target with On-Chip Debugging. To use a target box,\n\
|
||
specify the serial device it is connected to (e.g. /dev/ttya). To use\n\
|
||
a wiggler, specify wiggler and then the port it is connected to\n\
|
||
(e.g. wiggler lpt1).", /* to_doc */
|
||
bdm_ppc_open, /* to_open */
|
||
ocd_close, /* to_close */
|
||
NULL, /* to_attach */
|
||
ocd_detach, /* to_detach */
|
||
ocd_resume, /* to_resume */
|
||
bdm_ppc_wait, /* to_wait */
|
||
bdm_ppc_fetch_registers, /* to_fetch_registers */
|
||
bdm_ppc_store_registers, /* to_store_registers */
|
||
ocd_prepare_to_store, /* to_prepare_to_store */
|
||
ocd_xfer_memory, /* to_xfer_memory */
|
||
ocd_files_info, /* to_files_info */
|
||
ocd_insert_breakpoint, /* to_insert_breakpoint */
|
||
ocd_remove_breakpoint, /* to_remove_breakpoint */
|
||
NULL, /* to_terminal_init */
|
||
NULL, /* to_terminal_inferior */
|
||
NULL, /* to_terminal_ours_for_output */
|
||
NULL, /* to_terminal_ours */
|
||
NULL, /* to_terminal_info */
|
||
ocd_kill, /* to_kill */
|
||
ocd_load, /* to_load */
|
||
NULL, /* to_lookup_symbol */
|
||
ocd_create_inferior, /* to_create_inferior */
|
||
ocd_mourn, /* to_mourn_inferior */
|
||
0, /* to_can_run */
|
||
0, /* to_notice_signals */
|
||
ocd_thread_alive, /* to_thread_alive */
|
||
ocd_stop, /* to_stop */
|
||
process_stratum, /* to_stratum */
|
||
NULL, /* to_next */
|
||
1, /* to_has_all_memory */
|
||
1, /* to_has_memory */
|
||
1, /* to_has_stack */
|
||
1, /* to_has_registers */
|
||
1, /* to_has_execution */
|
||
NULL, /* sections */
|
||
NULL, /* sections_end */
|
||
OPS_MAGIC /* to_magic */
|
||
};
|
||
|
||
void
|
||
_initialize_bdm_ppc ()
|
||
{
|
||
add_target (&bdm_ppc_ops);
|
||
}
|