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"
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");
169 return;
170 }
171#endif
2b71414d 172 gettimeofday (&end_time, NULL);
ec20a626
UW		 173 printf_filtered ("Start address 0x%lx\n",
174 (unsigned long) bfd_get_start_address (abfd));
2b71414d
DJ		 175 print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
176 &end_time);
d95a8903 177
025bb325 178 /* Finally, make the PC point at the start address. */
d95a8903 179 if (exec_bfd)
fb14de7b
UW		 180 regcache_write_pc (get_current_regcache (),
181 bfd_get_start_address (exec_bfd));
d95a8903 182
025bb325 183 inferior_ptid = null_ptid; /* No process now. */
d95a8903
AC		 184
185 /* This is necessary because many things were based on the PC at the
186 time that we attached to the monitor, which is no longer valid
187 now that we have loaded new code (and just changed the PC).
188 Another way to do this might be to call normal_stop, except that
189 the stack may not be valid, and things would get horribly
025bb325 190 confused... */
d95a8903 191
c1e56572 192 clear_symtab_users (0);
d6ad71ba 193 do_cleanups (cleanup);
d95a8903
AC		 194}
195
196static void
197m32r_load_gen (char *filename, int from_tty)
198{
199 generic_load (filename, from_tty);
200}
201
202static void m32r_open (char *args, int from_tty);
203static void mon2000_open (char *args, int from_tty);
204
025bb325 205/* This array of registers needs to match the indexes used by GDB. The
d95a8903
AC		 206 whole reason this exists is because the various ROM monitors use
207 different names than GDB does, and don't support all the registers
025bb325 208 either. So, typing "info reg sp" becomes an "A7". */
d95a8903
AC		 209
210static char *m32r_regnames[] =
211 { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
212 "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",
213 "psw", "cbr", "spi", "spu", "bpc", "pc", "accl", "acch",
214};
215
216static void
c410a84c
UW		 217m32r_supply_register (struct regcache *regcache, char *regname,
218 int regnamelen, char *val, int vallen)
d95a8903
AC		 219{
220 int regno;
221 int num_regs = sizeof (m32r_regnames) / sizeof (m32r_regnames[0]);
40a6adc1 222 struct gdbarch *gdbarch = get_regcache_arch (regcache);
d95a8903
AC		 223
224 for (regno = 0; regno < num_regs; regno++)
225 if (strncmp (regname, m32r_regnames[regno], regnamelen) == 0)
226 break;
227
228 if (regno >= num_regs)
229 return; /* no match */
230
231 if (regno == ACCL_REGNUM)
025bb325 232 { /* Special handling for 64-bit acc reg. */
c410a84c 233 monitor_supply_register (regcache, ACCH_REGNUM, val);
025bb325 234 val = strchr (val, ':'); /* Skip past ':' to get 2nd word. */
d95a8903 235 if (val != NULL)
c410a84c 236 monitor_supply_register (regcache, ACCL_REGNUM, val + 1);
d95a8903
AC		 237 }
238 else
239 {
c410a84c 240 monitor_supply_register (regcache, regno, val);
d95a8903
AC		 241 if (regno == PSW_REGNUM)
242 {
22e048c9
SDJ		 243#if (defined SM_REGNUM || defined BSM_REGNUM || defined IE_REGNUM \
244 || defined BIE_REGNUM || defined COND_REGNUM || defined CBR_REGNUM \
245 || defined BPC_REGNUM || defined BCARRY_REGNUM)
d95a8903
AC		 246 unsigned long psw = strtoul (val, NULL, 16);
247 char *zero = "00000000", *one = "00000001";
22e048c9 248#endif
d95a8903
AC		 249
250#ifdef SM_REGNUM
251 /* Stack mode bit */
025bb325
MS		 252 monitor_supply_register (regcache, SM_REGNUM,
253 (psw & 0x80) ? one : zero);
d95a8903
AC		 254#endif
255#ifdef BSM_REGNUM
256 /* Backup stack mode bit */
025bb325
MS		 257 monitor_supply_register (regcache, BSM_REGNUM,
258 (psw & 0x8000) ? one : zero);
d95a8903
AC		 259#endif
260#ifdef IE_REGNUM
261 /* Interrupt enable bit */
025bb325
MS		 262 monitor_supply_register (regcache, IE_REGNUM,
263 (psw & 0x40) ? one : zero);
d95a8903
AC		 264#endif
265#ifdef BIE_REGNUM
266 /* Backup interrupt enable bit */
025bb325
MS		 267 monitor_supply_register (regcache, BIE_REGNUM,
268 (psw & 0x4000) ? one : zero);
d95a8903
AC		 269#endif
270#ifdef COND_REGNUM
271 /* Condition bit (carry etc.) */
025bb325
MS		 272 monitor_supply_register (regcache, COND_REGNUM,
273 (psw & 0x1) ? one : zero);
d95a8903
AC		 274#endif
275#ifdef CBR_REGNUM
025bb325
MS		 276 monitor_supply_register (regcache, CBR_REGNUM,
277 (psw & 0x1) ? one : zero);
d95a8903
AC		 278#endif
279#ifdef BPC_REGNUM
025bb325
MS		 280 monitor_supply_register (regcache, BPC_REGNUM,
281 zero); /* KLUDGE: (???????) */
d95a8903
AC		 282#endif
283#ifdef BCARRY_REGNUM
025bb325
MS		 284 monitor_supply_register (regcache, BCARRY_REGNUM,
285 zero); /* KLUDGE: (??????) */
d95a8903
AC		 286#endif
287 }
288
289 if (regno == SPI_REGNUM || regno == SPU_REGNUM)
025bb325 290 { /* special handling for stack pointer (spu or spi). */
7e3dd49e 291 ULONGEST stackmode, psw;
c410a84c 292 regcache_cooked_read_unsigned (regcache, PSW_REGNUM, &psw);
7e3dd49e 293 stackmode = psw & 0x80;
d95a8903
AC		 294
295 if (regno == SPI_REGNUM && !stackmode) /* SP == SPI */
3e8c568d 296 monitor_supply_register (regcache,
40a6adc1 297 gdbarch_sp_regnum (gdbarch), val);
d95a8903 298 else if (regno == SPU_REGNUM && stackmode) /* SP == SPU */
3e8c568d 299 monitor_supply_register (regcache,
40a6adc1 300 gdbarch_sp_regnum (gdbarch), val);
d95a8903
AC		 301 }
302 }
303}
304
305/* m32r RevC board monitor */
306
307static struct target_ops m32r_ops;
308
309static char *m32r_inits[] = { "\r", NULL };
310
311static struct monitor_ops m32r_cmds;
312
313static void
314init_m32r_cmds (void)
315{
316 m32r_cmds.flags = MO_CLR_BREAK_USES_ADDR | MO_REGISTER_VALUE_FIRST;
317 m32r_cmds.init = m32r_inits; /* Init strings */
318 m32r_cmds.cont = "go\r"; /* continue command */
319 m32r_cmds.step = "step\r"; /* single step */
320 m32r_cmds.stop = NULL; /* interrupt command */
321 m32r_cmds.set_break = "%x +bp\r"; /* set a breakpoint */
322 m32r_cmds.clr_break = "%x -bp\r"; /* clear a breakpoint */
323 m32r_cmds.clr_all_break = "bpoff\r"; /* clear all breakpoints */
324 m32r_cmds.fill = "%x %x %x fill\r"; /* fill (start length val) */
325 m32r_cmds.setmem.cmdb = "%x 1 %x fill\r"; /* setmem.cmdb (addr, value) */
326 m32r_cmds.setmem.cmdw = "%x 1 %x fillh\r"; /* setmem.cmdw (addr, value) */
327 m32r_cmds.setmem.cmdl = "%x 1 %x fillw\r"; /* setmem.cmdl (addr, value) */
328 m32r_cmds.setmem.cmdll = NULL; /* setmem.cmdll (addr, value) */
329 m32r_cmds.setmem.resp_delim = NULL; /* setmem.resp_delim */
330 m32r_cmds.setmem.term = NULL; /* setmem.term */
331 m32r_cmds.setmem.term_cmd = NULL; /* setmem.term_cmd */
332 m32r_cmds.getmem.cmdb = "%x %x dump\r"; /* getmem.cmdb (addr, len) */
333 m32r_cmds.getmem.cmdw = NULL; /* getmem.cmdw (addr, len) */
334 m32r_cmds.getmem.cmdl = NULL; /* getmem.cmdl (addr, len) */
335 m32r_cmds.getmem.cmdll = NULL; /* getmem.cmdll (addr, len) */
336 m32r_cmds.getmem.resp_delim = ": "; /* getmem.resp_delim */
337 m32r_cmds.getmem.term = NULL; /* getmem.term */
338 m32r_cmds.getmem.term_cmd = NULL; /* getmem.term_cmd */
339 m32r_cmds.setreg.cmd = "%x to %%%s\r"; /* setreg.cmd (name, value) */
340 m32r_cmds.setreg.resp_delim = NULL; /* setreg.resp_delim */
341 m32r_cmds.setreg.term = NULL; /* setreg.term */
342 m32r_cmds.setreg.term_cmd = NULL; /* setreg.term_cmd */
343 m32r_cmds.getreg.cmd = NULL; /* getreg.cmd (name) */
344 m32r_cmds.getreg.resp_delim = NULL; /* getreg.resp_delim */
345 m32r_cmds.getreg.term = NULL; /* getreg.term */
346 m32r_cmds.getreg.term_cmd = NULL; /* getreg.term_cmd */
347 m32r_cmds.dump_registers = ".reg\r"; /* dump_registers */
025bb325
MS		 348 /* register_pattern */
349 m32r_cmds.register_pattern = "\\(\\w+\\) += \\([0-9a-fA-F]+\\b\\)";
23a6d369 350 m32r_cmds.supply_register = m32r_supply_register;
d95a8903
AC		 351 m32r_cmds.load_routine = NULL; /* load_routine (defaults to SRECs) */
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_routine = NULL; /* load_routine (defaults to SRECs) */
413 mon2000_cmds.load = NULL; /* download command */
414 mon2000_cmds.loadresp = NULL; /* load response */
415 mon2000_cmds.prompt = "Mon2000>"; /* monitor command prompt */
416 mon2000_cmds.line_term = "\r"; /* end-of-line terminator */
417 mon2000_cmds.cmd_end = NULL; /* optional command terminator */
418 mon2000_cmds.target = &mon2000_ops; /* target operations */
419 mon2000_cmds.stopbits = SERIAL_1_STOPBITS; /* number of stop bits */
420 mon2000_cmds.regnames = m32r_regnames; /* registers names */
421 mon2000_cmds.magic = MONITOR_OPS_MAGIC; /* magic */
422} /* init_mon2000_cmds */
423
424static void
425mon2000_open (char *args, int from_tty)
426{
427 monitor_open (args, &mon2000_cmds, from_tty);
428}
429
d95a8903
AC		 430static void
431m32r_upload_command (char *args, int from_tty)
432{
433 bfd *abfd;
434 asection *s;
2b71414d 435 struct timeval start_time, end_time;
d95a8903
AC		 436 int resp_len, data_count = 0;
437 char buf[1024];
438 struct hostent *hostent;
439 struct in_addr inet_addr;
d6ad71ba 440 struct cleanup *cleanup;
d95a8903 441
025bb325 442 /* First check to see if there's an ethernet port! */
d95a8903
AC		 443 monitor_printf ("ust\r");
444 resp_len = monitor_expect_prompt (buf, sizeof (buf));
445 if (!strchr (buf, ':'))
8a3fe4f8 446 error (_("No ethernet connection!"));
d95a8903
AC		 447
448 if (board_addr == 0)
449 {
025bb325 450 /* Scan second colon in the output from the "ust" command. */
d95a8903
AC		 451 char *myIPaddress = strchr (strchr (buf, ':') + 1, ':') + 1;
452
453 while (isspace (*myIPaddress))
454 myIPaddress++;
455
456 if (!strncmp (myIPaddress, "0.0.", 4)) /* empty */
35ecd2d6
MS		 457 error (_("Please use 'set board-address' to "
458 "set the M32R-EVA board's IP address."));
d95a8903
AC		 459 if (strchr (myIPaddress, '('))
460 *(strchr (myIPaddress, '(')) = '\0'; /* delete trailing junk */
461 board_addr = xstrdup (myIPaddress);
462 }
463 if (server_addr == 0)
464 {
cbba9205
KI		 465#ifdef __MINGW32__
466 WSADATA wd;
025bb325 467 /* Winsock initialization. */
cbba9205
KI		 468 if (WSAStartup (MAKEWORD (1, 1), &wd))
469 error (_("Couldn't initialize WINSOCK."));
470#endif
471
d95a8903
AC		 472 buf[0] = 0;
473 gethostname (buf, sizeof (buf));
474 if (buf[0] != 0)
d95a8903 475 {
880bc914
AC		 476 hostent = gethostbyname (buf);
477 if (hostent != 0)
478 {
d95a8903 479#if 1
880bc914
AC		 480 memcpy (&inet_addr.s_addr, hostent->h_addr,
481 sizeof (inet_addr.s_addr));
482 server_addr = (char *) inet_ntoa (inet_addr);
d95a8903 483#else
880bc914 484 server_addr = (char *) inet_ntoa (hostent->h_addr);
d95a8903 485#endif
880bc914 486 }
d95a8903 487 }
025bb325 488 if (server_addr == 0) /* failed? */
35ecd2d6
MS		 489 error (_("Need to know gdb host computer's "
490 "IP address (use 'set server-address')"));
d95a8903
AC		 491 }
492
025bb325
MS		 493 if (args == 0 || args[0] == 0) /* No args: upload the current
494 file. */
d95a8903
AC		 495 args = get_exec_file (1);
496
497 if (args[0] != '/' && download_path == 0)
498 {
499 if (current_directory)
500 download_path = xstrdup (current_directory);
501 else
35ecd2d6
MS		 502 error (_("Need to know default download "
503 "path (use 'set download-path')"));
d95a8903
AC		 504 }
505
2b71414d 506 gettimeofday (&start_time, NULL);
d95a8903 507 monitor_printf ("uhip %s\r", server_addr);
025bb325 508 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903 509 monitor_printf ("ulip %s\r", board_addr);
025bb325 510 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 511 if (args[0] != '/')
512 monitor_printf ("up %s\r", download_path); /* use default path */
513 else
514 monitor_printf ("up\r"); /* rooted filename/path */
025bb325 515 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 516
517 if (strrchr (args, '.') && !strcmp (strrchr (args, '.'), ".srec"))
518 monitor_printf ("ul %s\r", args);
519 else /* add ".srec" suffix */
520 monitor_printf ("ul %s.srec\r", args);
025bb325 521 resp_len = monitor_expect_prompt (buf, sizeof (buf)); /* parse result? */
d95a8903
AC		 522
523 if (buf[0] == 0 || strstr (buf, "complete") == 0)
35ecd2d6
MS		 524 error (_("Upload file not found: %s.srec\n"
525 "Check IP addresses and download path."),
526 args);
d95a8903
AC		 527 else
528 printf_filtered (" -- Ethernet load complete.\n");
529
2b71414d 530 gettimeofday (&end_time, NULL);
1c00ec6b 531 abfd = gdb_bfd_open (args, NULL, -1);
f9a062ff 532 cleanup = make_cleanup_bfd_unref (abfd);
d95a8903 533 if (abfd != NULL)
025bb325 534 { /* Download is done -- print section statistics. */
d95a8903
AC		 535 if (bfd_check_format (abfd, bfd_object) == 0)
536 {
537 printf_filtered ("File is not an object file\n");
538 }
539 for (s = abfd->sections; s; s = s->next)
540 if (s->flags & SEC_LOAD)
541 {
542 bfd_size_type section_size = bfd_section_size (abfd, s);
543 bfd_vma section_base = bfd_section_lma (abfd, s);
d95a8903
AC		 544
545 data_count += section_size;
546
547 printf_filtered ("Loading section %s, size 0x%lx lma ",
ec20a626
UW		 548 bfd_section_name (abfd, s),
549 (unsigned long) section_size);
f5656ead 550 fputs_filtered (paddress (target_gdbarch (), section_base),
5af949e3 551 gdb_stdout);
d95a8903
AC		 552 printf_filtered ("\n");
553 gdb_flush (gdb_stdout);
554 }
025bb325 555 /* Finally, make the PC point at the start address. */
fb14de7b
UW		 556 regcache_write_pc (get_current_regcache (),
557 bfd_get_start_address (abfd));
ec20a626
UW		 558 printf_filtered ("Start address 0x%lx\n",
559 (unsigned long) bfd_get_start_address (abfd));
2b71414d
DJ		 560 print_transfer_performance (gdb_stdout, data_count, 0, &start_time,
561 &end_time);
d95a8903 562 }
025bb325 563 inferior_ptid = null_ptid; /* No process now. */
d95a8903
AC		 564
565 /* This is necessary because many things were based on the PC at the
566 time that we attached to the monitor, which is no longer valid
567 now that we have loaded new code (and just changed the PC).
568 Another way to do this might be to call normal_stop, except that
569 the stack may not be valid, and things would get horribly
025bb325 570 confused... */
d95a8903 571
c1e56572 572 clear_symtab_users (0);
d6ad71ba 573 do_cleanups (cleanup);
d95a8903
AC		 574}
575
63807e1d
PA		 576/* Provide a prototype to silence -Wmissing-prototypes. */
577extern initialize_file_ftype _initialize_m32r_rom;
578
d95a8903
AC		 579void
580_initialize_m32r_rom (void)
581{
025bb325 582 /* Initialize m32r RevC monitor target. */
d95a8903
AC		 583 init_m32r_cmds ();
584 init_monitor_ops (&m32r_ops);
585
586 m32r_ops.to_shortname = "m32r";
587 m32r_ops.to_longname = "m32r monitor";
025bb325
MS		 588 m32r_ops.to_load = m32r_load_gen; /* Monitor lacks a download
589 command. */
d95a8903
AC		 590 m32r_ops.to_doc = "Debug via the m32r monitor.\n\
591Specify the serial device it is connected to (e.g. /dev/ttya).";
592 m32r_ops.to_open = m32r_open;
593 add_target (&m32r_ops);
594
595 /* Initialize mon2000 monitor target */
596 init_mon2000_cmds ();
597 init_monitor_ops (&mon2000_ops);
598
599 mon2000_ops.to_shortname = "mon2000";
600 mon2000_ops.to_longname = "Mon2000 monitor";
025bb325
MS		 601 mon2000_ops.to_load = m32r_load_gen; /* Monitor lacks a download
602 command. */
d95a8903
AC		 603 mon2000_ops.to_doc = "Debug via the Mon2000 monitor.\n\
604Specify the serial device it is connected to (e.g. /dev/ttya).";
605 mon2000_ops.to_open = mon2000_open;
606 add_target (&mon2000_ops);
607
7915a72c
AC		 608 add_setshow_string_cmd ("download-path", class_obscure, &download_path, _("\
609Set the default path for downloadable SREC files."), _("\
610Show the default path for downloadable SREC files."), _("\
611Determines the default path for downloadable SREC files."),
2c5b56ce 612 NULL,
025bb325
MS		 613 NULL, /* FIXME: i18n: The default path for
614 downloadable SREC files is %s. */
2c5b56ce 615 &setlist, &showlist);
7915a72c
AC		 616
617 add_setshow_string_cmd ("board-address", class_obscure, &board_addr, _("\
618Set IP address for M32R-EVA target board."), _("\
619Show IP address for M32R-EVA target board."), _("\
620Determine the IP address for M32R-EVA target board."),
2c5b56ce 621 NULL,
025bb325
MS		 622 NULL, /* FIXME: i18n: IP address for
623 M32R-EVA target board is %s. */
2c5b56ce 624 &setlist, &showlist);
7915a72c
AC		 625
626 add_setshow_string_cmd ("server-address", class_obscure, &server_addr, _("\
627Set IP address for download server (GDB's host computer)."), _("\
628Show IP address for download server (GDB's host computer)."), _("\
629Determine the IP address for download server (GDB's host computer)."),
2c5b56ce 630 NULL,
025bb325
MS		 631 NULL, /* FIXME: i18n: IP address for
632 download server (GDB's host
633 computer) is %s. */
2c5b56ce 634 &setlist, &showlist);
d95a8903 635
1bedd215
AC		 636 add_com ("upload", class_obscure, m32r_upload_command, _("\
637Upload the srec file via the monitor's Ethernet upload capability."));
d95a8903 638
1bedd215 639 add_com ("tload", class_obscure, m32r_load, _("test upload command."));
d95a8903 640}
GDB Binutils - Deliverables
This page took 0.889294 seconds and 4 git commands to generate.