1 /* Remote target glue for the Intel 960 MON960 ROM monitor.
2 Copyright 1995, 1996, 1997, 1998, 1999, 2000
3 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
31 #include "symfile.h" /* for generic_load */
32 #include "inferior.h" /* for write_pc() */
34 #define USE_GENERIC_LOAD
36 static struct target_ops mon960_ops
;
38 static void mon960_open (char *args
, int from_tty
);
40 #ifdef USE_GENERIC_LOAD
43 mon960_load_gen (char *filename
, int from_tty
)
45 extern int inferior_pid
;
47 generic_load (filename
, from_tty
);
48 /* Finally, make the PC point at the start address */
50 write_pc (bfd_get_start_address (exec_bfd
));
52 inferior_pid
= 0; /* No process now */
58 mon960_load (serial_t desc
, char *file
, int hashmark
)
65 buffer
= alloca (XMODEM_PACKETSIZE
);
66 abfd
= bfd_openr (file
, 0);
69 printf_filtered ("Unable to open file %s\n", file
);
72 if (bfd_check_format (abfd
, bfd_object
) == 0)
74 printf_filtered ("File is not an object file\n");
77 for (s
= abfd
->sections
; s
; s
= s
->next
)
78 if (s
->flags
& SEC_LOAD
)
80 bfd_size_type section_size
;
81 printf_filtered ("%s\t: 0x%4x .. 0x%4x ", s
->name
, s
->vma
,
82 s
->vma
+ s
->_raw_size
);
83 gdb_flush (gdb_stdout
);
84 monitor_printf (current_monitor
->load
, s
->vma
);
85 if (current_monitor
->loadresp
)
86 monitor_expect (current_monitor
->loadresp
, NULL
, 0);
87 xmodem_init_xfer (desc
);
88 section_size
= bfd_section_size (abfd
, s
);
89 for (i
= 0; i
< section_size
; i
+= XMODEM_DATASIZE
)
92 numbytes
= min (XMODEM_DATASIZE
, section_size
- i
);
93 bfd_get_section_contents (abfd
, s
, buffer
+ XMODEM_DATAOFFSET
, i
,
95 xmodem_send_packet (desc
, buffer
, numbytes
, hashmark
);
98 putchar_unfiltered ('#');
99 gdb_flush (gdb_stdout
);
101 } /* Per-packet (or S-record) loop */
102 xmodem_finish_xfer (desc
);
103 monitor_expect_prompt (NULL
, 0);
104 putchar_unfiltered ('\n');
105 } /* Loadable sections */
107 putchar_unfiltered ('\n');
110 #endif /* USE_GENERIC_LOAD */
112 /* This array of registers need to match the indexes used by GDB.
113 This exists because the various ROM monitors use different strings
114 than does GDB, and don't necessarily support all the registers
115 either. So, typing "info reg sp" becomes a "r30". */
117 /* these correspond to the offsets from tm-* files from config directories */
118 /* g0-g14, fp, pfp, sp, rip,r3-15, pc, ac, tc, fp0-3 */
119 /* NOTE: "ip" is documented as "ir" in the Mon960 UG. */
120 /* NOTE: "ir" can't be accessed... but there's an ip and rip. */
121 static char *full_regnames
[NUM_REGS
] =
123 /* 0 */ "pfp", "sp", "rip", "r3", "r4", "r5", "r6", "r7",
124 /* 8 */ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",
125 /* 16 */ "g0", "g1", "g2", "g3", "g4", "g5", "g6", "g7",
126 /* 24 */ "g8", "g9", "g10", "g11", "g12", "g13", "g14", "fp",
127 /* 32 */ "pc", "ac", "tc", "ip", "fp0", "fp1", "fp2", "fp3",
130 static char *mon960_regnames
[NUM_REGS
];
132 /* Define the monitor command strings. Since these are passed directly
133 through to a printf style function, we may include formatting
134 strings. We also need a CR or LF on the end. */
136 /* need to pause the monitor for timing reasons, so slow it down */
139 /* FIXME: this extremely long init string causes MON960 to return two NAKS
140 instead of performing the autobaud recognition, at least when gdb
141 is running on GNU/Linux. The short string below works on Linux, and on
142 SunOS using a tcp serial connection. Must retest on SunOS using a
143 direct serial connection; if that works, get rid of the long string. */
144 static char *mon960_inits
[] =
145 {"\n\r\r\r\r\r\r\r\r\r\r\r\r\r\r\n\r\n\r\n", NULL
};
147 static char *mon960_inits
[] =
151 static struct monitor_ops mon960_cmds
;
154 init_mon960_cmds (void)
156 mon960_cmds
.flags
= MO_CLR_BREAK_USES_ADDR
157 | MO_NO_ECHO_ON_OPEN
| MO_SEND_BREAK_ON_STOP
| MO_GETMEM_READ_SINGLE
; /* flags */
158 mon960_cmds
.init
= mon960_inits
; /* Init strings */
159 mon960_cmds
.cont
= "go\n\r"; /* continue command */
160 mon960_cmds
.step
= "st\n\r"; /* single step */
161 mon960_cmds
.stop
= NULL
; /* break interrupts the program */
162 mon960_cmds
.set_break
= NULL
; /* set a breakpoint */
163 mon960_cmds
.clr_break
= /* can't use "br" because only 2 hw bps are supported */
164 mon960_cmds
.clr_all_break
= NULL
; /* clear a breakpoint - "de" is for hw bps */
165 NULL
, /* clear all breakpoints */
166 mon960_cmds
.fill
= NULL
; /* fill (start end val) */
167 /* can't use "fi" because it takes words, not bytes */
168 /* can't use "mb", "md" or "mo" because they require interaction */
169 mon960_cmds
.setmem
.cmdb
= NULL
; /* setmem.cmdb (addr, value) */
170 mon960_cmds
.setmem
.cmdw
= NULL
; /* setmem.cmdw (addr, value) */
171 mon960_cmds
.setmem
.cmdl
= "md %x %x\n\r"; /* setmem.cmdl (addr, value) */
172 mon960_cmds
.setmem
.cmdll
= NULL
; /* setmem.cmdll (addr, value) */
173 mon960_cmds
.setmem
.resp_delim
= NULL
; /* setmem.resp_delim */
174 mon960_cmds
.setmem
.term
= NULL
; /* setmem.term */
175 mon960_cmds
.setmem
.term_cmd
= NULL
; /* setmem.term_cmd */
176 /* since the parsing of multiple bytes is difficult due to
177 interspersed addresses, we'll only read 1 value at a time,
178 even tho these can handle a count */
179 mon960_cmds
.getmem
.cmdb
= "db %x\n\r"; /* getmem.cmdb (addr, #bytes) */
180 mon960_cmds
.getmem
.cmdw
= "ds %x\n\r"; /* getmem.cmdw (addr, #swords) */
181 mon960_cmds
.getmem
.cmdl
= "di %x\n\r"; /* getmem.cmdl (addr, #words) */
182 mon960_cmds
.getmem
.cmdll
= "dd %x\n\r"; /* getmem.cmdll (addr, #dwords) */
183 mon960_cmds
.getmem
.resp_delim
= " : "; /* getmem.resp_delim */
184 mon960_cmds
.getmem
.term
= NULL
; /* getmem.term */
185 mon960_cmds
.getmem
.term_cmd
= NULL
; /* getmem.term_cmd */
186 mon960_cmds
.setreg
.cmd
= "md %s %x\n\r"; /* setreg.cmd (name, value) */
187 mon960_cmds
.setreg
.resp_delim
= NULL
; /* setreg.resp_delim */
188 mon960_cmds
.setreg
.term
= NULL
; /* setreg.term */
189 mon960_cmds
.setreg
.term_cmd
= NULL
, /* setreg.term_cmd */
190 mon960_cmds
.getreg
.cmd
= "di %s\n\r"; /* getreg.cmd (name) */
191 mon960_cmds
.getreg
.resp_delim
= " : "; /* getreg.resp_delim */
192 mon960_cmds
.getreg
.term
= NULL
; /* getreg.term */
193 mon960_cmds
.getreg
.term_cmd
= NULL
; /* getreg.term_cmd */
194 mon960_cmds
.dump_registers
= "re\n\r"; /* dump_registers */
195 mon960_cmds
.register_pattern
= "\\(\\w+\\)=\\([0-9a-fA-F]+\\)"; /* register_pattern */
196 mon960_cmds
.supply_register
= NULL
; /* supply_register */
197 #ifdef USE_GENERIC_LOAD
198 mon960_cmds
.load_routine
= NULL
; /* load_routine (defaults to SRECs) */
199 mon960_cmds
.load
= NULL
; /* download command */
200 mon960_cmds
.loadresp
= NULL
; /* load response */
202 mon960_cmds
.load_routine
= mon960_load
; /* load_routine (defaults to SRECs) */
203 mon960_cmds
.load
= "do\n\r"; /* download command */
204 mon960_cmds
.loadresp
= "Downloading\n\r"; /* load response */
206 mon960_cmds
.prompt
= "=>"; /* monitor command prompt */
207 mon960_cmds
.line_term
= "\n\r"; /* end-of-command delimitor */
208 mon960_cmds
.cmd_end
= NULL
; /* optional command terminator */
209 mon960_cmds
.target
= &mon960_ops
; /* target operations */
210 mon960_cmds
.stopbits
= SERIAL_1_STOPBITS
; /* number of stop bits */
211 mon960_cmds
.regnames
= mon960_regnames
; /* registers names */
212 mon960_cmds
.magic
= MONITOR_OPS_MAGIC
; /* magic */
216 mon960_open (char *args
, int from_tty
)
220 monitor_open (args
, &mon960_cmds
, from_tty
);
222 /* Attempt to fetch the value of the first floating point register (fp0).
223 If the monitor returns a string containing the word "Bad" we'll assume
224 this processor has no floating point registers, and nullify the
225 regnames entries that refer to FP registers. */
227 monitor_printf (mon960_cmds
.getreg
.cmd
, full_regnames
[FP0_REGNUM
]); /* di fp0 */
228 if (monitor_expect_prompt (buf
, sizeof (buf
)) != -1)
229 if (strstr (buf
, "Bad") != NULL
)
233 for (i
= FP0_REGNUM
; i
< FP0_REGNUM
+ 4; i
++)
234 mon960_regnames
[i
] = NULL
;
239 _initialize_mon960 (void)
241 memcpy (mon960_regnames
, full_regnames
, sizeof (full_regnames
));
245 init_monitor_ops (&mon960_ops
);
247 mon960_ops
.to_shortname
= "mon960"; /* for the target command */
248 mon960_ops
.to_longname
= "Intel 960 MON960 monitor";
249 #ifdef USE_GENERIC_LOAD
250 mon960_ops
.to_load
= mon960_load_gen
; /* FIXME - should go back and try "do" */
252 /* use SW breaks; target only supports 2 HW breakpoints */
253 mon960_ops
.to_insert_breakpoint
= memory_insert_breakpoint
;
254 mon960_ops
.to_remove_breakpoint
= memory_remove_breakpoint
;
257 "Use an Intel 960 board running the MON960 debug monitor.\n\
258 Specify the serial device it is connected to (e.g. /dev/ttya).";
260 mon960_ops
.to_open
= mon960_open
;
261 add_target (&mon960_ops
);