projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Rename target_{stop,continue}_ptid
[deliverable/binutils-gdb.git] / gdb / m32r-rom.c
CommitLineData
d95a8903
AC		 1/* Remote debugging interface to m32r and mon2000 ROM monitors for GDB,
2 the GNU debugger.
3b64bf98 3
ecd75fc8 4 Copyright (C) 1996-2014 Free Software Foundation, Inc.
d95a8903
AC		 5
6 Adapted by Michael Snyder of Cygnus Support.
7
8 This file is part of GDB.
9
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
a9762ec7 12 the Free Software Foundation; either version 3 of the License, or
d95a8903
AC		 13 (at your option) any later version.
14
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.
19
20 You should have received a copy of the GNU General Public License
a9762ec7 21 along with this program. If not, see <http://www.gnu.org/licenses/>. */
d95a8903 22
025bb325 23/* This module defines communication with the Renesas m32r monitor. */
d95a8903
AC		 24
25#include "defs.h"
26#include "gdbcore.h"
27#include "target.h"
60250e8b 28#include "exceptions.h"
d95a8903
AC		 29#include "monitor.h"
30#include "serial.h"
31#include "symtab.h"
32#include "command.h"
33#include "gdbcmd.h"
34#include "symfile.h" /* for generic load */
2b71414d 35#include <sys/time.h>
d95a8903 36#include <time.h> /* for time_t */
025bb325 37#include "objfiles.h" /* for ALL_OBJFILES etc. */
fb14de7b 38#include "inferior.h"
d95a8903
AC		 39#include <ctype.h>
40#include "regcache.h"
cbb099e8 41#include "gdb_bfd.h"
529480d0 42#include "cli/cli-utils.h"
d95a8903 43
d95a8903
AC		 44/*
45 * All this stuff just to get my host computer's IP address!
46 */
cbba9205 47#ifdef __MINGW32__
b467f580 48#include <winsock2.h>
cbba9205 49#else
d95a8903
AC		 50#include <sys/types.h>
51#include <netdb.h> /* for hostent */
52#include <netinet/in.h> /* for struct in_addr */
53#if 1
54#include <arpa/inet.h> /* for inet_ntoa */
55#endif
cbba9205 56#endif
d95a8903
AC		 57
58static char *board_addr; /* user-settable IP address for M32R-EVA */
59static char *server_addr; /* user-settable IP address for gdb host */
60static char *download_path; /* user-settable path for SREC files */
61
62
63/* REGNUM */
64#define PSW_REGNUM 16
65#define SPI_REGNUM 18
66#define SPU_REGNUM 19
67#define ACCL_REGNUM 22
68#define ACCH_REGNUM 23
69
70
71/*
72 * Function: m32r_load_1 (helper function)
73 */
74
75static void
76m32r_load_section (bfd *abfd, asection *s, void *obj)
77{
78 unsigned int *data_count = obj;
79 if (s->flags & SEC_LOAD)
80 {
f5656ead 81 int addr_size = gdbarch_addr_bit (target_gdbarch ()) / 8;
d95a8903
AC		 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;
85
86 *data_count += section_size;
87
88 printf_filtered ("Loading section %s, size 0x%lx lma ",
ec20a626
UW		 89 bfd_section_name (abfd, s),
90 (unsigned long) section_size);
f5656ead 91 fputs_filtered (paddress (target_gdbarch (), section_base), gdb_stdout);
d95a8903
AC		 92 printf_filtered ("\n");
93 gdb_flush (gdb_stdout);
5af949e3 94 monitor_printf ("%s mw\r", phex_nz (section_base, addr_size));
d95a8903
AC		 95 for (i = 0; i < section_size; i += 4)
96 {
97 QUIT;
98 monitor_expect (" -> ", NULL, 0);
99 bfd_get_section_contents (abfd, s, (char *) &buffer, i, 4);
100 monitor_printf ("%x\n", buffer);
101 }
102 monitor_expect (" -> ", NULL, 0);
103 monitor_printf ("q\n");
104 monitor_expect_prompt (NULL, 0);
105 }
106}
107
108static int
109m32r_load_1 (void *dummy)
110{
111 int data_count = 0;
112
113 bfd_map_over_sections ((bfd *) dummy, m32r_load_section, &data_count);
114 return data_count;
115}
116
117/*
118 * Function: m32r_load (an alternate way to load)
119 */
120
121static void
122m32r_load (char *filename, int from_tty)
123{
124 bfd *abfd;
22e048c9 125 unsigned int data_count = 0;
2b71414d 126 struct timeval start_time, end_time;
d6ad71ba 127 struct cleanup *cleanup;
d95a8903
AC		 128
129 if (filename == NULL || filename[0] == 0)
130 filename = get_exec_file (1);
131
1c00ec6b 132 abfd = gdb_bfd_open (filename, NULL, -1);
d95a8903 133 if (!abfd)
8a3fe4f8 134 error (_("Unable to open file %s."), filename);
f9a062ff 135 cleanup = make_cleanup_bfd_unref (abfd);
d95a8903 136 if (bfd_check_format (abfd, bfd_object) == 0)
8a3fe4f8 137 error (_("File is not an object file."));
2b71414d 138 gettimeofday (&start_time, NULL);
d95a8903
AC		 139#if 0
140 for (s = abfd->sections; s; s = s->next)
141 if (s->flags & SEC_LOAD)
142 {
143 bfd_size_type section_size = bfd_section_size (abfd, s);
144 bfd_vma section_base = bfd_section_vma (abfd, s);
145 unsigned int buffer;
146
147 data_count += section_size;
148
149 printf_filtered ("Loading section %s, size 0x%lx vma ",
150 bfd_section_name (abfd, s), section_size);
f5656ead 151 fputs_filtered (paddress (target_gdbarch (), section_base), gdb_stdout);
d95a8903
AC		 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)
156 {
157 monitor_expect (" -> ", NULL, 0);
158 bfd_get_section_contents (abfd, s, (char *) &buffer, i, 4);
159 monitor_printf ("%x\n", buffer);
160 }
161 monitor_expect (" -> ", NULL, 0);
162 monitor_printf ("q\n");
163 monitor_expect_prompt (NULL, 0);
164 }
165#else
166 if (!(catch_errors (m32r_load_1, abfd, "Load aborted!\n", RETURN_MASK_ALL)))
167 {
168 monitor_printf ("q\n");
4bbc010a 169 do_cleanups (cleanup);
d95a8903
AC		 170 return;
171 }
172#endif
2b71414d 173 gettimeofday (&end_time, NULL);
ec20a626
UW		 174 printf_filtered ("Start address 0x%lx\n",
175 (unsigned long) bfd_get_start_address (abfd));
2b71414d
DJ		 176 print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
177 &end_time);
d95a8903 178
025bb325 179 /* Finally, make the PC point at the start address. */
d95a8903 180 if (exec_bfd)
fb14de7b
UW		 181 regcache_write_pc (get_current_regcache (),
182 bfd_get_start_address (exec_bfd));
d95a8903 183
025bb325 184 inferior_ptid = null_ptid; /* No process now. */
d95a8903
AC		 185
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
025bb325 191 confused... */
d95a8903 192
c1e56572 193 clear_symtab_users (0);
d6ad71ba 194 do_cleanups (cleanup);
d95a8903
AC		 195}
196
197static void
9cbe5fff 198m32r_load_gen (struct target_ops *self, const char *filename, int from_tty)
d95a8903
AC		 199{
200 generic_load (filename, from_tty);
201}
202
025bb325 203/* This array of registers needs to match the indexes used by GDB. The
d95a8903
AC		 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
025bb325 206 either. So, typing "info reg sp" becomes an "A7". */
d95a8903
AC		 207
208static 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",
212};
213
214static void
c410a84c
UW		 215m32r_supply_register (struct regcache *regcache, char *regname,
216 int regnamelen, char *val, int vallen)
d95a8903
AC		 217{
218 int regno;
219 int num_regs = sizeof (m32r_regnames) / sizeof (m32r_regnames[0]);
40a6adc1 220 struct gdbarch *gdbarch = get_regcache_arch (regcache);
d95a8903
AC		 221
222 for (regno = 0; regno < num_regs; regno++)
223 if (strncmp (regname, m32r_regnames[regno], regnamelen) == 0)
224 break;
225
226 if (regno >= num_regs)
227 return; /* no match */
228
229 if (regno == ACCL_REGNUM)
025bb325 230 { /* Special handling for 64-bit acc reg. */
c410a84c 231 monitor_supply_register (regcache, ACCH_REGNUM, val);
025bb325 232 val = strchr (val, ':'); /* Skip past ':' to get 2nd word. */
d95a8903 233 if (val != NULL)
c410a84c 234 monitor_supply_register (regcache, ACCL_REGNUM, val + 1);
d95a8903
AC		 235 }
236 else
237 {
c410a84c 238 monitor_supply_register (regcache, regno, val);
d95a8903
AC		 239 if (regno == PSW_REGNUM)
240 {
22e048c9
SDJ		 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)
d95a8903
AC		 244 unsigned long psw = strtoul (val, NULL, 16);
245 char *zero = "00000000", *one = "00000001";
22e048c9 246#endif
d95a8903
AC		 247
248#ifdef SM_REGNUM
249 /* Stack mode bit */
025bb325
MS		 250 monitor_supply_register (regcache, SM_REGNUM,
251 (psw & 0x80) ? one : zero);
d95a8903
AC		 252#endif
253#ifdef BSM_REGNUM
254 /* Backup stack mode bit */
025bb325
MS		 255 monitor_supply_register (regcache, BSM_REGNUM,
256 (psw & 0x8000) ? one : zero);
d95a8903
AC		 257#endif
258#ifdef IE_REGNUM
259 /* Interrupt enable bit */
025bb325
MS		 260 monitor_supply_register (regcache, IE_REGNUM,
261 (psw & 0x40) ? one : zero);
d95a8903
AC		 262#endif
263#ifdef BIE_REGNUM
264 /* Backup interrupt enable bit */
025bb325
MS		 265 monitor_supply_register (regcache, BIE_REGNUM,
266 (psw & 0x4000) ? one : zero);
d95a8903
AC		 267#endif
268#ifdef COND_REGNUM
269 /* Condition bit (carry etc.) */
025bb325
MS		 270 monitor_supply_register (regcache, COND_REGNUM,
271 (psw & 0x1) ? one : zero);
d95a8903
AC		 272#endif
273#ifdef CBR_REGNUM
025bb325
MS		 274 monitor_supply_register (regcache, CBR_REGNUM,
275 (psw & 0x1) ? one : zero);
d95a8903
AC		 276#endif
277#ifdef BPC_REGNUM
025bb325
MS		 278 monitor_supply_register (regcache, BPC_REGNUM,
279 zero); /* KLUDGE: (???????) */
d95a8903
AC		 280#endif
281#ifdef BCARRY_REGNUM
025bb325
MS		 282 monitor_supply_register (regcache, BCARRY_REGNUM,
283 zero); /* KLUDGE: (??????) */
d95a8903
AC		 284#endif
285 }
286
287 if (regno == SPI_REGNUM || regno == SPU_REGNUM)
025bb325 288 { /* special handling for stack pointer (spu or spi). */
7e3dd49e 289 ULONGEST stackmode, psw;
c410a84c 290 regcache_cooked_read_unsigned (regcache, PSW_REGNUM, &psw);
7e3dd49e 291 stackmode = psw & 0x80;
d95a8903
AC		 292
293 if (regno == SPI_REGNUM && !stackmode) /* SP == SPI */
3e8c568d 294 monitor_supply_register (regcache,
40a6adc1 295 gdbarch_sp_regnum (gdbarch), val);
d95a8903 296 else if (regno == SPU_REGNUM && stackmode) /* SP == SPU */
3e8c568d 297 monitor_supply_register (regcache,
40a6adc1 298 gdbarch_sp_regnum (gdbarch), val);
d95a8903
AC		 299 }
300 }
301}
302
303/* m32r RevC board monitor */
304
305static struct target_ops m32r_ops;
306
307static char *m32r_inits[] = { "\r", NULL };
308
309static struct monitor_ops m32r_cmds;
310
311static void
312init_m32r_cmds (void)
313{
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 */
025bb325
MS		 346 /* register_pattern */
347 m32r_cmds.register_pattern = "\\(\\w+\\) += \\([0-9a-fA-F]+\\b\\)";
23a6d369 348 m32r_cmds.supply_register = m32r_supply_register;
d95a8903
AC		 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 */
359
360static void
014f9477 361m32r_open (const char *args, int from_tty)
d95a8903
AC		 362{
363 monitor_open (args, &m32r_cmds, from_tty);
364}
365
366/* Mon2000 monitor (MSA2000 board) */
367
368static struct target_ops mon2000_ops;
369static struct monitor_ops mon2000_cmds;
370
371static void
372init_mon2000_cmds (void)
373{
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 */
025bb325
MS		 406 /* register_pattern */
407 mon2000_cmds.register_pattern = "\\(\\w+\\) += \\([0-9a-fA-F]+\\b\\)";
23a6d369 408 mon2000_cmds.supply_register = m32r_supply_register;
d95a8903
AC		 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 */
419
420static void
014f9477 421mon2000_open (const char *args, int from_tty)
d95a8903
AC		 422{
423 monitor_open (args, &mon2000_cmds, from_tty);
424}
425
d95a8903
AC		 426static void
427m32r_upload_command (char *args, int from_tty)
428{
429 bfd *abfd;
430 asection *s;
2b71414d 431 struct timeval start_time, end_time;
d95a8903
AC		 432 int resp_len, data_count = 0;
433 char buf[1024];
434 struct hostent *hostent;
435 struct in_addr inet_addr;
d6ad71ba 436 struct cleanup *cleanup;
d95a8903 437
025bb325 438 /* First check to see if there's an ethernet port! */
d95a8903
AC		 439 monitor_printf ("ust\r");
440 resp_len = monitor_expect_prompt (buf, sizeof (buf));
441 if (!strchr (buf, ':'))
8a3fe4f8 442 error (_("No ethernet connection!"));
d95a8903
AC		 443
444 if (board_addr == 0)
445 {
025bb325 446 /* Scan second colon in the output from the "ust" command. */
d95a8903
AC		 447 char *myIPaddress = strchr (strchr (buf, ':') + 1, ':') + 1;
448
529480d0 449 myIPaddress = skip_spaces (myIPaddress);
d95a8903
AC		 450
451 if (!strncmp (myIPaddress, "0.0.", 4)) /* empty */
35ecd2d6
MS		 452 error (_("Please use 'set board-address' to "
453 "set the M32R-EVA board's IP address."));
d95a8903
AC		 454 if (strchr (myIPaddress, '('))
455 *(strchr (myIPaddress, '(')) = '\0'; /* delete trailing junk */
456 board_addr = xstrdup (myIPaddress);
457 }
458 if (server_addr == 0)
459 {
cbba9205
KI		 460#ifdef __MINGW32__
461 WSADATA wd;
025bb325 462 /* Winsock initialization. */
cbba9205
KI		 463 if (WSAStartup (MAKEWORD (1, 1), &wd))
464 error (_("Couldn't initialize WINSOCK."));
465#endif
466
d95a8903
AC		 467 buf[0] = 0;
468 gethostname (buf, sizeof (buf));
469 if (buf[0] != 0)
d95a8903 470 {
880bc914
AC		 471 hostent = gethostbyname (buf);
472 if (hostent != 0)
473 {
d95a8903 474#if 1
880bc914
AC		 475 memcpy (&inet_addr.s_addr, hostent->h_addr,
476 sizeof (inet_addr.s_addr));
477 server_addr = (char *) inet_ntoa (inet_addr);
d95a8903 478#else
880bc914 479 server_addr = (char *) inet_ntoa (hostent->h_addr);
d95a8903 480#endif
880bc914 481 }
d95a8903 482 }
025bb325 483 if (server_addr == 0) /* failed? */
35ecd2d6
MS		 484 error (_("Need to know gdb host computer's "
485 "IP address (use 'set server-address')"));
d95a8903
AC		 486 }
487
025bb325
MS		 488 if (args == 0 || args[0] == 0) /* No args: upload the current
489 file. */
d95a8903
AC		 490 args = get_exec_file (1);
491
492 if (args[0] != '/' && download_path == 0)
493 {
494 if (current_directory)
495 download_path = xstrdup (current_directory);
496 else
35ecd2d6
MS		 497 error (_("Need to know default download "
498 "path (use 'set download-path')"));
d95a8903
AC		 499 }
500
2b71414d 501 gettimeofday (&start_time, NULL);
d95a8903 502 monitor_printf ("uhip %s\r", server_addr);
025bb325 503 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903 504 monitor_printf ("ulip %s\r", board_addr);
025bb325 505 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 506 if (args[0] != '/')
507 monitor_printf ("up %s\r", download_path); /* use default path */
508 else
509 monitor_printf ("up\r"); /* rooted filename/path */
025bb325 510 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 511
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);
025bb325 516 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 517
518 if (buf[0] == 0 || strstr (buf, "complete") == 0)
35ecd2d6
MS		 519 error (_("Upload file not found: %s.srec\n"
520 "Check IP addresses and download path."),
521 args);
d95a8903
AC		 522 else
523 printf_filtered (" -- Ethernet load complete.\n");
524
2b71414d 525 gettimeofday (&end_time, NULL);
1c00ec6b 526 abfd = gdb_bfd_open (args, NULL, -1);
f9a062ff 527 cleanup = make_cleanup_bfd_unref (abfd);
d95a8903 528 if (abfd != NULL)
025bb325 529 { /* Download is done -- print section statistics. */
d95a8903
AC		 530 if (bfd_check_format (abfd, bfd_object) == 0)
531 {
532 printf_filtered ("File is not an object file\n");
533 }
534 for (s = abfd->sections; s; s = s->next)
535 if (s->flags & SEC_LOAD)
536 {
537 bfd_size_type section_size = bfd_section_size (abfd, s);
538 bfd_vma section_base = bfd_section_lma (abfd, s);
d95a8903
AC		 539
540 data_count += section_size;
541
542 printf_filtered ("Loading section %s, size 0x%lx lma ",
ec20a626
UW		 543 bfd_section_name (abfd, s),
544 (unsigned long) section_size);
f5656ead 545 fputs_filtered (paddress (target_gdbarch (), section_base),
5af949e3 546 gdb_stdout);
d95a8903
AC		 547 printf_filtered ("\n");
548 gdb_flush (gdb_stdout);
549 }
025bb325 550 /* Finally, make the PC point at the start address. */
fb14de7b
UW		 551 regcache_write_pc (get_current_regcache (),
552 bfd_get_start_address (abfd));
ec20a626
UW		 553 printf_filtered ("Start address 0x%lx\n",
554 (unsigned long) bfd_get_start_address (abfd));
2b71414d
DJ		 555 print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
556 &end_time);
d95a8903 557 }
025bb325 558 inferior_ptid = null_ptid; /* No process now. */
d95a8903
AC		 559
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
025bb325 565 confused... */
d95a8903 566
c1e56572 567 clear_symtab_users (0);
d6ad71ba 568 do_cleanups (cleanup);
d95a8903
AC		 569}
570
63807e1d
PA		 571/* Provide a prototype to silence -Wmissing-prototypes. */
572extern initialize_file_ftype _initialize_m32r_rom;
573
d95a8903
AC		 574void
575_initialize_m32r_rom (void)
576{
025bb325 577 /* Initialize m32r RevC monitor target. */
d95a8903
AC		 578 init_m32r_cmds ();
579 init_monitor_ops (&m32r_ops);
580
581 m32r_ops.to_shortname = "m32r";
582 m32r_ops.to_longname = "m32r monitor";
025bb325
MS		 583 m32r_ops.to_load = m32r_load_gen; /* Monitor lacks a download
584 command. */
d95a8903
AC		 585 m32r_ops.to_doc = "Debug via the m32r monitor.\n\
586Specify the serial device it is connected to (e.g. /dev/ttya).";
587 m32r_ops.to_open = m32r_open;
588 add_target (&m32r_ops);
589
590 /* Initialize mon2000 monitor target */
591 init_mon2000_cmds ();
592 init_monitor_ops (&mon2000_ops);
593
594 mon2000_ops.to_shortname = "mon2000";
595 mon2000_ops.to_longname = "Mon2000 monitor";
025bb325
MS		 596 mon2000_ops.to_load = m32r_load_gen; /* Monitor lacks a download
597 command. */
d95a8903
AC		 598 mon2000_ops.to_doc = "Debug via the Mon2000 monitor.\n\
599Specify the serial device it is connected to (e.g. /dev/ttya).";
600 mon2000_ops.to_open = mon2000_open;
601 add_target (&mon2000_ops);
602
7915a72c
AC		 603 add_setshow_string_cmd ("download-path", class_obscure, &download_path, _("\
604Set the default path for downloadable SREC files."), _("\
605Show the default path for downloadable SREC files."), _("\
606Determines the default path for downloadable SREC files."),
2c5b56ce 607 NULL,
025bb325
MS		 608 NULL, /* FIXME: i18n: The default path for
609 downloadable SREC files is %s. */
2c5b56ce 610 &setlist, &showlist);
7915a72c
AC		 611
612 add_setshow_string_cmd ("board-address", class_obscure, &board_addr, _("\
613Set IP address for M32R-EVA target board."), _("\
614Show IP address for M32R-EVA target board."), _("\
615Determine the IP address for M32R-EVA target board."),
2c5b56ce 616 NULL,
025bb325
MS		 617 NULL, /* FIXME: i18n: IP address for
618 M32R-EVA target board is %s. */
2c5b56ce 619 &setlist, &showlist);
7915a72c
AC		 620
621 add_setshow_string_cmd ("server-address", class_obscure, &server_addr, _("\
622Set IP address for download server (GDB's host computer)."), _("\
623Show IP address for download server (GDB's host computer)."), _("\
624Determine the IP address for download server (GDB's host computer)."),
2c5b56ce 625 NULL,
025bb325
MS		 626 NULL, /* FIXME: i18n: IP address for
627 download server (GDB's host
628 computer) is %s. */
2c5b56ce 629 &setlist, &showlist);
d95a8903 630
1bedd215
AC		 631 add_com ("upload", class_obscure, m32r_upload_command, _("\
632Upload the srec file via the monitor's Ethernet upload capability."));
d95a8903 633
1bedd215 634 add_com ("tload", class_obscure, m32r_load, _("test upload command."));
d95a8903 635}
GDB Binutils - Deliverables
This page took 0.974386 seconds and 4 git commands to generate.