1 /* Remote debugging interface to m32r and mon2000 ROM monitors for GDB,
4 Copyright (C) 1996-2014 Free Software Foundation, Inc.
6 Adapted by Michael Snyder of Cygnus Support.
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 /* This module defines communication with the Renesas m32r monitor. */
28 #include "exceptions.h"
34 #include "symfile.h" /* for generic load */
36 #include <time.h> /* for time_t */
37 #include "objfiles.h" /* for ALL_OBJFILES etc. */
42 #include "cli/cli-utils.h"
45 * All this stuff just to get my host computer's IP address!
50 #include <sys/types.h>
51 #include <netdb.h> /* for hostent */
52 #include <netinet/in.h> /* for struct in_addr */
54 #include <arpa/inet.h> /* for inet_ntoa */
58 static char *board_addr; /* user-settable IP address for M32R-EVA */
59 static char *server_addr; /* user-settable IP address for gdb host */
60 static char *download_path; /* user-settable path for SREC files */
67 #define ACCL_REGNUM 22
68 #define ACCH_REGNUM 23
72 * Function: m32r_load_1 (helper function)
76 m32r_load_section (bfd *abfd, asection *s, void *obj)
78 unsigned int *data_count = obj;
79 if (s->flags & SEC_LOAD)
81 int addr_size = gdbarch_addr_bit (target_gdbarch ()) / 8;
82 bfd_size_type section_size = bfd_section_size (abfd, s);
83 bfd_vma section_base = bfd_section_lma (abfd, s);
84 unsigned int buffer, i;
86 *data_count += section_size;
88 printf_filtered ("Loading section %s, size 0x%lx lma ",
89 bfd_section_name (abfd, s),
90 (unsigned long) section_size);
91 fputs_filtered (paddress (target_gdbarch (), section_base), gdb_stdout);
92 printf_filtered ("\n");
93 gdb_flush (gdb_stdout);
94 monitor_printf ("%s mw\r", phex_nz (section_base, addr_size));
95 for (i = 0; i < section_size; i += 4)
98 monitor_expect (" -> ", NULL, 0);
99 bfd_get_section_contents (abfd, s, (char *) &buffer, i, 4);
100 monitor_printf ("%x\n", buffer);
102 monitor_expect (" -> ", NULL, 0);
103 monitor_printf ("q\n");
104 monitor_expect_prompt (NULL, 0);
109 m32r_load_1 (void *dummy)
113 bfd_map_over_sections ((bfd *) dummy, m32r_load_section, &data_count);
118 * Function: m32r_load (an alternate way to load)
122 m32r_load (char *filename, int from_tty)
125 unsigned int data_count = 0;
126 struct timeval start_time, end_time;
127 struct cleanup *cleanup;
129 if (filename == NULL || filename[0] == 0)
130 filename = get_exec_file (1);
132 abfd = gdb_bfd_open (filename, NULL, -1);
134 error (_("Unable to open file %s."), filename);
135 cleanup = make_cleanup_bfd_unref (abfd);
136 if (bfd_check_format (abfd, bfd_object) == 0)
137 error (_("File is not an object file."));
138 gettimeofday (&start_time, NULL);
140 for (s = abfd->sections; s; s = s->next)
141 if (s->flags & SEC_LOAD)
143 bfd_size_type section_size = bfd_section_size (abfd, s);
144 bfd_vma section_base = bfd_section_vma (abfd, s);
147 data_count += section_size;
149 printf_filtered ("Loading section %s, size 0x%lx vma ",
150 bfd_section_name (abfd, s), section_size);
151 fputs_filtered (paddress (target_gdbarch (), section_base), gdb_stdout);
152 printf_filtered ("\n");
153 gdb_flush (gdb_stdout);
154 monitor_printf ("%x mw\r", section_base);
155 for (i = 0; i < section_size; i += 4)
157 monitor_expect (" -> ", NULL, 0);
158 bfd_get_section_contents (abfd, s, (char *) &buffer, i, 4);
159 monitor_printf ("%x\n", buffer);
161 monitor_expect (" -> ", NULL, 0);
162 monitor_printf ("q\n");
163 monitor_expect_prompt (NULL, 0);
166 if (!(catch_errors (m32r_load_1, abfd, "Load aborted!\n", RETURN_MASK_ALL)))
168 monitor_printf ("q\n");
169 do_cleanups (cleanup);
173 gettimeofday (&end_time, NULL);
174 printf_filtered ("Start address 0x%lx\n",
175 (unsigned long) bfd_get_start_address (abfd));
176 print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
179 /* Finally, make the PC point at the start address. */
181 regcache_write_pc (get_current_regcache (),
182 bfd_get_start_address (exec_bfd));
184 inferior_ptid = null_ptid; /* No process now. */
186 /* This is necessary because many things were based on the PC at the
187 time that we attached to the monitor, which is no longer valid
188 now that we have loaded new code (and just changed the PC).
189 Another way to do this might be to call normal_stop, except that
190 the stack may not be valid, and things would get horribly
193 clear_symtab_users (0);
194 do_cleanups (cleanup);
198 m32r_load_gen (struct target_ops *self, const char *filename, int from_tty)
200 generic_load (filename, from_tty);
203 /* This array of registers needs to match the indexes used by GDB. The
204 whole reason this exists is because the various ROM monitors use
205 different names than GDB does, and don't support all the registers
206 either. So, typing "info reg sp" becomes an "A7". */
208 static char *m32r_regnames[] =
209 { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
210 "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",
211 "psw", "cbr", "spi", "spu", "bpc", "pc", "accl", "acch",
215 m32r_supply_register (struct regcache *regcache, char *regname,
216 int regnamelen, char *val, int vallen)
219 int num_regs = sizeof (m32r_regnames) / sizeof (m32r_regnames[0]);
220 struct gdbarch *gdbarch = get_regcache_arch (regcache);
222 for (regno = 0; regno < num_regs; regno++)
223 if (strncmp (regname, m32r_regnames[regno], regnamelen) == 0)
226 if (regno >= num_regs)
227 return; /* no match */
229 if (regno == ACCL_REGNUM)
230 { /* Special handling for 64-bit acc reg. */
231 monitor_supply_register (regcache, ACCH_REGNUM, val);
232 val = strchr (val, ':'); /* Skip past ':' to get 2nd word. */
234 monitor_supply_register (regcache, ACCL_REGNUM, val + 1);
238 monitor_supply_register (regcache, regno, val);
239 if (regno == PSW_REGNUM)
241 #if (defined SM_REGNUM || defined BSM_REGNUM || defined IE_REGNUM \
242 || defined BIE_REGNUM || defined COND_REGNUM || defined CBR_REGNUM \
243 || defined BPC_REGNUM || defined BCARRY_REGNUM)
244 unsigned long psw = strtoul (val, NULL, 16);
245 char *zero = "00000000", *one = "00000001";
250 monitor_supply_register (regcache, SM_REGNUM,
251 (psw & 0x80) ? one : zero);
254 /* Backup stack mode bit */
255 monitor_supply_register (regcache, BSM_REGNUM,
256 (psw & 0x8000) ? one : zero);
259 /* Interrupt enable bit */
260 monitor_supply_register (regcache, IE_REGNUM,
261 (psw & 0x40) ? one : zero);
264 /* Backup interrupt enable bit */
265 monitor_supply_register (regcache, BIE_REGNUM,
266 (psw & 0x4000) ? one : zero);
269 /* Condition bit (carry etc.) */
270 monitor_supply_register (regcache, COND_REGNUM,
271 (psw & 0x1) ? one : zero);
274 monitor_supply_register (regcache, CBR_REGNUM,
275 (psw & 0x1) ? one : zero);
278 monitor_supply_register (regcache, BPC_REGNUM,
279 zero); /* KLUDGE: (???????) */
282 monitor_supply_register (regcache, BCARRY_REGNUM,
283 zero); /* KLUDGE: (??????) */
287 if (regno == SPI_REGNUM || regno == SPU_REGNUM)
288 { /* special handling for stack pointer (spu or spi). */
289 ULONGEST stackmode, psw;
290 regcache_cooked_read_unsigned (regcache, PSW_REGNUM, &psw);
291 stackmode = psw & 0x80;
293 if (regno == SPI_REGNUM && !stackmode) /* SP == SPI */
294 monitor_supply_register (regcache,
295 gdbarch_sp_regnum (gdbarch), val);
296 else if (regno == SPU_REGNUM && stackmode) /* SP == SPU */
297 monitor_supply_register (regcache,
298 gdbarch_sp_regnum (gdbarch), val);
303 /* m32r RevC board monitor */
305 static struct target_ops m32r_ops;
307 static char *m32r_inits[] = { "\r", NULL };
309 static struct monitor_ops m32r_cmds;
312 init_m32r_cmds (void)
314 m32r_cmds.flags = MO_CLR_BREAK_USES_ADDR | MO_REGISTER_VALUE_FIRST;
315 m32r_cmds.init = m32r_inits; /* Init strings */
316 m32r_cmds.cont = "go\r"; /* continue command */
317 m32r_cmds.step = "step\r"; /* single step */
318 m32r_cmds.stop = NULL; /* interrupt command */
319 m32r_cmds.set_break = "%x +bp\r"; /* set a breakpoint */
320 m32r_cmds.clr_break = "%x -bp\r"; /* clear a breakpoint */
321 m32r_cmds.clr_all_break = "bpoff\r"; /* clear all breakpoints */
322 m32r_cmds.fill = "%x %x %x fill\r"; /* fill (start length val) */
323 m32r_cmds.setmem.cmdb = "%x 1 %x fill\r"; /* setmem.cmdb (addr, value) */
324 m32r_cmds.setmem.cmdw = "%x 1 %x fillh\r"; /* setmem.cmdw (addr, value) */
325 m32r_cmds.setmem.cmdl = "%x 1 %x fillw\r"; /* setmem.cmdl (addr, value) */
326 m32r_cmds.setmem.cmdll = NULL; /* setmem.cmdll (addr, value) */
327 m32r_cmds.setmem.resp_delim = NULL; /* setmem.resp_delim */
328 m32r_cmds.setmem.term = NULL; /* setmem.term */
329 m32r_cmds.setmem.term_cmd = NULL; /* setmem.term_cmd */
330 m32r_cmds.getmem.cmdb = "%x %x dump\r"; /* getmem.cmdb (addr, len) */
331 m32r_cmds.getmem.cmdw = NULL; /* getmem.cmdw (addr, len) */
332 m32r_cmds.getmem.cmdl = NULL; /* getmem.cmdl (addr, len) */
333 m32r_cmds.getmem.cmdll = NULL; /* getmem.cmdll (addr, len) */
334 m32r_cmds.getmem.resp_delim = ": "; /* getmem.resp_delim */
335 m32r_cmds.getmem.term = NULL; /* getmem.term */
336 m32r_cmds.getmem.term_cmd = NULL; /* getmem.term_cmd */
337 m32r_cmds.setreg.cmd = "%x to %%%s\r"; /* setreg.cmd (name, value) */
338 m32r_cmds.setreg.resp_delim = NULL; /* setreg.resp_delim */
339 m32r_cmds.setreg.term = NULL; /* setreg.term */
340 m32r_cmds.setreg.term_cmd = NULL; /* setreg.term_cmd */
341 m32r_cmds.getreg.cmd = NULL; /* getreg.cmd (name) */
342 m32r_cmds.getreg.resp_delim = NULL; /* getreg.resp_delim */
343 m32r_cmds.getreg.term = NULL; /* getreg.term */
344 m32r_cmds.getreg.term_cmd = NULL; /* getreg.term_cmd */
345 m32r_cmds.dump_registers = ".reg\r"; /* dump_registers */
346 /* register_pattern */
347 m32r_cmds.register_pattern = "\\(\\w+\\) += \\([0-9a-fA-F]+\\b\\)";
348 m32r_cmds.supply_register = m32r_supply_register;
349 m32r_cmds.load = NULL; /* download command */
350 m32r_cmds.loadresp = NULL; /* load response */
351 m32r_cmds.prompt = "ok "; /* monitor command prompt */
352 m32r_cmds.line_term = "\r"; /* end-of-line terminator */
353 m32r_cmds.cmd_end = NULL; /* optional command terminator */
354 m32r_cmds.target = &m32r_ops; /* target operations */
355 m32r_cmds.stopbits = SERIAL_1_STOPBITS; /* number of stop bits */
356 m32r_cmds.regnames = m32r_regnames; /* registers names */
357 m32r_cmds.magic = MONITOR_OPS_MAGIC; /* magic */
358 } /* init_m32r_cmds */
361 m32r_open (const char *args, int from_tty)
363 monitor_open (args, &m32r_cmds, from_tty);
366 /* Mon2000 monitor (MSA2000 board) */
368 static struct target_ops mon2000_ops;
369 static struct monitor_ops mon2000_cmds;
372 init_mon2000_cmds (void)
374 mon2000_cmds.flags = MO_CLR_BREAK_USES_ADDR | MO_REGISTER_VALUE_FIRST;
375 mon2000_cmds.init = m32r_inits; /* Init strings */
376 mon2000_cmds.cont = "go\r"; /* continue command */
377 mon2000_cmds.step = "step\r"; /* single step */
378 mon2000_cmds.stop = NULL; /* interrupt command */
379 mon2000_cmds.set_break = "%x +bp\r"; /* set a breakpoint */
380 mon2000_cmds.clr_break = "%x -bp\r"; /* clear a breakpoint */
381 mon2000_cmds.clr_all_break = "bpoff\r"; /* clear all breakpoints */
382 mon2000_cmds.fill = "%x %x %x fill\r"; /* fill (start length val) */
383 mon2000_cmds.setmem.cmdb = "%x 1 %x fill\r"; /* setmem.cmdb (addr, value) */
384 mon2000_cmds.setmem.cmdw = "%x 1 %x fillh\r"; /* setmem.cmdw (addr, value) */
385 mon2000_cmds.setmem.cmdl = "%x 1 %x fillw\r"; /* setmem.cmdl (addr, value) */
386 mon2000_cmds.setmem.cmdll = NULL; /* setmem.cmdll (addr, value) */
387 mon2000_cmds.setmem.resp_delim = NULL; /* setmem.resp_delim */
388 mon2000_cmds.setmem.term = NULL; /* setmem.term */
389 mon2000_cmds.setmem.term_cmd = NULL; /* setmem.term_cmd */
390 mon2000_cmds.getmem.cmdb = "%x %x dump\r"; /* getmem.cmdb (addr, len) */
391 mon2000_cmds.getmem.cmdw = NULL; /* getmem.cmdw (addr, len) */
392 mon2000_cmds.getmem.cmdl = NULL; /* getmem.cmdl (addr, len) */
393 mon2000_cmds.getmem.cmdll = NULL; /* getmem.cmdll (addr, len) */
394 mon2000_cmds.getmem.resp_delim = ": "; /* getmem.resp_delim */
395 mon2000_cmds.getmem.term = NULL; /* getmem.term */
396 mon2000_cmds.getmem.term_cmd = NULL; /* getmem.term_cmd */
397 mon2000_cmds.setreg.cmd = "%x to %%%s\r"; /* setreg.cmd (name, value) */
398 mon2000_cmds.setreg.resp_delim = NULL; /* setreg.resp_delim */
399 mon2000_cmds.setreg.term = NULL; /* setreg.term */
400 mon2000_cmds.setreg.term_cmd = NULL; /* setreg.term_cmd */
401 mon2000_cmds.getreg.cmd = NULL; /* getreg.cmd (name) */
402 mon2000_cmds.getreg.resp_delim = NULL; /* getreg.resp_delim */
403 mon2000_cmds.getreg.term = NULL; /* getreg.term */
404 mon2000_cmds.getreg.term_cmd = NULL; /* getreg.term_cmd */
405 mon2000_cmds.dump_registers = ".reg\r"; /* dump_registers */
406 /* register_pattern */
407 mon2000_cmds.register_pattern = "\\(\\w+\\) += \\([0-9a-fA-F]+\\b\\)";
408 mon2000_cmds.supply_register = m32r_supply_register;
409 mon2000_cmds.load = NULL; /* download command */
410 mon2000_cmds.loadresp = NULL; /* load response */
411 mon2000_cmds.prompt = "Mon2000>"; /* monitor command prompt */
412 mon2000_cmds.line_term = "\r"; /* end-of-line terminator */
413 mon2000_cmds.cmd_end = NULL; /* optional command terminator */
414 mon2000_cmds.target = &mon2000_ops; /* target operations */
415 mon2000_cmds.stopbits = SERIAL_1_STOPBITS; /* number of stop bits */
416 mon2000_cmds.regnames = m32r_regnames; /* registers names */
417 mon2000_cmds.magic = MONITOR_OPS_MAGIC; /* magic */
418 } /* init_mon2000_cmds */
421 mon2000_open (const char *args, int from_tty)
423 monitor_open (args, &mon2000_cmds, from_tty);
427 m32r_upload_command (char *args, int from_tty)
431 struct timeval start_time, end_time;
432 int resp_len, data_count = 0;
434 struct hostent *hostent;
435 struct in_addr inet_addr;
436 struct cleanup *cleanup;
438 /* First check to see if there's an ethernet port! */
439 monitor_printf ("ust\r");
440 resp_len = monitor_expect_prompt (buf, sizeof (buf));
441 if (!strchr (buf, ':'))
442 error (_("No ethernet connection!"));
446 /* Scan second colon in the output from the "ust" command. */
447 char *myIPaddress = strchr (strchr (buf, ':') + 1, ':') + 1;
449 myIPaddress = skip_spaces (myIPaddress);
451 if (!strncmp (myIPaddress, "0.0.", 4)) /* empty */
452 error (_("Please use 'set board-address' to "
453 "set the M32R-EVA board's IP address."));
454 if (strchr (myIPaddress, '('))
455 *(strchr (myIPaddress, '(')) = '\0'; /* delete trailing junk */
456 board_addr = xstrdup (myIPaddress);
458 if (server_addr == 0)
462 /* Winsock initialization. */
463 if (WSAStartup (MAKEWORD (1, 1), &wd))
464 error (_("Couldn't initialize WINSOCK."));
468 gethostname (buf, sizeof (buf));
471 hostent = gethostbyname (buf);
475 memcpy (&inet_addr.s_addr, hostent->h_addr,
476 sizeof (inet_addr.s_addr));
477 server_addr = (char *) inet_ntoa (inet_addr);
479 server_addr = (char *) inet_ntoa (hostent->h_addr);
483 if (server_addr == 0) /* failed? */
484 error (_("Need to know gdb host computer's "
485 "IP address (use 'set server-address')"));
488 if (args == 0 || args[0] == 0) /* No args: upload the current
490 args = get_exec_file (1);
492 if (args[0] != '/' && download_path == 0)
494 if (current_directory)
495 download_path = xstrdup (current_directory);
497 error (_("Need to know default download "
498 "path (use 'set download-path')"));
501 gettimeofday (&start_time, NULL);
502 monitor_printf ("uhip %s\r", server_addr);
503 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
504 monitor_printf ("ulip %s\r", board_addr);
505 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
507 monitor_printf ("up %s\r", download_path); /* use default path */
509 monitor_printf ("up\r"); /* rooted filename/path */
510 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
512 if (strrchr (args, '.') && !strcmp (strrchr (args, '.'), ".srec"))
513 monitor_printf ("ul %s\r", args);
514 else /* add ".srec" suffix */
515 monitor_printf ("ul %s.srec\r", args);
516 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
518 if (buf[0] == 0 || strstr (buf, "complete") == 0)
519 error (_("Upload file not found: %s.srec\n"
520 "Check IP addresses and download path."),
523 printf_filtered (" -- Ethernet load complete.\n");
525 gettimeofday (&end_time, NULL);
526 abfd = gdb_bfd_open (args, NULL, -1);
527 cleanup = make_cleanup_bfd_unref (abfd);
529 { /* Download is done -- print section statistics. */
530 if (bfd_check_format (abfd, bfd_object) == 0)
532 printf_filtered ("File is not an object file\n");
534 for (s = abfd->sections; s; s = s->next)
535 if (s->flags & SEC_LOAD)
537 bfd_size_type section_size = bfd_section_size (abfd, s);
538 bfd_vma section_base = bfd_section_lma (abfd, s);
540 data_count += section_size;
542 printf_filtered ("Loading section %s, size 0x%lx lma ",
543 bfd_section_name (abfd, s),
544 (unsigned long) section_size);
545 fputs_filtered (paddress (target_gdbarch (), section_base),
547 printf_filtered ("\n");
548 gdb_flush (gdb_stdout);
550 /* Finally, make the PC point at the start address. */
551 regcache_write_pc (get_current_regcache (),
552 bfd_get_start_address (abfd));
553 printf_filtered ("Start address 0x%lx\n",
554 (unsigned long) bfd_get_start_address (abfd));
555 print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
558 inferior_ptid = null_ptid; /* No process now. */
560 /* This is necessary because many things were based on the PC at the
561 time that we attached to the monitor, which is no longer valid
562 now that we have loaded new code (and just changed the PC).
563 Another way to do this might be to call normal_stop, except that
564 the stack may not be valid, and things would get horribly
567 clear_symtab_users (0);
568 do_cleanups (cleanup);
571 /* Provide a prototype to silence -Wmissing-prototypes. */
572 extern initialize_file_ftype _initialize_m32r_rom;
575 _initialize_m32r_rom (void)
577 /* Initialize m32r RevC monitor target. */
579 init_monitor_ops (&m32r_ops);
581 m32r_ops.to_shortname = "m32r";
582 m32r_ops.to_longname = "m32r monitor";
583 m32r_ops.to_load = m32r_load_gen; /* Monitor lacks a download
585 m32r_ops.to_doc = "Debug via the m32r monitor.\n\
586 Specify the serial device it is connected to (e.g. /dev/ttya).";
587 m32r_ops.to_open = m32r_open;
588 add_target (&m32r_ops);
590 /* Initialize mon2000 monitor target */
591 init_mon2000_cmds ();
592 init_monitor_ops (&mon2000_ops);
594 mon2000_ops.to_shortname = "mon2000";
595 mon2000_ops.to_longname = "Mon2000 monitor";
596 mon2000_ops.to_load = m32r_load_gen; /* Monitor lacks a download
598 mon2000_ops.to_doc = "Debug via the Mon2000 monitor.\n\
599 Specify the serial device it is connected to (e.g. /dev/ttya).";
600 mon2000_ops.to_open = mon2000_open;
601 add_target (&mon2000_ops);
603 add_setshow_string_cmd ("download-path", class_obscure, &download_path, _("\
604 Set the default path for downloadable SREC files."), _("\
605 Show the default path for downloadable SREC files."), _("\
606 Determines the default path for downloadable SREC files."),
608 NULL, /* FIXME: i18n: The default path for
609 downloadable SREC files is %s. */
610 &setlist, &showlist);
612 add_setshow_string_cmd ("board-address", class_obscure, &board_addr, _("\
613 Set IP address for M32R-EVA target board."), _("\
614 Show IP address for M32R-EVA target board."), _("\
615 Determine the IP address for M32R-EVA target board."),
617 NULL, /* FIXME: i18n: IP address for
618 M32R-EVA target board is %s. */
619 &setlist, &showlist);
621 add_setshow_string_cmd ("server-address", class_obscure, &server_addr, _("\
622 Set IP address for download server (GDB's host computer)."), _("\
623 Show IP address for download server (GDB's host computer)."), _("\
624 Determine the IP address for download server (GDB's host computer)."),
626 NULL, /* FIXME: i18n: IP address for
627 download server (GDB's host
629 &setlist, &showlist);
631 add_com ("upload", class_obscure, m32r_upload_command, _("\
632 Upload the srec file via the monitor's Ethernet upload capability."));
634 add_com ("tload", class_obscure, m32r_load, _("test upload command."));