gdb/remote-m32r-sdi.c - gdb
Global variables defined
Functions defined
Macros defined
Source code
- #include "defs.h"
- #include "gdbcmd.h"
- #include "gdbcore.h"
- #include "inferior.h"
- #include "infrun.h"
- #include "target.h"
- #include "regcache.h"
- #include "gdbthread.h"
- #include <ctype.h>
- #include <signal.h>
- #ifdef __MINGW32__
- #include <winsock2.h>
- #else
- #include <netinet/in.h>
- #endif
- #include <sys/types.h>
- #include <sys/time.h>
- #include <time.h>
- #include "gdb_bfd.h"
- #include "cli/cli-utils.h"
- #include "serial.h"
- static struct serial *sdi_desc = NULL;
- #define SDI_TIMEOUT 30
- #define SDIPORT 3232
- static char chip_name[64];
- static int step_mode;
- static unsigned long last_pc_addr = 0xffffffff;
- static unsigned char last_pc_addr_data[2];
- static int mmu_on = 0;
- static int use_ib_breakpoints = 1;
- #define MAX_BREAKPOINTS 1024
- static int max_ib_breakpoints;
- static unsigned long bp_address[MAX_BREAKPOINTS];
- static unsigned char bp_data[MAX_BREAKPOINTS][4];
- static const unsigned char dbt_bp_entry[] = {
- 0x10, 0xe0, 0x70, 0x00
- };
- #define MAX_ACCESS_BREAKS 4
- static int max_access_breaks;
- static unsigned long ab_address[MAX_ACCESS_BREAKS];
- static unsigned int ab_type[MAX_ACCESS_BREAKS];
- static unsigned int ab_size[MAX_ACCESS_BREAKS];
- static CORE_ADDR hit_watchpoint_addr = 0;
- static int interrupted = 0;
- extern struct target_ops m32r_ops;
- static ptid_t remote_m32r_ptid;
- #define SDI_OPEN 1
- #define SDI_CLOSE 2
- #define SDI_RELEASE 3
- #define SDI_READ_CPU_REG 4
- #define SDI_WRITE_CPU_REG 5
- #define SDI_READ_MEMORY 6
- #define SDI_WRITE_MEMORY 7
- #define SDI_EXEC_CPU 8
- #define SDI_STOP_CPU 9
- #define SDI_WAIT_FOR_READY 10
- #define SDI_GET_ATTR 11
- #define SDI_SET_ATTR 12
- #define SDI_STATUS 13
- #define SDI_ATTR_NAME 1
- #define SDI_ATTR_BRK 2
- #define SDI_ATTR_ABRK 3
- #define SDI_ATTR_CACHE 4
- #define SDI_CACHE_TYPE_M32102 0
- #define SDI_CACHE_TYPE_CHAOS 1
- #define SDI_ATTR_MEM_ACCESS 5
- #define SDI_MEM_ACCESS_DEBUG_DMA 0
- #define SDI_MEM_ACCESS_MON_CODE 1
- #define SDI_REG_R0 0
- #define SDI_REG_R1 1
- #define SDI_REG_R2 2
- #define SDI_REG_R3 3
- #define SDI_REG_R4 4
- #define SDI_REG_R5 5
- #define SDI_REG_R6 6
- #define SDI_REG_R7 7
- #define SDI_REG_R8 8
- #define SDI_REG_R9 9
- #define SDI_REG_R10 10
- #define SDI_REG_R11 11
- #define SDI_REG_R12 12
- #define SDI_REG_FP 13
- #define SDI_REG_LR 14
- #define SDI_REG_SP 15
- #define SDI_REG_PSW 16
- #define SDI_REG_CBR 17
- #define SDI_REG_SPI 18
- #define SDI_REG_SPU 19
- #define SDI_REG_CR4 20
- #define SDI_REG_EVB 21
- #define SDI_REG_BPC 22
- #define SDI_REG_CR7 23
- #define SDI_REG_BBPSW 24
- #define SDI_REG_CR9 25
- #define SDI_REG_CR10 26
- #define SDI_REG_CR11 27
- #define SDI_REG_CR12 28
- #define SDI_REG_WR 29
- #define SDI_REG_BBPC 30
- #define SDI_REG_PBP 31
- #define SDI_REG_ACCH 32
- #define SDI_REG_ACCL 33
- #define SDI_REG_ACC1H 34
- #define SDI_REG_ACC1L 35
- static int
- get_ack (void)
- {
- int c;
- if (!sdi_desc)
- return -1;
- c = serial_readchar (sdi_desc, SDI_TIMEOUT);
- if (c < 0)
- return -1;
- if (c != '+')
- return -1;
- return 0;
- }
- static int
- send_data (const void *buf, int len)
- {
- if (!sdi_desc)
- return -1;
- if (serial_write (sdi_desc, buf, len) != 0)
- return -1;
- if (get_ack () == -1)
- return -1;
- return len;
- }
- static int
- recv_data (void *buf, int len)
- {
- int total = 0;
- int c;
- if (!sdi_desc)
- return -1;
- while (total < len)
- {
- c = serial_readchar (sdi_desc, SDI_TIMEOUT);
- if (c < 0)
- return -1;
- ((unsigned char *) buf)[total++] = c;
- }
- return len;
- }
- static void
- store_long_parameter (void *buf, long val)
- {
- val = htonl (val);
- memcpy (buf, &val, 4);
- }
- static int
- send_cmd (unsigned char cmd)
- {
- unsigned char buf[1];
- buf[0] = cmd;
- return send_data (buf, 1);
- }
- static int
- send_one_arg_cmd (unsigned char cmd, unsigned char arg1)
- {
- unsigned char buf[2];
- buf[0] = cmd;
- buf[1] = arg1;
- return send_data (buf, 2);
- }
- static int
- send_two_arg_cmd (unsigned char cmd, unsigned char arg1, unsigned long arg2)
- {
- unsigned char buf[6];
- buf[0] = cmd;
- buf[1] = arg1;
- store_long_parameter (buf + 2, arg2);
- return send_data (buf, 6);
- }
- static int
- send_three_arg_cmd (unsigned char cmd, unsigned long arg1, unsigned long arg2,
- unsigned long arg3)
- {
- unsigned char buf[13];
- buf[0] = cmd;
- store_long_parameter (buf + 1, arg1);
- store_long_parameter (buf + 5, arg2);
- store_long_parameter (buf + 9, arg3);
- return send_data (buf, 13);
- }
- static unsigned char
- recv_char_data (void)
- {
- unsigned char val;
- recv_data (&val, 1);
- return val;
- }
- static unsigned long
- recv_long_data (void)
- {
- unsigned long val;
- recv_data (&val, 4);
- return ntohl (val);
- }
- static void
- check_mmu_status (void)
- {
- unsigned long val;
-
- if (send_one_arg_cmd (SDI_READ_CPU_REG, SDI_REG_BPC) == -1)
- return;
- val = recv_long_data ();
- if ((val & 0xc0000000) == 0x80000000)
- {
- mmu_on = 1;
- return;
- }
-
- if (send_one_arg_cmd (SDI_READ_CPU_REG, SDI_REG_EVB) == -1)
- return;
- val = recv_long_data ();
- if ((val & 0xc0000000) == 0x80000000)
- {
- mmu_on = 1;
- return;
- }
- mmu_on = 0;
- }
- static void
- m32r_create_inferior (struct target_ops *ops, char *execfile,
- char *args, char **env, int from_tty)
- {
- CORE_ADDR entry_pt;
- if (args && *args)
- error (_("Cannot pass arguments to remote STDEBUG process"));
- if (execfile == 0 || exec_bfd == 0)
- error (_("No executable file specified"));
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_create_inferior(%s,%s)\n", execfile,
- args);
- entry_pt = bfd_get_start_address (exec_bfd);
-
- clear_proceed_status (0);
-
- init_wait_for_inferior ();
-
- target_terminal_init ();
-
- target_terminal_inferior ();
- regcache_write_pc (get_current_regcache (), entry_pt);
- }
- static void
- m32r_open (const char *args, int from_tty)
- {
- struct hostent *host_ent;
- struct sockaddr_in server_addr;
- char *port_str, hostname[256];
- int port;
- int i, n;
- int yes = 1;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_open(%d)\n", from_tty);
- target_preopen (from_tty);
- push_target (&m32r_ops);
- if (args == NULL)
- xsnprintf (hostname, sizeof (hostname), "localhost:%d", SDIPORT);
- else
- {
- port_str = strchr (args, ':');
- if (port_str == NULL)
- xsnprintf (hostname, sizeof (hostname), "%s:%d", args, SDIPORT);
- else
- xsnprintf (hostname, sizeof (hostname), "%s", args);
- }
- sdi_desc = serial_open (hostname);
- if (!sdi_desc)
- error (_("Connection refused."));
- if (get_ack () == -1)
- error (_("Cannot connect to SDI target."));
- if (send_cmd (SDI_OPEN) == -1)
- error (_("Cannot connect to SDI target."));
-
- send_one_arg_cmd (SDI_GET_ATTR, SDI_ATTR_BRK);
- max_ib_breakpoints = recv_char_data ();
- if (remote_debug)
- printf_filtered ("Max IB Breakpoints = %d\n", max_ib_breakpoints);
-
- for (i = 0; i < MAX_BREAKPOINTS; i++)
- bp_address[i] = 0xffffffff;
-
- send_one_arg_cmd (SDI_GET_ATTR, SDI_ATTR_ABRK);
- max_access_breaks = recv_char_data ();
- if (remote_debug)
- printf_filtered ("Max Access Breaks = %d\n", max_access_breaks);
-
- for (i = 0; i < MAX_ACCESS_BREAKS; i++)
- ab_address[i] = 0x00000000;
- check_mmu_status ();
-
- send_one_arg_cmd (SDI_GET_ATTR, SDI_ATTR_NAME);
- recv_data (chip_name, 64);
- if (from_tty)
- printf_filtered ("Remote %s connected to %s\n", target_shortname,
- chip_name);
- }
- static void
- m32r_close (struct target_ops *self)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_close()\n");
- if (sdi_desc)
- {
- send_cmd (SDI_CLOSE);
- serial_close (sdi_desc);
- sdi_desc = NULL;
- }
- inferior_ptid = null_ptid;
- delete_thread_silent (remote_m32r_ptid);
- return;
- }
- static void
- m32r_resume (struct target_ops *ops,
- ptid_t ptid, int step, enum gdb_signal sig)
- {
- unsigned long pc_addr, bp_addr, ab_addr;
- int ib_breakpoints;
- unsigned char buf[13];
- int i;
- if (remote_debug)
- {
- if (step)
- fprintf_unfiltered (gdb_stdlog, "\nm32r_resume(step)\n");
- else
- fprintf_unfiltered (gdb_stdlog, "\nm32r_resume(cont)\n");
- }
- check_mmu_status ();
- pc_addr = regcache_read_pc (get_current_regcache ());
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "pc <= 0x%lx\n", pc_addr);
-
- if (pc_addr == last_pc_addr)
- {
-
- if (last_pc_addr_data[0] == 0xf0 && last_pc_addr_data[1] == 0x00)
- {
- pc_addr += 2;
-
- last_pc_addr = 0xffffffff;
- }
-
- else
- {
- buf[0] = SDI_WRITE_MEMORY;
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- store_long_parameter (buf + 1, pc_addr);
- else
- store_long_parameter (buf + 1, pc_addr - 1);
- store_long_parameter (buf + 5, 1);
- buf[9] = last_pc_addr_data[0] & 0x7f;
- send_data (buf, 10);
- }
- }
-
- send_two_arg_cmd (SDI_WRITE_CPU_REG, SDI_REG_BPC, pc_addr);
-
- step_mode = step;
- if (step)
- {
-
- send_two_arg_cmd (SDI_WRITE_CPU_REG, SDI_REG_PBP, pc_addr | 1);
- }
- else
- {
-
- send_two_arg_cmd (SDI_WRITE_CPU_REG, SDI_REG_PBP, 0x00000000);
- }
- if (use_ib_breakpoints)
- ib_breakpoints = max_ib_breakpoints;
- else
- ib_breakpoints = 0;
-
- for (i = 0; i < ib_breakpoints; i++)
- {
- bp_addr = bp_address[i];
- if (bp_addr == 0xffffffff)
- continue;
-
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8000 + 4 * i, 4,
- 0x00000006);
- else
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8000 + 4 * i, 4,
- 0x06000000);
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8080 + 4 * i, 4, bp_addr);
- }
-
- for (i = ib_breakpoints; i < MAX_BREAKPOINTS; i++)
- {
- bp_addr = bp_address[i];
- if (bp_addr == 0xffffffff)
- continue;
- if (!mmu_on)
- bp_addr &= 0x7fffffff;
-
- buf[0] = SDI_WRITE_MEMORY;
- store_long_parameter (buf + 1, (bp_addr & 0xfffffffc));
- store_long_parameter (buf + 5, 4);
- if ((bp_addr & 2) == 0 && bp_addr != (pc_addr & 0xfffffffc))
- {
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- {
- buf[9] = dbt_bp_entry[0];
- buf[10] = dbt_bp_entry[1];
- buf[11] = dbt_bp_entry[2];
- buf[12] = dbt_bp_entry[3];
- }
- else
- {
- buf[9] = dbt_bp_entry[3];
- buf[10] = dbt_bp_entry[2];
- buf[11] = dbt_bp_entry[1];
- buf[12] = dbt_bp_entry[0];
- }
- }
- else
- {
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- {
- if ((bp_addr & 2) == 0)
- {
- buf[9] = dbt_bp_entry[0];
- buf[10] = dbt_bp_entry[1];
- buf[11] = bp_data[i][2] & 0x7f;
- buf[12] = bp_data[i][3];
- }
- else
- {
- buf[9] = bp_data[i][0];
- buf[10] = bp_data[i][1];
- buf[11] = dbt_bp_entry[0];
- buf[12] = dbt_bp_entry[1];
- }
- }
- else
- {
- if ((bp_addr & 2) == 0)
- {
- buf[9] = bp_data[i][0];
- buf[10] = bp_data[i][1] & 0x7f;
- buf[11] = dbt_bp_entry[1];
- buf[12] = dbt_bp_entry[0];
- }
- else
- {
- buf[9] = dbt_bp_entry[1];
- buf[10] = dbt_bp_entry[0];
- buf[11] = bp_data[i][2];
- buf[12] = bp_data[i][3];
- }
- }
- }
- send_data (buf, 13);
- }
-
- for (i = 0; i < max_access_breaks; i++)
- {
- ab_addr = ab_address[i];
- if (ab_addr == 0x00000000)
- continue;
-
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- {
- switch (ab_type[i])
- {
- case 0:
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8100 + 4 * i, 4,
- 0x00000086);
- break;
- case 1:
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8100 + 4 * i, 4,
- 0x00000046);
- break;
- case 2:
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8100 + 4 * i, 4,
- 0x00000006);
- break;
- }
- }
- else
- {
- switch (ab_type[i])
- {
- case 0:
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8100 + 4 * i, 4,
- 0x86000000);
- break;
- case 1:
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8100 + 4 * i, 4,
- 0x46000000);
- break;
- case 2:
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8100 + 4 * i, 4,
- 0x06000000);
- break;
- }
- }
-
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8180 + 4 * i, 4, ab_addr);
-
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8200 + 4 * i, 4,
- 0xffffffff);
-
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8280 + 4 * i, 4,
- 0x00000000);
-
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8300 + 4 * i, 4,
- 0x00000000);
- }
-
- send_cmd (SDI_EXEC_CPU);
-
- inferior_ptid = remote_m32r_ptid;
- add_thread_silent (remote_m32r_ptid);
- return;
- }
- static void
- gdb_cntrl_c (int signo)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "interrupt\n");
- interrupted = 1;
- }
- static ptid_t
- m32r_wait (struct target_ops *ops,
- ptid_t ptid, struct target_waitstatus *status, int options)
- {
- static RETSIGTYPE (*prev_sigint) ();
- unsigned long bp_addr, pc_addr;
- int ib_breakpoints;
- long i;
- unsigned char buf[13];
- int ret, c;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_wait()\n");
- status->kind = TARGET_WAITKIND_EXITED;
- status->value.sig = GDB_SIGNAL_0;
- interrupted = 0;
- prev_sigint = signal (SIGINT, gdb_cntrl_c);
-
- buf[0] = SDI_WAIT_FOR_READY;
- if (serial_write (sdi_desc, buf, 1) != 0)
- error (_("Remote connection closed"));
- while (1)
- {
- c = serial_readchar (sdi_desc, SDI_TIMEOUT);
- if (c < 0)
- error (_("Remote connection closed"));
- if (c == '-')
- {
- status->kind = TARGET_WAITKIND_STOPPED;
- status->value.sig = GDB_SIGNAL_HUP;
- return inferior_ptid;
- }
- else if (c == '+')
- break;
- if (interrupted)
- ret = serial_write (sdi_desc, "!", 1);
- else
- ret = serial_write (sdi_desc, ".", 1);
- if (ret != 0)
- error (_("Remote connection closed"));
- }
- status->kind = TARGET_WAITKIND_STOPPED;
- if (interrupted)
- status->value.sig = GDB_SIGNAL_INT;
- else
- status->value.sig = GDB_SIGNAL_TRAP;
- interrupted = 0;
- signal (SIGINT, prev_sigint);
- check_mmu_status ();
-
- if (last_pc_addr != 0xffffffff)
- {
- buf[0] = SDI_WRITE_MEMORY;
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- store_long_parameter (buf + 1, last_pc_addr);
- else
- store_long_parameter (buf + 1, last_pc_addr - 1);
- store_long_parameter (buf + 5, 1);
- buf[9] = last_pc_addr_data[0];
- send_data (buf, 10);
- last_pc_addr = 0xffffffff;
- }
- if (use_ib_breakpoints)
- ib_breakpoints = max_ib_breakpoints;
- else
- ib_breakpoints = 0;
-
- last_pc_addr = 0xffffffff;
- send_one_arg_cmd (SDI_READ_CPU_REG, SDI_REG_BPC);
- pc_addr = recv_long_data () - 2;
- for (i = ib_breakpoints; i < MAX_BREAKPOINTS; i++)
- {
- if (pc_addr == bp_address[i])
- {
- send_two_arg_cmd (SDI_WRITE_CPU_REG, SDI_REG_BPC, pc_addr);
-
- if ((pc_addr & 0x2) != 0)
- {
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- {
- if ((bp_data[i][2] & 0x80) != 0)
- {
- last_pc_addr = pc_addr;
- last_pc_addr_data[0] = bp_data[i][2];
- last_pc_addr_data[1] = bp_data[i][3];
- }
- }
- else
- {
- if ((bp_data[i][1] & 0x80) != 0)
- {
- last_pc_addr = pc_addr;
- last_pc_addr_data[0] = bp_data[i][1];
- last_pc_addr_data[1] = bp_data[i][0];
- }
- }
- }
- break;
- }
- }
-
- for (i = 0; i < ib_breakpoints; i++)
- {
- if (bp_address[i] != 0xffffffff)
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8000 + 4 * i, 4,
- 0x00000000);
- }
-
- for (i = ib_breakpoints; i < MAX_BREAKPOINTS; i++)
- {
- bp_addr = bp_address[i];
- if (bp_addr != 0xffffffff)
- {
- if (!mmu_on)
- bp_addr &= 0x7fffffff;
- buf[0] = SDI_WRITE_MEMORY;
- store_long_parameter (buf + 1, bp_addr & 0xfffffffc);
- store_long_parameter (buf + 5, 4);
- buf[9] = bp_data[i][0];
- buf[10] = bp_data[i][1];
- buf[11] = bp_data[i][2];
- buf[12] = bp_data[i][3];
- send_data (buf, 13);
- }
- }
-
- hit_watchpoint_addr = 0;
- for (i = 0; i < max_access_breaks; i++)
- {
- if (ab_address[i] != 0x00000000)
- {
- buf[0] = SDI_READ_MEMORY;
- store_long_parameter (buf + 1, 0xffff8100 + 4 * i);
- store_long_parameter (buf + 5, 4);
- serial_write (sdi_desc, buf, 9);
- c = serial_readchar (sdi_desc, SDI_TIMEOUT);
- if (c != '-' && recv_data (buf, 4) != -1)
- {
- if (gdbarch_byte_order (target_gdbarch ()) == BFD_ENDIAN_BIG)
- {
- if ((buf[3] & 0x1) == 0x1)
- hit_watchpoint_addr = ab_address[i];
- }
- else
- {
- if ((buf[0] & 0x1) == 0x1)
- hit_watchpoint_addr = ab_address[i];
- }
- }
- send_three_arg_cmd (SDI_WRITE_MEMORY, 0xffff8100 + 4 * i, 4,
- 0x00000000);
- }
- }
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "pc => 0x%lx\n", pc_addr);
- return inferior_ptid;
- }
- static void
- m32r_detach (struct target_ops *ops, const char *args, int from_tty)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_detach(%d)\n", from_tty);
- m32r_resume (ops, inferior_ptid, 0, GDB_SIGNAL_0);
-
- unpush_target (ops);
- if (from_tty)
- fprintf_unfiltered (gdb_stdlog, "Ending remote %s debugging\n",
- target_shortname);
- }
- static int
- get_reg_id (int regno)
- {
- switch (regno)
- {
- case 20:
- return SDI_REG_BBPC;
- case 21:
- return SDI_REG_BPC;
- case 22:
- return SDI_REG_ACCL;
- case 23:
- return SDI_REG_ACCH;
- case 24:
- return SDI_REG_EVB;
- }
- return regno;
- }
- static void
- m32r_fetch_register (struct target_ops *ops,
- struct regcache *regcache, int regno)
- {
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
- unsigned long val, val2, regid;
- if (regno == -1)
- {
- for (regno = 0;
- regno < gdbarch_num_regs (get_regcache_arch (regcache));
- regno++)
- m32r_fetch_register (ops, regcache, regno);
- }
- else
- {
- gdb_byte buffer[MAX_REGISTER_SIZE];
- regid = get_reg_id (regno);
- send_one_arg_cmd (SDI_READ_CPU_REG, regid);
- val = recv_long_data ();
- if (regid == SDI_REG_PSW)
- {
- send_one_arg_cmd (SDI_READ_CPU_REG, SDI_REG_BBPSW);
- val2 = recv_long_data ();
- val = ((0x00cf & val2) << 8) | ((0xcf00 & val) >> 8);
- }
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_fetch_register(%d,0x%08lx)\n",
- regno, val);
-
- store_unsigned_integer (buffer, 4, byte_order, val);
- regcache_raw_supply (regcache, regno, buffer);
- }
- return;
- }
- static void
- m32r_store_register (struct target_ops *ops,
- struct regcache *regcache, int regno)
- {
- int regid;
- ULONGEST regval, tmp;
- if (regno == -1)
- {
- for (regno = 0;
- regno < gdbarch_num_regs (get_regcache_arch (regcache));
- regno++)
- m32r_store_register (ops, regcache, regno);
- }
- else
- {
- regcache_cooked_read_unsigned (regcache, regno, ®val);
- regid = get_reg_id (regno);
- if (regid == SDI_REG_PSW)
- {
- unsigned long psw, bbpsw;
- send_one_arg_cmd (SDI_READ_CPU_REG, SDI_REG_PSW);
- psw = recv_long_data ();
- send_one_arg_cmd (SDI_READ_CPU_REG, SDI_REG_BBPSW);
- bbpsw = recv_long_data ();
- tmp = (0x00cf & psw) | ((0x00cf & regval) << 8);
- send_two_arg_cmd (SDI_WRITE_CPU_REG, SDI_REG_PSW, tmp);
- tmp = (0x0030 & bbpsw) | ((0xcf00 & regval) >> 8);
- send_two_arg_cmd (SDI_WRITE_CPU_REG, SDI_REG_BBPSW, tmp);
- }
- else
- {
- send_two_arg_cmd (SDI_WRITE_CPU_REG, regid, regval);
- }
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_store_register(%d,0x%08lu)\n",
- regno, (unsigned long) regval);
- }
- }
- static void
- m32r_prepare_to_store (struct target_ops *self, struct regcache *regcache)
- {
-
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_prepare_to_store()\n");
- }
- static void
- m32r_files_info (struct target_ops *target)
- {
- const char *file = "nothing";
- if (exec_bfd)
- {
- file = bfd_get_filename (exec_bfd);
- printf_filtered ("\tAttached to %s running program %s\n",
- chip_name, file);
- }
- }
- static enum target_xfer_status
- m32r_xfer_memory (gdb_byte *readbuf, const gdb_byte *writebuf,
- ULONGEST memaddr, ULONGEST len, ULONGEST *xfered_len)
- {
- unsigned long taddr;
- unsigned char buf[0x2000];
- int ret, c;
- taddr = memaddr;
- if (!mmu_on)
- {
- if ((taddr & 0xa0000000) == 0x80000000)
- taddr &= 0x7fffffff;
- }
- if (remote_debug)
- {
- if (writebuf != NULL)
- fprintf_unfiltered (gdb_stdlog, "m32r_xfer_memory(%s,%s,write)\n",
- paddress (target_gdbarch (), memaddr),
- plongest (len));
- else
- fprintf_unfiltered (gdb_stdlog, "m32r_xfer_memory(%s,%s,read)\n",
- paddress (target_gdbarch (), memaddr),
- plongest (len));
- }
- if (writebuf != NULL)
- {
- buf[0] = SDI_WRITE_MEMORY;
- store_long_parameter (buf + 1, taddr);
- store_long_parameter (buf + 5, len);
- if (len < 0x1000)
- {
- memcpy (buf + 9, writebuf, len);
- ret = send_data (buf, len + 9) - 9;
- }
- else
- {
- if (serial_write (sdi_desc, buf, 9) != 0)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog,
- "m32r_xfer_memory() failed\n");
- return TARGET_XFER_EOF;
- }
- ret = send_data (writebuf, len);
- }
- }
- else
- {
- buf[0] = SDI_READ_MEMORY;
- store_long_parameter (buf + 1, taddr);
- store_long_parameter (buf + 5, len);
- if (serial_write (sdi_desc, buf, 9) != 0)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_xfer_memory() failed\n");
- return TARGET_XFER_EOF;
- }
- c = serial_readchar (sdi_desc, SDI_TIMEOUT);
- if (c < 0 || c == '-')
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_xfer_memory() failed\n");
- return TARGET_XFER_EOF;
- }
- ret = recv_data (readbuf, len);
- }
- if (ret <= 0)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_xfer_memory() fails\n");
- return TARGET_XFER_E_IO;
- }
- *xfered_len = ret;
- return TARGET_XFER_OK;
- }
- static enum target_xfer_status
- m32r_xfer_partial (struct target_ops *ops, enum target_object object,
- const char *annex, gdb_byte *readbuf,
- const gdb_byte *writebuf, ULONGEST offset, ULONGEST len,
- ULONGEST *xfered_len)
- {
- switch (object)
- {
- case TARGET_OBJECT_MEMORY:
- return m32r_xfer_memory (readbuf, writebuf, offset, len, xfered_len);
- default:
- return ops->beneath->to_xfer_partial (ops->beneath, object, annex,
- readbuf, writebuf, offset, len,
- xfered_len);
- }
- }
- static void
- m32r_kill (struct target_ops *ops)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_kill()\n");
- inferior_ptid = null_ptid;
- delete_thread_silent (remote_m32r_ptid);
- return;
- }
- static void
- m32r_mourn_inferior (struct target_ops *ops)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_mourn_inferior()\n");
- remove_breakpoints ();
- generic_mourn_inferior ();
- }
- static int
- m32r_insert_breakpoint (struct target_ops *ops,
- struct gdbarch *gdbarch,
- struct bp_target_info *bp_tgt)
- {
- CORE_ADDR addr = bp_tgt->placed_address = bp_tgt->reqstd_address;
- int ib_breakpoints;
- unsigned char buf[13];
- int i, c;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_insert_breakpoint(%s,...)\n",
- paddress (gdbarch, addr));
- if (use_ib_breakpoints)
- ib_breakpoints = max_ib_breakpoints;
- else
- ib_breakpoints = 0;
- for (i = 0; i < MAX_BREAKPOINTS; i++)
- {
- if (bp_address[i] == 0xffffffff)
- {
- bp_address[i] = addr;
- if (i >= ib_breakpoints)
- {
- buf[0] = SDI_READ_MEMORY;
- if (mmu_on)
- store_long_parameter (buf + 1, addr & 0xfffffffc);
- else
- store_long_parameter (buf + 1, addr & 0x7ffffffc);
- store_long_parameter (buf + 5, 4);
- serial_write (sdi_desc, buf, 9);
- c = serial_readchar (sdi_desc, SDI_TIMEOUT);
- if (c != '-')
- recv_data (bp_data[i], 4);
- }
- return 0;
- }
- }
- error (_("Too many breakpoints"));
- return 1;
- }
- static int
- m32r_remove_breakpoint (struct target_ops *ops,
- struct gdbarch *gdbarch,
- struct bp_target_info *bp_tgt)
- {
- CORE_ADDR addr = bp_tgt->placed_address;
- int i;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_remove_breakpoint(%s)\n",
- paddress (gdbarch, addr));
- for (i = 0; i < MAX_BREAKPOINTS; i++)
- {
- if (bp_address[i] == addr)
- {
- bp_address[i] = 0xffffffff;
- break;
- }
- }
- return 0;
- }
- static void
- m32r_load (struct target_ops *self, const char *args, int from_tty)
- {
- struct cleanup *old_chain = make_cleanup (null_cleanup, NULL);
- asection *section;
- bfd *pbfd;
- bfd_vma entry;
- char *filename;
- int quiet;
- int nostart;
- struct timeval start_time, end_time;
- unsigned long data_count;
- static RETSIGTYPE (*prev_sigint) ();
-
- quiet = 0;
- nostart = 0;
- filename = NULL;
- while (*args != '\000')
- {
- char *arg = extract_arg_const (&args);
- if (arg == NULL)
- break;
- make_cleanup (xfree, arg);
- if (*arg != '-')
- filename = arg;
- else if (strncmp (arg, "-quiet", strlen (arg)) == 0)
- quiet = 1;
- else if (strncmp (arg, "-nostart", strlen (arg)) == 0)
- nostart = 1;
- else
- error (_("Unknown option `%s'"), arg);
- }
- if (!filename)
- filename = get_exec_file (1);
- pbfd = gdb_bfd_open (filename, gnutarget, -1);
- if (pbfd == NULL)
- perror_with_name (filename);
- make_cleanup_bfd_unref (pbfd);
- if (!bfd_check_format (pbfd, bfd_object))
- error (_("\"%s\" is not an object file: %s"), filename,
- bfd_errmsg (bfd_get_error ()));
- gettimeofday (&start_time, NULL);
- data_count = 0;
- interrupted = 0;
- prev_sigint = signal (SIGINT, gdb_cntrl_c);
- for (section = pbfd->sections; section; section = section->next)
- {
- if (bfd_get_section_flags (pbfd, section) & SEC_LOAD)
- {
- bfd_vma section_address;
- bfd_size_type section_size;
- file_ptr fptr;
- int n;
- section_address = bfd_section_lma (pbfd, section);
- section_size = bfd_get_section_size (section);
- if (!mmu_on)
- {
- if ((section_address & 0xa0000000) == 0x80000000)
- section_address &= 0x7fffffff;
- }
- if (!quiet)
- printf_filtered ("[Loading section %s at 0x%lx (%d bytes)]\n",
- bfd_get_section_name (pbfd, section),
- (unsigned long) section_address,
- (int) section_size);
- fptr = 0;
- data_count += section_size;
- n = 0;
- while (section_size > 0)
- {
- char unsigned buf[0x1000 + 9];
- int count;
- count = min (section_size, 0x1000);
- buf[0] = SDI_WRITE_MEMORY;
- store_long_parameter (buf + 1, section_address);
- store_long_parameter (buf + 5, count);
- bfd_get_section_contents (pbfd, section, buf + 9, fptr, count);
- if (send_data (buf, count + 9) <= 0)
- error (_("Error while downloading %s section."),
- bfd_get_section_name (pbfd, section));
- if (!quiet)
- {
- printf_unfiltered (".");
- if (n++ > 60)
- {
- printf_unfiltered ("\n");
- n = 0;
- }
- gdb_flush (gdb_stdout);
- }
- section_address += count;
- fptr += count;
- section_size -= count;
- if (interrupted)
- break;
- }
- if (!quiet && !interrupted)
- {
- printf_unfiltered ("done.\n");
- gdb_flush (gdb_stdout);
- }
- }
- if (interrupted)
- {
- printf_unfiltered ("Interrupted.\n");
- break;
- }
- }
- interrupted = 0;
- signal (SIGINT, prev_sigint);
- gettimeofday (&end_time, NULL);
-
- if (exec_bfd)
- regcache_write_pc (get_current_regcache (),
- bfd_get_start_address (exec_bfd));
- inferior_ptid = null_ptid;
- delete_thread_silent (remote_m32r_ptid);
-
- clear_symtab_users (0);
- if (!nostart)
- {
- entry = bfd_get_start_address (pbfd);
- if (!quiet)
- printf_unfiltered ("[Starting %s at 0x%lx]\n", filename,
- (unsigned long) entry);
- }
- print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
- &end_time);
- do_cleanups (old_chain);
- }
- static void
- m32r_stop (struct target_ops *self, ptid_t ptid)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_stop()\n");
- send_cmd (SDI_STOP_CPU);
- return;
- }
- static int
- m32r_can_use_hw_watchpoint (struct target_ops *self,
- int type, int cnt, int othertype)
- {
- return sdi_desc != NULL && cnt < max_access_breaks;
- }
- static int
- m32r_insert_watchpoint (struct target_ops *self,
- CORE_ADDR addr, int len, int type,
- struct expression *cond)
- {
- int i;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_insert_watchpoint(%s,%d,%d)\n",
- paddress (target_gdbarch (), addr), len, type);
- for (i = 0; i < MAX_ACCESS_BREAKS; i++)
- {
- if (ab_address[i] == 0x00000000)
- {
- ab_address[i] = addr;
- ab_size[i] = len;
- ab_type[i] = type;
- return 0;
- }
- }
- error (_("Too many watchpoints"));
- return 1;
- }
- static int
- m32r_remove_watchpoint (struct target_ops *self,
- CORE_ADDR addr, int len, int type,
- struct expression *cond)
- {
- int i;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_remove_watchpoint(%s,%d,%d)\n",
- paddress (target_gdbarch (), addr), len, type);
- for (i = 0; i < MAX_ACCESS_BREAKS; i++)
- {
- if (ab_address[i] == addr)
- {
- ab_address[i] = 0x00000000;
- break;
- }
- }
- return 0;
- }
- static int
- m32r_stopped_data_address (struct target_ops *target, CORE_ADDR *addr_p)
- {
- int rc = 0;
- if (hit_watchpoint_addr != 0x00000000)
- {
- *addr_p = hit_watchpoint_addr;
- rc = 1;
- }
- return rc;
- }
- static int
- m32r_stopped_by_watchpoint (struct target_ops *ops)
- {
- CORE_ADDR addr;
- return m32r_stopped_data_address (¤t_target, &addr);
- }
- static int
- m32r_thread_alive (struct target_ops *ops, ptid_t ptid)
- {
- if (ptid_equal (ptid, remote_m32r_ptid))
-
- return 1;
- return 0;
- }
- static char *
- m32r_pid_to_str (struct target_ops *ops, ptid_t ptid)
- {
- static char buf[64];
- if (ptid_equal (remote_m32r_ptid, ptid))
- {
- xsnprintf (buf, sizeof buf, "Thread <main>");
- return buf;
- }
- return normal_pid_to_str (ptid);
- }
- static void
- sdireset_command (char *args, int from_tty)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_sdireset()\n");
- send_cmd (SDI_OPEN);
- inferior_ptid = null_ptid;
- delete_thread_silent (remote_m32r_ptid);
- }
- static void
- sdistatus_command (char *args, int from_tty)
- {
- unsigned char buf[4096];
- int i, c;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "m32r_sdireset()\n");
- if (!sdi_desc)
- return;
- send_cmd (SDI_STATUS);
- for (i = 0; i < 4096; i++)
- {
- c = serial_readchar (sdi_desc, SDI_TIMEOUT);
- if (c < 0)
- return;
- buf[i] = c;
- if (c == 0)
- break;
- }
- printf_filtered ("%s", buf);
- }
- static void
- debug_chaos_command (char *args, int from_tty)
- {
- unsigned char buf[3];
- buf[0] = SDI_SET_ATTR;
- buf[1] = SDI_ATTR_CACHE;
- buf[2] = SDI_CACHE_TYPE_CHAOS;
- send_data (buf, 3);
- }
- static void
- use_debug_dma_command (char *args, int from_tty)
- {
- unsigned char buf[3];
- buf[0] = SDI_SET_ATTR;
- buf[1] = SDI_ATTR_MEM_ACCESS;
- buf[2] = SDI_MEM_ACCESS_DEBUG_DMA;
- send_data (buf, 3);
- }
- static void
- use_mon_code_command (char *args, int from_tty)
- {
- unsigned char buf[3];
- buf[0] = SDI_SET_ATTR;
- buf[1] = SDI_ATTR_MEM_ACCESS;
- buf[2] = SDI_MEM_ACCESS_MON_CODE;
- send_data (buf, 3);
- }
- static void
- use_ib_breakpoints_command (char *args, int from_tty)
- {
- use_ib_breakpoints = 1;
- }
- static void
- use_dbt_breakpoints_command (char *args, int from_tty)
- {
- use_ib_breakpoints = 0;
- }
- static int
- m32r_return_one (struct target_ops *target)
- {
- return 1;
- }
- static int
- m32r_has_execution (struct target_ops *target, ptid_t the_ptid)
- {
- return 1;
- }
- struct target_ops m32r_ops;
- static void
- init_m32r_ops (void)
- {
- m32r_ops.to_shortname = "m32rsdi";
- m32r_ops.to_longname = "Remote M32R debugging over SDI interface";
- m32r_ops.to_doc = "Use an M32R board using SDI debugging protocol.";
- m32r_ops.to_open = m32r_open;
- m32r_ops.to_close = m32r_close;
- m32r_ops.to_detach = m32r_detach;
- m32r_ops.to_resume = m32r_resume;
- m32r_ops.to_wait = m32r_wait;
- m32r_ops.to_fetch_registers = m32r_fetch_register;
- m32r_ops.to_store_registers = m32r_store_register;
- m32r_ops.to_prepare_to_store = m32r_prepare_to_store;
- m32r_ops.to_xfer_partial = m32r_xfer_partial;
- m32r_ops.to_files_info = m32r_files_info;
- m32r_ops.to_insert_breakpoint = m32r_insert_breakpoint;
- m32r_ops.to_remove_breakpoint = m32r_remove_breakpoint;
- m32r_ops.to_can_use_hw_breakpoint = m32r_can_use_hw_watchpoint;
- m32r_ops.to_insert_watchpoint = m32r_insert_watchpoint;
- m32r_ops.to_remove_watchpoint = m32r_remove_watchpoint;
- m32r_ops.to_stopped_by_watchpoint = m32r_stopped_by_watchpoint;
- m32r_ops.to_stopped_data_address = m32r_stopped_data_address;
- m32r_ops.to_kill = m32r_kill;
- m32r_ops.to_load = m32r_load;
- m32r_ops.to_create_inferior = m32r_create_inferior;
- m32r_ops.to_mourn_inferior = m32r_mourn_inferior;
- m32r_ops.to_stop = m32r_stop;
- m32r_ops.to_log_command = serial_log_command;
- m32r_ops.to_thread_alive = m32r_thread_alive;
- m32r_ops.to_pid_to_str = m32r_pid_to_str;
- m32r_ops.to_stratum = process_stratum;
- m32r_ops.to_has_all_memory = m32r_return_one;
- m32r_ops.to_has_memory = m32r_return_one;
- m32r_ops.to_has_stack = m32r_return_one;
- m32r_ops.to_has_registers = m32r_return_one;
- m32r_ops.to_has_execution = m32r_has_execution;
- m32r_ops.to_magic = OPS_MAGIC;
- };
- extern initialize_file_ftype _initialize_remote_m32r;
- void
- _initialize_remote_m32r (void)
- {
- int i;
- init_m32r_ops ();
-
- for (i = 0; i < MAX_BREAKPOINTS; i++)
- bp_address[i] = 0xffffffff;
-
- for (i = 0; i < MAX_ACCESS_BREAKS; i++)
- ab_address[i] = 0x00000000;
- add_target (&m32r_ops);
- add_com ("sdireset", class_obscure, sdireset_command,
- _("Reset SDI connection."));
- add_com ("sdistatus", class_obscure, sdistatus_command,
- _("Show status of SDI connection."));
- add_com ("debug_chaos", class_obscure, debug_chaos_command,
- _("Debug M32R/Chaos."));
- add_com ("use_debug_dma", class_obscure, use_debug_dma_command,
- _("Use debug DMA mem access."));
- add_com ("use_mon_code", class_obscure, use_mon_code_command,
- _("Use mon code mem access."));
- add_com ("use_ib_break", class_obscure, use_ib_breakpoints_command,
- _("Set breakpoints by IB break."));
- add_com ("use_dbt_break", class_obscure, use_dbt_breakpoints_command,
- _("Set breakpoints by dbt."));
-
- remote_m32r_ptid = ptid_build (42000, 0, 42000);
- }