projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
*** empty log message ***
[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
28e7fd62 4 Copyright (C) 1996-2013 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
AC		 36#include <time.h> /* for time_t */
37#include "gdb_string.h"
025bb325 38#include "objfiles.h" /* for ALL_OBJFILES etc. */
fb14de7b 39#include "inferior.h"
d95a8903
AC		 40#include <ctype.h>
41#include "regcache.h"
cbb099e8 42#include "gdb_bfd.h"
529480d0 43#include "cli/cli-utils.h"
d95a8903 44
d95a8903
AC		 45/*
46 * All this stuff just to get my host computer's IP address!
47 */
cbba9205 48#ifdef __MINGW32__
b467f580 49#include <winsock2.h>
cbba9205 50#else
d95a8903
AC		 51#include <sys/types.h>
52#include <netdb.h> /* for hostent */
53#include <netinet/in.h> /* for struct in_addr */
54#if 1
55#include <arpa/inet.h> /* for inet_ntoa */
56#endif
cbba9205 57#endif
d95a8903
AC		 58
59static char *board_addr; /* user-settable IP address for M32R-EVA */
60static char *server_addr; /* user-settable IP address for gdb host */
61static char *download_path; /* user-settable path for SREC files */
62
63
64/* REGNUM */
65#define PSW_REGNUM 16
66#define SPI_REGNUM 18
67#define SPU_REGNUM 19
68#define ACCL_REGNUM 22
69#define ACCH_REGNUM 23
70
71
72/*
73 * Function: m32r_load_1 (helper function)
74 */
75
76static void
77m32r_load_section (bfd *abfd, asection *s, void *obj)
78{
79 unsigned int *data_count = obj;
80 if (s->flags & SEC_LOAD)
81 {
f5656ead 82 int addr_size = gdbarch_addr_bit (target_gdbarch ()) / 8;
d95a8903
AC		 83 bfd_size_type section_size = bfd_section_size (abfd, s);
84 bfd_vma section_base = bfd_section_lma (abfd, s);
85 unsigned int buffer, i;
86
87 *data_count += section_size;
88
89 printf_filtered ("Loading section %s, size 0x%lx lma ",
ec20a626
UW		 90 bfd_section_name (abfd, s),
91 (unsigned long) section_size);
f5656ead 92 fputs_filtered (paddress (target_gdbarch (), section_base), gdb_stdout);
d95a8903
AC		 93 printf_filtered ("\n");
94 gdb_flush (gdb_stdout);
5af949e3 95 monitor_printf ("%s mw\r", phex_nz (section_base, addr_size));
d95a8903
AC		 96 for (i = 0; i < section_size; i += 4)
97 {
98 QUIT;
99 monitor_expect (" -> ", NULL, 0);
100 bfd_get_section_contents (abfd, s, (char *) &buffer, i, 4);
101 monitor_printf ("%x\n", buffer);
102 }
103 monitor_expect (" -> ", NULL, 0);
104 monitor_printf ("q\n");
105 monitor_expect_prompt (NULL, 0);
106 }
107}
108
109static int
110m32r_load_1 (void *dummy)
111{
112 int data_count = 0;
113
114 bfd_map_over_sections ((bfd *) dummy, m32r_load_section, &data_count);
115 return data_count;
116}
117
118/*
119 * Function: m32r_load (an alternate way to load)
120 */
121
122static void
123m32r_load (char *filename, int from_tty)
124{
125 bfd *abfd;
22e048c9 126 unsigned int data_count = 0;
2b71414d 127 struct timeval start_time, end_time;
d6ad71ba 128 struct cleanup *cleanup;
d95a8903
AC		 129
130 if (filename == NULL || filename[0] == 0)
131 filename = get_exec_file (1);
132
1c00ec6b 133 abfd = gdb_bfd_open (filename, NULL, -1);
d95a8903 134 if (!abfd)
8a3fe4f8 135 error (_("Unable to open file %s."), filename);
f9a062ff 136 cleanup = make_cleanup_bfd_unref (abfd);
d95a8903 137 if (bfd_check_format (abfd, bfd_object) == 0)
8a3fe4f8 138 error (_("File is not an object file."));
2b71414d 139 gettimeofday (&start_time, NULL);
d95a8903
AC		 140#if 0
141 for (s = abfd->sections; s; s = s->next)
142 if (s->flags & SEC_LOAD)
143 {
144 bfd_size_type section_size = bfd_section_size (abfd, s);
145 bfd_vma section_base = bfd_section_vma (abfd, s);
146 unsigned int buffer;
147
148 data_count += section_size;
149
150 printf_filtered ("Loading section %s, size 0x%lx vma ",
151 bfd_section_name (abfd, s), section_size);
f5656ead 152 fputs_filtered (paddress (target_gdbarch (), section_base), gdb_stdout);
d95a8903
AC		 153 printf_filtered ("\n");
154 gdb_flush (gdb_stdout);
155 monitor_printf ("%x mw\r", section_base);
156 for (i = 0; i < section_size; i += 4)
157 {
158 monitor_expect (" -> ", NULL, 0);
159 bfd_get_section_contents (abfd, s, (char *) &buffer, i, 4);
160 monitor_printf ("%x\n", buffer);
161 }
162 monitor_expect (" -> ", NULL, 0);
163 monitor_printf ("q\n");
164 monitor_expect_prompt (NULL, 0);
165 }
166#else
167 if (!(catch_errors (m32r_load_1, abfd, "Load aborted!\n", RETURN_MASK_ALL)))
168 {
169 monitor_printf ("q\n");
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
198m32r_load_gen (char *filename, int from_tty)
199{
200 generic_load (filename, from_tty);
201}
202
203static void m32r_open (char *args, int from_tty);
204static void mon2000_open (char *args, int from_tty);
205
025bb325 206/* This array of registers needs to match the indexes used by GDB. The
d95a8903
AC		 207 whole reason this exists is because the various ROM monitors use
208 different names than GDB does, and don't support all the registers
025bb325 209 either. So, typing "info reg sp" becomes an "A7". */
d95a8903
AC		 210
211static char *m32r_regnames[] =
212 { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
213 "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",
214 "psw", "cbr", "spi", "spu", "bpc", "pc", "accl", "acch",
215};
216
217static void
c410a84c
UW		 218m32r_supply_register (struct regcache *regcache, char *regname,
219 int regnamelen, char *val, int vallen)
d95a8903
AC		 220{
221 int regno;
222 int num_regs = sizeof (m32r_regnames) / sizeof (m32r_regnames[0]);
40a6adc1 223 struct gdbarch *gdbarch = get_regcache_arch (regcache);
d95a8903
AC		 224
225 for (regno = 0; regno < num_regs; regno++)
226 if (strncmp (regname, m32r_regnames[regno], regnamelen) == 0)
227 break;
228
229 if (regno >= num_regs)
230 return; /* no match */
231
232 if (regno == ACCL_REGNUM)
025bb325 233 { /* Special handling for 64-bit acc reg. */
c410a84c 234 monitor_supply_register (regcache, ACCH_REGNUM, val);
025bb325 235 val = strchr (val, ':'); /* Skip past ':' to get 2nd word. */
d95a8903 236 if (val != NULL)
c410a84c 237 monitor_supply_register (regcache, ACCL_REGNUM, val + 1);
d95a8903
AC		 238 }
239 else
240 {
c410a84c 241 monitor_supply_register (regcache, regno, val);
d95a8903
AC		 242 if (regno == PSW_REGNUM)
243 {
22e048c9
SDJ		 244#if (defined SM_REGNUM || defined BSM_REGNUM || defined IE_REGNUM \
245 || defined BIE_REGNUM || defined COND_REGNUM || defined CBR_REGNUM \
246 || defined BPC_REGNUM || defined BCARRY_REGNUM)
d95a8903
AC		 247 unsigned long psw = strtoul (val, NULL, 16);
248 char *zero = "00000000", *one = "00000001";
22e048c9 249#endif
d95a8903
AC		 250
251#ifdef SM_REGNUM
252 /* Stack mode bit */
025bb325
MS		 253 monitor_supply_register (regcache, SM_REGNUM,
254 (psw & 0x80) ? one : zero);
d95a8903
AC		 255#endif
256#ifdef BSM_REGNUM
257 /* Backup stack mode bit */
025bb325
MS		 258 monitor_supply_register (regcache, BSM_REGNUM,
259 (psw & 0x8000) ? one : zero);
d95a8903
AC		 260#endif
261#ifdef IE_REGNUM
262 /* Interrupt enable bit */
025bb325
MS		 263 monitor_supply_register (regcache, IE_REGNUM,
264 (psw & 0x40) ? one : zero);
d95a8903
AC		 265#endif
266#ifdef BIE_REGNUM
267 /* Backup interrupt enable bit */
025bb325
MS		 268 monitor_supply_register (regcache, BIE_REGNUM,
269 (psw & 0x4000) ? one : zero);
d95a8903
AC		 270#endif
271#ifdef COND_REGNUM
272 /* Condition bit (carry etc.) */
025bb325
MS		 273 monitor_supply_register (regcache, COND_REGNUM,
274 (psw & 0x1) ? one : zero);
d95a8903
AC		 275#endif
276#ifdef CBR_REGNUM
025bb325
MS		 277 monitor_supply_register (regcache, CBR_REGNUM,
278 (psw & 0x1) ? one : zero);
d95a8903
AC		 279#endif
280#ifdef BPC_REGNUM
025bb325
MS		 281 monitor_supply_register (regcache, BPC_REGNUM,
282 zero); /* KLUDGE: (???????) */
d95a8903
AC		 283#endif
284#ifdef BCARRY_REGNUM
025bb325
MS		 285 monitor_supply_register (regcache, BCARRY_REGNUM,
286 zero); /* KLUDGE: (??????) */
d95a8903
AC		 287#endif
288 }
289
290 if (regno == SPI_REGNUM || regno == SPU_REGNUM)
025bb325 291 { /* special handling for stack pointer (spu or spi). */
7e3dd49e 292 ULONGEST stackmode, psw;
c410a84c 293 regcache_cooked_read_unsigned (regcache, PSW_REGNUM, &psw);
7e3dd49e 294 stackmode = psw & 0x80;
d95a8903
AC		 295
296 if (regno == SPI_REGNUM && !stackmode) /* SP == SPI */
3e8c568d 297 monitor_supply_register (regcache,
40a6adc1 298 gdbarch_sp_regnum (gdbarch), val);
d95a8903 299 else if (regno == SPU_REGNUM && stackmode) /* SP == SPU */
3e8c568d 300 monitor_supply_register (regcache,
40a6adc1 301 gdbarch_sp_regnum (gdbarch), val);
d95a8903
AC		 302 }
303 }
304}
305
306/* m32r RevC board monitor */
307
308static struct target_ops m32r_ops;
309
310static char *m32r_inits[] = { "\r", NULL };
311
312static struct monitor_ops m32r_cmds;
313
314static void
315init_m32r_cmds (void)
316{
317 m32r_cmds.flags = MO_CLR_BREAK_USES_ADDR | MO_REGISTER_VALUE_FIRST;
318 m32r_cmds.init = m32r_inits; /* Init strings */
319 m32r_cmds.cont = "go\r"; /* continue command */
320 m32r_cmds.step = "step\r"; /* single step */
321 m32r_cmds.stop = NULL; /* interrupt command */
322 m32r_cmds.set_break = "%x +bp\r"; /* set a breakpoint */
323 m32r_cmds.clr_break = "%x -bp\r"; /* clear a breakpoint */
324 m32r_cmds.clr_all_break = "bpoff\r"; /* clear all breakpoints */
325 m32r_cmds.fill = "%x %x %x fill\r"; /* fill (start length val) */
326 m32r_cmds.setmem.cmdb = "%x 1 %x fill\r"; /* setmem.cmdb (addr, value) */
327 m32r_cmds.setmem.cmdw = "%x 1 %x fillh\r"; /* setmem.cmdw (addr, value) */
328 m32r_cmds.setmem.cmdl = "%x 1 %x fillw\r"; /* setmem.cmdl (addr, value) */
329 m32r_cmds.setmem.cmdll = NULL; /* setmem.cmdll (addr, value) */
330 m32r_cmds.setmem.resp_delim = NULL; /* setmem.resp_delim */
331 m32r_cmds.setmem.term = NULL; /* setmem.term */
332 m32r_cmds.setmem.term_cmd = NULL; /* setmem.term_cmd */
333 m32r_cmds.getmem.cmdb = "%x %x dump\r"; /* getmem.cmdb (addr, len) */
334 m32r_cmds.getmem.cmdw = NULL; /* getmem.cmdw (addr, len) */
335 m32r_cmds.getmem.cmdl = NULL; /* getmem.cmdl (addr, len) */
336 m32r_cmds.getmem.cmdll = NULL; /* getmem.cmdll (addr, len) */
337 m32r_cmds.getmem.resp_delim = ": "; /* getmem.resp_delim */
338 m32r_cmds.getmem.term = NULL; /* getmem.term */
339 m32r_cmds.getmem.term_cmd = NULL; /* getmem.term_cmd */
340 m32r_cmds.setreg.cmd = "%x to %%%s\r"; /* setreg.cmd (name, value) */
341 m32r_cmds.setreg.resp_delim = NULL; /* setreg.resp_delim */
342 m32r_cmds.setreg.term = NULL; /* setreg.term */
343 m32r_cmds.setreg.term_cmd = NULL; /* setreg.term_cmd */
344 m32r_cmds.getreg.cmd = NULL; /* getreg.cmd (name) */
345 m32r_cmds.getreg.resp_delim = NULL; /* getreg.resp_delim */
346 m32r_cmds.getreg.term = NULL; /* getreg.term */
347 m32r_cmds.getreg.term_cmd = NULL; /* getreg.term_cmd */
348 m32r_cmds.dump_registers = ".reg\r"; /* dump_registers */
025bb325
MS		 349 /* register_pattern */
350 m32r_cmds.register_pattern = "\\(\\w+\\) += \\([0-9a-fA-F]+\\b\\)";
23a6d369 351 m32r_cmds.supply_register = m32r_supply_register;
d95a8903
AC		 352 m32r_cmds.load = NULL; /* download command */
353 m32r_cmds.loadresp = NULL; /* load response */
354 m32r_cmds.prompt = "ok "; /* monitor command prompt */
355 m32r_cmds.line_term = "\r"; /* end-of-line terminator */
356 m32r_cmds.cmd_end = NULL; /* optional command terminator */
357 m32r_cmds.target = &m32r_ops; /* target operations */
358 m32r_cmds.stopbits = SERIAL_1_STOPBITS; /* number of stop bits */
359 m32r_cmds.regnames = m32r_regnames; /* registers names */
360 m32r_cmds.magic = MONITOR_OPS_MAGIC; /* magic */
361} /* init_m32r_cmds */
362
363static void
364m32r_open (char *args, int from_tty)
365{
366 monitor_open (args, &m32r_cmds, from_tty);
367}
368
369/* Mon2000 monitor (MSA2000 board) */
370
371static struct target_ops mon2000_ops;
372static struct monitor_ops mon2000_cmds;
373
374static void
375init_mon2000_cmds (void)
376{
377 mon2000_cmds.flags = MO_CLR_BREAK_USES_ADDR | MO_REGISTER_VALUE_FIRST;
378 mon2000_cmds.init = m32r_inits; /* Init strings */
379 mon2000_cmds.cont = "go\r"; /* continue command */
380 mon2000_cmds.step = "step\r"; /* single step */
381 mon2000_cmds.stop = NULL; /* interrupt command */
382 mon2000_cmds.set_break = "%x +bp\r"; /* set a breakpoint */
383 mon2000_cmds.clr_break = "%x -bp\r"; /* clear a breakpoint */
384 mon2000_cmds.clr_all_break = "bpoff\r"; /* clear all breakpoints */
385 mon2000_cmds.fill = "%x %x %x fill\r"; /* fill (start length val) */
386 mon2000_cmds.setmem.cmdb = "%x 1 %x fill\r"; /* setmem.cmdb (addr, value) */
387 mon2000_cmds.setmem.cmdw = "%x 1 %x fillh\r"; /* setmem.cmdw (addr, value) */
388 mon2000_cmds.setmem.cmdl = "%x 1 %x fillw\r"; /* setmem.cmdl (addr, value) */
389 mon2000_cmds.setmem.cmdll = NULL; /* setmem.cmdll (addr, value) */
390 mon2000_cmds.setmem.resp_delim = NULL; /* setmem.resp_delim */
391 mon2000_cmds.setmem.term = NULL; /* setmem.term */
392 mon2000_cmds.setmem.term_cmd = NULL; /* setmem.term_cmd */
393 mon2000_cmds.getmem.cmdb = "%x %x dump\r"; /* getmem.cmdb (addr, len) */
394 mon2000_cmds.getmem.cmdw = NULL; /* getmem.cmdw (addr, len) */
395 mon2000_cmds.getmem.cmdl = NULL; /* getmem.cmdl (addr, len) */
396 mon2000_cmds.getmem.cmdll = NULL; /* getmem.cmdll (addr, len) */
397 mon2000_cmds.getmem.resp_delim = ": "; /* getmem.resp_delim */
398 mon2000_cmds.getmem.term = NULL; /* getmem.term */
399 mon2000_cmds.getmem.term_cmd = NULL; /* getmem.term_cmd */
400 mon2000_cmds.setreg.cmd = "%x to %%%s\r"; /* setreg.cmd (name, value) */
401 mon2000_cmds.setreg.resp_delim = NULL; /* setreg.resp_delim */
402 mon2000_cmds.setreg.term = NULL; /* setreg.term */
403 mon2000_cmds.setreg.term_cmd = NULL; /* setreg.term_cmd */
404 mon2000_cmds.getreg.cmd = NULL; /* getreg.cmd (name) */
405 mon2000_cmds.getreg.resp_delim = NULL; /* getreg.resp_delim */
406 mon2000_cmds.getreg.term = NULL; /* getreg.term */
407 mon2000_cmds.getreg.term_cmd = NULL; /* getreg.term_cmd */
408 mon2000_cmds.dump_registers = ".reg\r"; /* dump_registers */
025bb325
MS		 409 /* register_pattern */
410 mon2000_cmds.register_pattern = "\\(\\w+\\) += \\([0-9a-fA-F]+\\b\\)";
23a6d369 411 mon2000_cmds.supply_register = m32r_supply_register;
d95a8903
AC		 412 mon2000_cmds.load = NULL; /* download command */
413 mon2000_cmds.loadresp = NULL; /* load response */
414 mon2000_cmds.prompt = "Mon2000>"; /* monitor command prompt */
415 mon2000_cmds.line_term = "\r"; /* end-of-line terminator */
416 mon2000_cmds.cmd_end = NULL; /* optional command terminator */
417 mon2000_cmds.target = &mon2000_ops; /* target operations */
418 mon2000_cmds.stopbits = SERIAL_1_STOPBITS; /* number of stop bits */
419 mon2000_cmds.regnames = m32r_regnames; /* registers names */
420 mon2000_cmds.magic = MONITOR_OPS_MAGIC; /* magic */
421} /* init_mon2000_cmds */
422
423static void
424mon2000_open (char *args, int from_tty)
425{
426 monitor_open (args, &mon2000_cmds, from_tty);
427}
428
d95a8903
AC		 429static void
430m32r_upload_command (char *args, int from_tty)
431{
432 bfd *abfd;
433 asection *s;
2b71414d 434 struct timeval start_time, end_time;
d95a8903
AC		 435 int resp_len, data_count = 0;
436 char buf[1024];
437 struct hostent *hostent;
438 struct in_addr inet_addr;
d6ad71ba 439 struct cleanup *cleanup;
d95a8903 440
025bb325 441 /* First check to see if there's an ethernet port! */
d95a8903
AC		 442 monitor_printf ("ust\r");
443 resp_len = monitor_expect_prompt (buf, sizeof (buf));
444 if (!strchr (buf, ':'))
8a3fe4f8 445 error (_("No ethernet connection!"));
d95a8903
AC		 446
447 if (board_addr == 0)
448 {
025bb325 449 /* Scan second colon in the output from the "ust" command. */
d95a8903
AC		 450 char *myIPaddress = strchr (strchr (buf, ':') + 1, ':') + 1;
451
529480d0 452 myIPaddress = skip_spaces (myIPaddress);
d95a8903
AC		 453
454 if (!strncmp (myIPaddress, "0.0.", 4)) /* empty */
35ecd2d6
MS		 455 error (_("Please use 'set board-address' to "
456 "set the M32R-EVA board's IP address."));
d95a8903
AC		 457 if (strchr (myIPaddress, '('))
458 *(strchr (myIPaddress, '(')) = '\0'; /* delete trailing junk */
459 board_addr = xstrdup (myIPaddress);
460 }
461 if (server_addr == 0)
462 {
cbba9205
KI		 463#ifdef __MINGW32__
464 WSADATA wd;
025bb325 465 /* Winsock initialization. */
cbba9205
KI		 466 if (WSAStartup (MAKEWORD (1, 1), &wd))
467 error (_("Couldn't initialize WINSOCK."));
468#endif
469
d95a8903
AC		 470 buf[0] = 0;
471 gethostname (buf, sizeof (buf));
472 if (buf[0] != 0)
d95a8903 473 {
880bc914
AC		 474 hostent = gethostbyname (buf);
475 if (hostent != 0)
476 {
d95a8903 477#if 1
880bc914
AC		 478 memcpy (&inet_addr.s_addr, hostent->h_addr,
479 sizeof (inet_addr.s_addr));
480 server_addr = (char *) inet_ntoa (inet_addr);
d95a8903 481#else
880bc914 482 server_addr = (char *) inet_ntoa (hostent->h_addr);
d95a8903 483#endif
880bc914 484 }
d95a8903 485 }
025bb325 486 if (server_addr == 0) /* failed? */
35ecd2d6
MS		 487 error (_("Need to know gdb host computer's "
488 "IP address (use 'set server-address')"));
d95a8903
AC		 489 }
490
025bb325
MS		 491 if (args == 0 || args[0] == 0) /* No args: upload the current
492 file. */
d95a8903
AC		 493 args = get_exec_file (1);
494
495 if (args[0] != '/' && download_path == 0)
496 {
497 if (current_directory)
498 download_path = xstrdup (current_directory);
499 else
35ecd2d6
MS		 500 error (_("Need to know default download "
501 "path (use 'set download-path')"));
d95a8903
AC		 502 }
503
2b71414d 504 gettimeofday (&start_time, NULL);
d95a8903 505 monitor_printf ("uhip %s\r", server_addr);
025bb325 506 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903 507 monitor_printf ("ulip %s\r", board_addr);
025bb325 508 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 509 if (args[0] != '/')
510 monitor_printf ("up %s\r", download_path); /* use default path */
511 else
512 monitor_printf ("up\r"); /* rooted filename/path */
025bb325 513 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 514
515 if (strrchr (args, '.') && !strcmp (strrchr (args, '.'), ".srec"))
516 monitor_printf ("ul %s\r", args);
517 else /* add ".srec" suffix */
518 monitor_printf ("ul %s.srec\r", args);
025bb325 519 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 520
521 if (buf[0] == 0 || strstr (buf, "complete") == 0)
35ecd2d6
MS		 522 error (_("Upload file not found: %s.srec\n"
523 "Check IP addresses and download path."),
524 args);
d95a8903
AC		 525 else
526 printf_filtered (" -- Ethernet load complete.\n");
527
2b71414d 528 gettimeofday (&end_time, NULL);
1c00ec6b 529 abfd = gdb_bfd_open (args, NULL, -1);
f9a062ff 530 cleanup = make_cleanup_bfd_unref (abfd);
d95a8903 531 if (abfd != NULL)
025bb325 532 { /* Download is done -- print section statistics. */
d95a8903
AC		 533 if (bfd_check_format (abfd, bfd_object) == 0)
534 {
535 printf_filtered ("File is not an object file\n");
536 }
537 for (s = abfd->sections; s; s = s->next)
538 if (s->flags & SEC_LOAD)
539 {
540 bfd_size_type section_size = bfd_section_size (abfd, s);
541 bfd_vma section_base = bfd_section_lma (abfd, s);
d95a8903
AC		 542
543 data_count += section_size;
544
545 printf_filtered ("Loading section %s, size 0x%lx lma ",
ec20a626
UW		 546 bfd_section_name (abfd, s),
547 (unsigned long) section_size);
f5656ead 548 fputs_filtered (paddress (target_gdbarch (), section_base),
5af949e3 549 gdb_stdout);
d95a8903
AC		 550 printf_filtered ("\n");
551 gdb_flush (gdb_stdout);
552 }
025bb325 553 /* Finally, make the PC point at the start address. */
fb14de7b
UW		 554 regcache_write_pc (get_current_regcache (),
555 bfd_get_start_address (abfd));
ec20a626
UW		 556 printf_filtered ("Start address 0x%lx\n",
557 (unsigned long) bfd_get_start_address (abfd));
2b71414d
DJ		 558 print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
559 &end_time);
d95a8903 560 }
025bb325 561 inferior_ptid = null_ptid; /* No process now. */
d95a8903
AC		 562
563 /* This is necessary because many things were based on the PC at the
564 time that we attached to the monitor, which is no longer valid
565 now that we have loaded new code (and just changed the PC).
566 Another way to do this might be to call normal_stop, except that
567 the stack may not be valid, and things would get horribly
025bb325 568 confused... */
d95a8903 569
c1e56572 570 clear_symtab_users (0);
d6ad71ba 571 do_cleanups (cleanup);
d95a8903
AC		 572}
573
63807e1d
PA		 574/* Provide a prototype to silence -Wmissing-prototypes. */
575extern initialize_file_ftype _initialize_m32r_rom;
576
d95a8903
AC		 577void
578_initialize_m32r_rom (void)
579{
025bb325 580 /* Initialize m32r RevC monitor target. */
d95a8903
AC		 581 init_m32r_cmds ();
582 init_monitor_ops (&m32r_ops);
583
584 m32r_ops.to_shortname = "m32r";
585 m32r_ops.to_longname = "m32r monitor";
025bb325
MS		 586 m32r_ops.to_load = m32r_load_gen; /* Monitor lacks a download
587 command. */
d95a8903
AC		 588 m32r_ops.to_doc = "Debug via the m32r monitor.\n\
589Specify the serial device it is connected to (e.g. /dev/ttya).";
590 m32r_ops.to_open = m32r_open;
591 add_target (&m32r_ops);
592
593 /* Initialize mon2000 monitor target */
594 init_mon2000_cmds ();
595 init_monitor_ops (&mon2000_ops);
596
597 mon2000_ops.to_shortname = "mon2000";
598 mon2000_ops.to_longname = "Mon2000 monitor";
025bb325
MS		 599 mon2000_ops.to_load = m32r_load_gen; /* Monitor lacks a download
600 command. */
d95a8903
AC		 601 mon2000_ops.to_doc = "Debug via the Mon2000 monitor.\n\
602Specify the serial device it is connected to (e.g. /dev/ttya).";
603 mon2000_ops.to_open = mon2000_open;
604 add_target (&mon2000_ops);
605
7915a72c
AC		 606 add_setshow_string_cmd ("download-path", class_obscure, &download_path, _("\
607Set the default path for downloadable SREC files."), _("\
608Show the default path for downloadable SREC files."), _("\
609Determines the default path for downloadable SREC files."),
2c5b56ce 610 NULL,
025bb325
MS		 611 NULL, /* FIXME: i18n: The default path for
612 downloadable SREC files is %s. */
2c5b56ce 613 &setlist, &showlist);
7915a72c
AC		 614
615 add_setshow_string_cmd ("board-address", class_obscure, &board_addr, _("\
616Set IP address for M32R-EVA target board."), _("\
617Show IP address for M32R-EVA target board."), _("\
618Determine the IP address for M32R-EVA target board."),
2c5b56ce 619 NULL,
025bb325
MS		 620 NULL, /* FIXME: i18n: IP address for
621 M32R-EVA target board is %s. */
2c5b56ce 622 &setlist, &showlist);
7915a72c
AC		 623
624 add_setshow_string_cmd ("server-address", class_obscure, &server_addr, _("\
625Set IP address for download server (GDB's host computer)."), _("\
626Show IP address for download server (GDB's host computer)."), _("\
627Determine the IP address for download server (GDB's host computer)."),
2c5b56ce 628 NULL,
025bb325
MS		 629 NULL, /* FIXME: i18n: IP address for
630 download server (GDB's host
631 computer) is %s. */
2c5b56ce 632 &setlist, &showlist);
d95a8903 633
1bedd215
AC		 634 add_com ("upload", class_obscure, m32r_upload_command, _("\
635Upload the srec file via the monitor's Ethernet upload capability."));
d95a8903 636
1bedd215 637 add_com ("tload", class_obscure, m32r_load, _("test upload command."));
d95a8903 638}
GDB Binutils - Deliverables
This page took 0.804701 seconds and 4 git commands to generate.