projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* ld-sh/shared-1.d: Fix incorrect offsets.
[deliverable/binutils-gdb.git] / gdb / remote-adapt.c
CommitLineData
9b4ff276
AC		 1/* OBSOLETE /* Remote debugging interface for AMD 290*0 Adapt Monitor Version 2.1d18. */
2/* OBSOLETE Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, */
3/* OBSOLETE 2001 Free Software Foundation, Inc. */
4/* OBSOLETE Contributed by David Wood at New York University (wood@lab.ultra.nyu.edu). */
5/* OBSOLETE Adapted from work done at Cygnus Support in remote-eb.c. */
6/* OBSOLETE */
7/* OBSOLETE This file is part of GDB. */
8/* OBSOLETE */
9/* OBSOLETE This program is free software; you can redistribute it and/or modify */
10/* OBSOLETE it under the terms of the GNU General Public License as published by */
11/* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
12/* OBSOLETE (at your option) any later version. */
13/* OBSOLETE */
14/* OBSOLETE This program is distributed in the hope that it will be useful, */
15/* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
16/* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
17/* OBSOLETE GNU General Public License for more details. */
18/* OBSOLETE */
19/* OBSOLETE You should have received a copy of the GNU General Public License */
20/* OBSOLETE along with this program; if not, write to the Free Software */
21/* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, */
22/* OBSOLETE Boston, MA 02111-1307, USA. */ */
23/* OBSOLETE */
24/* OBSOLETE /* This is like remote.c but is for an esoteric situation-- */
25/* OBSOLETE having a 29k board attached to an Adapt inline monitor. */
26/* OBSOLETE The monitor is connected via serial line to a unix machine */
27/* OBSOLETE running gdb. */
28/* OBSOLETE */
29/* OBSOLETE 3/91 - developed on Sun3 OS 4.1, by David Wood */
30/* OBSOLETE o - I can't get binary coff to load. */
31/* OBSOLETE o - I can't get 19200 baud rate to work. */
32/* OBSOLETE 7/91 o - Freeze mode tracing can be done on a 29050. */ */
33/* OBSOLETE */
34/* OBSOLETE */
35/* OBSOLETE */
36/* OBSOLETE #include "defs.h" */
37/* OBSOLETE #include "gdb_string.h" */
38/* OBSOLETE #include "inferior.h" */
39/* OBSOLETE #include "value.h" */
40/* OBSOLETE #include <ctype.h> */
41/* OBSOLETE #include <fcntl.h> */
42/* OBSOLETE #include <signal.h> */
43/* OBSOLETE #include <errno.h> */
44/* OBSOLETE #include "terminal.h" */
45/* OBSOLETE #include "target.h" */
46/* OBSOLETE #include "gdbcore.h" */
47/* OBSOLETE #include "regcache.h" */
48/* OBSOLETE */
49/* OBSOLETE /* This processor is getting rusty but I am trying to keep it */
50/* OBSOLETE up to date at least with data structure changes. */
51/* OBSOLETE Activate this block to compile just this file. */
52/* OBSOLETE */ */
53/* OBSOLETE #define COMPILE_CHECK 0 */
54/* OBSOLETE #if COMPILE_CHECK */
55/* OBSOLETE #define Q_REGNUM 0 */
56/* OBSOLETE #define VAB_REGNUM 0 */
57/* OBSOLETE #define CPS_REGNUM 0 */
58/* OBSOLETE #define IPA_REGNUM 0 */
59/* OBSOLETE #define IPB_REGNUM 0 */
60/* OBSOLETE #define GR1_REGNUM 0 */
61/* OBSOLETE #define LR0_REGNUM 0 */
62/* OBSOLETE #define IPC_REGNUM 0 */
63/* OBSOLETE #define CR_REGNUM 0 */
64/* OBSOLETE #define BP_REGNUM 0 */
65/* OBSOLETE #define FC_REGNUM 0 */
66/* OBSOLETE #define INTE_REGNUM 0 */
67/* OBSOLETE #define EXO_REGNUM 0 */
68/* OBSOLETE #define GR96_REGNUM 0 */
69/* OBSOLETE #define NPC_REGNUM */
70/* OBSOLETE #define FPE_REGNUM 0 */
71/* OBSOLETE #define PC2_REGNUM 0 */
72/* OBSOLETE #define FPS_REGNUM 0 */
73/* OBSOLETE #define ALU_REGNUM 0 */
74/* OBSOLETE #define LRU_REGNUM 0 */
75/* OBSOLETE #define TERMINAL int */
76/* OBSOLETE #define RAW 1 */
77/* OBSOLETE #define ANYP 1 */
78/* OBSOLETE extern int a29k_freeze_mode; */
79/* OBSOLETE extern int processor_type; */
80/* OBSOLETE extern char *processor_name; */
81/* OBSOLETE #endif */
82/* OBSOLETE */
83/* OBSOLETE /* External data declarations */ */
84/* OBSOLETE extern int stop_soon_quietly; /* for wait_for_inferior */ */
85/* OBSOLETE */
86/* OBSOLETE /* Forward data declarations */ */
87/* OBSOLETE extern struct target_ops adapt_ops; /* Forward declaration */ */
88/* OBSOLETE */
89/* OBSOLETE /* Forward function declarations */ */
90/* OBSOLETE static void adapt_fetch_registers (); */
91/* OBSOLETE static void adapt_store_registers (); */
92/* OBSOLETE static void adapt_close (); */
93/* OBSOLETE static int adapt_clear_breakpoints (); */
94/* OBSOLETE */
95/* OBSOLETE #define FREEZE_MODE (read_register(CPS_REGNUM) && 0x400) */
96/* OBSOLETE #define USE_SHADOW_PC ((processor_type == a29k_freeze_mode) && FREEZE_MODE) */
97/* OBSOLETE */
98/* OBSOLETE /* Can't seem to get binary coff working */ */
99/* OBSOLETE #define ASCII_COFF /* Adapt will be downloaded with ascii coff */ */
100/* OBSOLETE */
101/* OBSOLETE /* FIXME: Replace with `set remotedebug'. */ */
102/* OBSOLETE #define LOG_FILE "adapt.log" */
103/* OBSOLETE #if defined (LOG_FILE) */
104/* OBSOLETE FILE *log_file = NULL; */
105/* OBSOLETE #endif */
106/* OBSOLETE */
107/* OBSOLETE static int timeout = 5; */
108/* OBSOLETE static char *dev_name; */
109/* OBSOLETE */
110/* OBSOLETE /* Descriptor for I/O to remote machine. Initialize it to -1 so that */
111/* OBSOLETE adapt_open knows that we don't have a file open when the program */
112/* OBSOLETE starts. */ */
113/* OBSOLETE int adapt_desc = -1; */
114/* OBSOLETE */
115/* OBSOLETE /* stream which is fdopen'd from adapt_desc. Only valid when */
116/* OBSOLETE adapt_desc != -1. */ */
117/* OBSOLETE FILE *adapt_stream; */
118/* OBSOLETE */
119/* OBSOLETE #define ON 1 */
120/* OBSOLETE #define OFF 0 */
121/* OBSOLETE static void */
122/* OBSOLETE rawmode (int desc, int turnon) */
123/* OBSOLETE { */
124/* OBSOLETE */
125/* OBSOLETE TERMINAL sg; */
126/* OBSOLETE */
127/* OBSOLETE if (desc < 0) */
128/* OBSOLETE return; */
129/* OBSOLETE */
130/* OBSOLETE ioctl (desc, TIOCGETP, &sg); */
131/* OBSOLETE */
132/* OBSOLETE if (turnon) */
133/* OBSOLETE { */
134/* OBSOLETE #ifdef HAVE_TERMIO */
135/* OBSOLETE sg.c_lflag &= ~(ICANON); */
136/* OBSOLETE #else */
137/* OBSOLETE sg.sg_flags |= RAW; */
138/* OBSOLETE #endif */
139/* OBSOLETE } */
140/* OBSOLETE else */
141/* OBSOLETE { */
142/* OBSOLETE #ifdef HAVE_TERMIO */
143/* OBSOLETE sg.c_lflag |= ICANON; */
144/* OBSOLETE #else */
145/* OBSOLETE sg.sg_flags &= ~(RAW); */
146/* OBSOLETE #endif */
147/* OBSOLETE } */
148/* OBSOLETE ioctl (desc, TIOCSETP, &sg); */
149/* OBSOLETE } */
150/* OBSOLETE */
151/* OBSOLETE /* Suck up all the input from the adapt */ */
152/* OBSOLETE slurp_input (void) */
153/* OBSOLETE { */
154/* OBSOLETE char buf[8]; */
155/* OBSOLETE */
156/* OBSOLETE #ifdef HAVE_TERMIO */
157/* OBSOLETE /* termio does the timeout for us. */ */
158/* OBSOLETE while (read (adapt_desc, buf, 8) > 0); */
159/* OBSOLETE #else */
160/* OBSOLETE alarm (timeout); */
161/* OBSOLETE while (read (adapt_desc, buf, 8) > 0); */
162/* OBSOLETE alarm (0); */
163/* OBSOLETE #endif */
164/* OBSOLETE } */
165/* OBSOLETE */
166/* OBSOLETE /* Read a character from the remote system, doing all the fancy */
167/* OBSOLETE timeout stuff. */ */
168/* OBSOLETE static int */
169/* OBSOLETE readchar (void) */
170/* OBSOLETE { */
171/* OBSOLETE char buf; */
172/* OBSOLETE */
173/* OBSOLETE buf = '\0'; */
174/* OBSOLETE #ifdef HAVE_TERMIO */
175/* OBSOLETE /* termio does the timeout for us. */ */
176/* OBSOLETE read (adapt_desc, &buf, 1); */
177/* OBSOLETE #else */
178/* OBSOLETE alarm (timeout); */
179/* OBSOLETE if (read (adapt_desc, &buf, 1) < 0) */
180/* OBSOLETE { */
181/* OBSOLETE if (errno == EINTR) */
182/* OBSOLETE error ("Timeout reading from remote system."); */
183/* OBSOLETE else */
184/* OBSOLETE perror_with_name ("remote"); */
185/* OBSOLETE } */
186/* OBSOLETE alarm (0); */
187/* OBSOLETE #endif */
188/* OBSOLETE */
189/* OBSOLETE if (buf == '\0') */
190/* OBSOLETE error ("Timeout reading from remote system."); */
191/* OBSOLETE #if defined (LOG_FILE) */
192/* OBSOLETE putc (buf & 0x7f, log_file); */
193/* OBSOLETE #endif */
194/* OBSOLETE return buf & 0x7f; */
195/* OBSOLETE } */
196/* OBSOLETE */
197/* OBSOLETE /* Keep discarding input from the remote system, until STRING is found. */
198/* OBSOLETE Let the user break out immediately. */ */
199/* OBSOLETE static void */
200/* OBSOLETE expect (char *string) */
201/* OBSOLETE { */
202/* OBSOLETE char *p = string; */
203/* OBSOLETE */
204/* OBSOLETE fflush (adapt_stream); */
205/* OBSOLETE immediate_quit++; */
206/* OBSOLETE while (1) */
207/* OBSOLETE { */
208/* OBSOLETE if (readchar () == *p) */
209/* OBSOLETE { */
210/* OBSOLETE p++; */
211/* OBSOLETE if (*p == '\0') */
212/* OBSOLETE { */
213/* OBSOLETE immediate_quit--; */
214/* OBSOLETE return; */
215/* OBSOLETE } */
216/* OBSOLETE } */
217/* OBSOLETE else */
218/* OBSOLETE p = string; */
219/* OBSOLETE } */
220/* OBSOLETE } */
221/* OBSOLETE */
222/* OBSOLETE /* Keep discarding input until we see the adapt prompt. */
223/* OBSOLETE */
224/* OBSOLETE The convention for dealing with the prompt is that you */
225/* OBSOLETE o give your command */
226/* OBSOLETE o *then* wait for the prompt. */
227/* OBSOLETE */
228/* OBSOLETE Thus the last thing that a procedure does with the serial line */
229/* OBSOLETE will be an expect_prompt(). Exception: adapt_resume does not */
230/* OBSOLETE wait for the prompt, because the terminal is being handed over */
231/* OBSOLETE to the inferior. However, the next thing which happens after that */
232/* OBSOLETE is a adapt_wait which does wait for the prompt. */
233/* OBSOLETE Note that this includes abnormal exit, e.g. error(). This is */
234/* OBSOLETE necessary to prevent getting into states from which we can't */
235/* OBSOLETE recover. */ */
236/* OBSOLETE static void */
237/* OBSOLETE expect_prompt (void) */
238/* OBSOLETE { */
239/* OBSOLETE #if defined (LOG_FILE) */
240/* OBSOLETE /* This is a convenient place to do this. The idea is to do it often */
241/* OBSOLETE enough that we never lose much data if we terminate abnormally. */ */
242/* OBSOLETE fflush (log_file); */
243/* OBSOLETE #endif */
244/* OBSOLETE fflush (adapt_stream); */
245/* OBSOLETE expect ("\n# "); */
246/* OBSOLETE } */
247/* OBSOLETE */
248/* OBSOLETE /* Get a hex digit from the remote system & return its value. */
249/* OBSOLETE If ignore_space is nonzero, ignore spaces (not newline, tab, etc). */ */
250/* OBSOLETE static int */
251/* OBSOLETE get_hex_digit (int ignore_space) */
252/* OBSOLETE { */
253/* OBSOLETE int ch; */
254/* OBSOLETE while (1) */
255/* OBSOLETE { */
256/* OBSOLETE ch = readchar (); */
257/* OBSOLETE if (ch >= '0' && ch <= '9') */
258/* OBSOLETE return ch - '0'; */
259/* OBSOLETE else if (ch >= 'A' && ch <= 'F') */
260/* OBSOLETE return ch - 'A' + 10; */
261/* OBSOLETE else if (ch >= 'a' && ch <= 'f') */
262/* OBSOLETE return ch - 'a' + 10; */
263/* OBSOLETE else if (ch == ' ' && ignore_space) */
264/* OBSOLETE ; */
265/* OBSOLETE else */
266/* OBSOLETE { */
267/* OBSOLETE expect_prompt (); */
268/* OBSOLETE error ("Invalid hex digit from remote system."); */
269/* OBSOLETE } */
270/* OBSOLETE } */
271/* OBSOLETE } */
272/* OBSOLETE */
273/* OBSOLETE /* Get a byte from adapt_desc and put it in *BYT. Accept any number */
274/* OBSOLETE leading spaces. */ */
275/* OBSOLETE static void */
276/* OBSOLETE get_hex_byte (char *byt) */
277/* OBSOLETE { */
278/* OBSOLETE int val; */
279/* OBSOLETE */
280/* OBSOLETE val = get_hex_digit (1) << 4; */
281/* OBSOLETE val |= get_hex_digit (0); */
282/* OBSOLETE *byt = val; */
283/* OBSOLETE } */
284/* OBSOLETE */
285/* OBSOLETE /* Read a 32-bit hex word from the adapt, preceded by a space */ */
286/* OBSOLETE static long */
287/* OBSOLETE get_hex_word (void) */
288/* OBSOLETE { */
289/* OBSOLETE long val; */
290/* OBSOLETE int j; */
291/* OBSOLETE */
292/* OBSOLETE val = 0; */
293/* OBSOLETE for (j = 0; j < 8; j++) */
294/* OBSOLETE val = (val << 4) + get_hex_digit (j == 0); */
295/* OBSOLETE return val; */
296/* OBSOLETE } */
297/* OBSOLETE /* Get N 32-bit hex words from remote, each preceded by a space */
298/* OBSOLETE and put them in registers starting at REGNO. */ */
299/* OBSOLETE static void */
300/* OBSOLETE get_hex_regs (int n, int regno) */
301/* OBSOLETE { */
302/* OBSOLETE long val; */
303/* OBSOLETE while (n--) */
304/* OBSOLETE { */
305/* OBSOLETE val = get_hex_word (); */
306/* OBSOLETE supply_register (regno++, (char *) &val); */
307/* OBSOLETE } */
308/* OBSOLETE } */
309/* OBSOLETE /* Called when SIGALRM signal sent due to alarm() timeout. */ */
310/* OBSOLETE #ifndef HAVE_TERMIO */
311/* OBSOLETE */
312/* OBSOLETE volatile int n_alarms; */
313/* OBSOLETE */
314/* OBSOLETE void */
315/* OBSOLETE adapt_timer (void) */
316/* OBSOLETE { */
317/* OBSOLETE #if 0 */
318/* OBSOLETE if (kiodebug) */
319/* OBSOLETE printf ("adapt_timer called\n"); */
320/* OBSOLETE #endif */
321/* OBSOLETE n_alarms++; */
322/* OBSOLETE } */
323/* OBSOLETE #endif */
324/* OBSOLETE */
325/* OBSOLETE /* malloc'd name of the program on the remote system. */ */
326/* OBSOLETE static char *prog_name = NULL; */
327/* OBSOLETE */
328/* OBSOLETE /* Number of SIGTRAPs we need to simulate. That is, the next */
329/* OBSOLETE NEED_ARTIFICIAL_TRAP calls to adapt_wait should just return */
330/* OBSOLETE SIGTRAP without actually waiting for anything. */ */
331/* OBSOLETE */
332/* OBSOLETE static int need_artificial_trap = 0; */
333/* OBSOLETE */
334/* OBSOLETE void */
335/* OBSOLETE adapt_kill (char *arg, int from_tty) */
336/* OBSOLETE { */
337/* OBSOLETE fprintf (adapt_stream, "K"); */
338/* OBSOLETE fprintf (adapt_stream, "\r"); */
339/* OBSOLETE expect_prompt (); */
340/* OBSOLETE } */
341/* OBSOLETE /* */
342/* OBSOLETE * Download a file specified in 'args', to the adapt. */
343/* OBSOLETE * FIXME: Assumes the file to download is a binary coff file. */
344/* OBSOLETE */ */
345/* OBSOLETE static void */
346/* OBSOLETE adapt_load (char *args, int fromtty) */
347/* OBSOLETE { */
348/* OBSOLETE FILE *fp; */
349/* OBSOLETE int n; */
350/* OBSOLETE char buffer[1024]; */
351/* OBSOLETE */
352/* OBSOLETE if (!adapt_stream) */
353/* OBSOLETE { */
354/* OBSOLETE printf_filtered ("Adapt not open. Use 'target' command to open adapt\n"); */
355/* OBSOLETE return; */
356/* OBSOLETE } */
357/* OBSOLETE */
358/* OBSOLETE /* OK, now read in the file. Y=read, C=COFF, T=dTe port */
359/* OBSOLETE 0=start address. */ */
360/* OBSOLETE */
361/* OBSOLETE #ifdef ASCII_COFF /* Ascii coff */ */
362/* OBSOLETE fprintf (adapt_stream, "YA T,0\r"); */
363/* OBSOLETE fflush (adapt_stream); /* Just in case */ */
364/* OBSOLETE /* FIXME: should check args for only 1 argument */ */
365/* OBSOLETE sprintf (buffer, "cat %s | btoa > /tmp/#adapt-btoa", args); */
366/* OBSOLETE system (buffer); */
367/* OBSOLETE fp = fopen ("/tmp/#adapt-btoa", "r"); */
368/* OBSOLETE rawmode (adapt_desc, OFF); */
369/* OBSOLETE while (n = fread (buffer, 1, 1024, fp)) */
370/* OBSOLETE { */
371/* OBSOLETE do */
372/* OBSOLETE { */
373/* OBSOLETE n -= write (adapt_desc, buffer, n); */
374/* OBSOLETE } */
375/* OBSOLETE while (n > 0); */
376/* OBSOLETE if (n < 0) */
377/* OBSOLETE { */
378/* OBSOLETE perror ("writing ascii coff"); */
379/* OBSOLETE break; */
380/* OBSOLETE } */
381/* OBSOLETE } */
382/* OBSOLETE fclose (fp); */
383/* OBSOLETE rawmode (adapt_desc, ON); */
384/* OBSOLETE system ("rm /tmp/#adapt-btoa"); */
385/* OBSOLETE #else /* Binary coff - can't get it to work . */ */
386/* OBSOLETE fprintf (adapt_stream, "YC T,0\r"); */
387/* OBSOLETE fflush (adapt_stream); /* Just in case */ */
388/* OBSOLETE if (!(fp = fopen (args, "r"))) */
389/* OBSOLETE { */
390/* OBSOLETE printf_filtered ("Can't open %s\n", args); */
391/* OBSOLETE return; */
392/* OBSOLETE } */
393/* OBSOLETE while (n = fread (buffer, 1, 512, fp)) */
394/* OBSOLETE { */
395/* OBSOLETE do */
396/* OBSOLETE { */
397/* OBSOLETE n -= write (adapt_desc, buffer, n); */
398/* OBSOLETE } */
399/* OBSOLETE while (n > 0); */
400/* OBSOLETE if (n < 0) */
401/* OBSOLETE { */
402/* OBSOLETE perror ("writing ascii coff"); */
403/* OBSOLETE break; */
404/* OBSOLETE } */
405/* OBSOLETE } */
406/* OBSOLETE fclose (fp); */
407/* OBSOLETE #endif */
408/* OBSOLETE expect_prompt (); /* Skip garbage that comes out */ */
409/* OBSOLETE fprintf (adapt_stream, "\r"); */
410/* OBSOLETE expect_prompt (); */
411/* OBSOLETE } */
412/* OBSOLETE */
413/* OBSOLETE /* This is called not only when we first attach, but also when the */
414/* OBSOLETE user types "run" after having attached. */ */
415/* OBSOLETE void */
416/* OBSOLETE adapt_create_inferior (char *execfile, char *args, char **env) */
417/* OBSOLETE { */
418/* OBSOLETE int entry_pt; */
419/* OBSOLETE */
420/* OBSOLETE if (args && *args) */
421/* OBSOLETE error ("Can't pass arguments to remote adapt process."); */
422/* OBSOLETE */
423/* OBSOLETE if (execfile == 0 || exec_bfd == 0) */
424/* OBSOLETE error ("No executable file specified"); */
425/* OBSOLETE */
426/* OBSOLETE entry_pt = (int) bfd_get_start_address (exec_bfd); */
427/* OBSOLETE */
428/* OBSOLETE if (adapt_stream) */
429/* OBSOLETE { */
430/* OBSOLETE adapt_kill (NULL, NULL); */
431/* OBSOLETE adapt_clear_breakpoints (); */
432/* OBSOLETE init_wait_for_inferior (); */
433/* OBSOLETE /* Clear the input because what the adapt sends back is different */
434/* OBSOLETE * depending on whether it was running or not. */
435/* OBSOLETE */ */
436/* OBSOLETE slurp_input (); /* After this there should be a prompt */ */
437/* OBSOLETE fprintf (adapt_stream, "\r"); */
438/* OBSOLETE expect_prompt (); */
439/* OBSOLETE printf_filtered ("Do you want to download '%s' (y/n)? [y] : ", prog_name); */
440/* OBSOLETE { */
441/* OBSOLETE char buffer[10]; */
442/* OBSOLETE gets (buffer); */
443/* OBSOLETE if (*buffer != 'n') */
444/* OBSOLETE { */
445/* OBSOLETE adapt_load (prog_name, 0); */
446/* OBSOLETE } */
447/* OBSOLETE } */
448/* OBSOLETE */
449/* OBSOLETE #ifdef NOTDEF */
450/* OBSOLETE /* Set the PC and wait for a go/cont */ */
451/* OBSOLETE fprintf (adapt_stream, "G %x,N\r", entry_pt); */
452/* OBSOLETE printf_filtered ("Now use the 'continue' command to start.\n"); */
453/* OBSOLETE expect_prompt (); */
454/* OBSOLETE #else */
455/* OBSOLETE insert_breakpoints (); /* Needed to get correct instruction in cache */ */
456/* OBSOLETE proceed (entry_pt, TARGET_SIGNAL_DEFAULT, 0); */
457/* OBSOLETE #endif */
458/* OBSOLETE */
459/* OBSOLETE } */
460/* OBSOLETE else */
461/* OBSOLETE { */
462/* OBSOLETE printf_filtered ("Adapt not open yet.\n"); */
463/* OBSOLETE } */
464/* OBSOLETE } */
465/* OBSOLETE */
466/* OBSOLETE /* Translate baud rates from integers to damn B_codes. Unix should */
467/* OBSOLETE have outgrown this crap years ago, but even POSIX wouldn't buck it. */ */
468/* OBSOLETE */
469/* OBSOLETE #ifndef B19200 */
470/* OBSOLETE #define B19200 EXTA */
471/* OBSOLETE #endif */
472/* OBSOLETE #ifndef B38400 */
473/* OBSOLETE #define B38400 EXTB */
474/* OBSOLETE #endif */
475/* OBSOLETE */
476/* OBSOLETE static struct */
477/* OBSOLETE { */
478/* OBSOLETE int rate, damn_b; */
479/* OBSOLETE } */
480/* OBSOLETE baudtab[] = */
481/* OBSOLETE { */
482/* OBSOLETE { */
483/* OBSOLETE 0, B0 */
484/* OBSOLETE } */
485/* OBSOLETE , */
486/* OBSOLETE { */
487/* OBSOLETE 50, B50 */
488/* OBSOLETE } */
489/* OBSOLETE , */
490/* OBSOLETE { */
491/* OBSOLETE 75, B75 */
492/* OBSOLETE } */
493/* OBSOLETE , */
494/* OBSOLETE { */
495/* OBSOLETE 110, B110 */
496/* OBSOLETE } */
497/* OBSOLETE , */
498/* OBSOLETE { */
499/* OBSOLETE 134, B134 */
500/* OBSOLETE } */
501/* OBSOLETE , */
502/* OBSOLETE { */
503/* OBSOLETE 150, B150 */
504/* OBSOLETE } */
505/* OBSOLETE , */
506/* OBSOLETE { */
507/* OBSOLETE 200, B200 */
508/* OBSOLETE } */
509/* OBSOLETE , */
510/* OBSOLETE { */
511/* OBSOLETE 300, B300 */
512/* OBSOLETE } */
513/* OBSOLETE , */
514/* OBSOLETE { */
515/* OBSOLETE 600, B600 */
516/* OBSOLETE } */
517/* OBSOLETE , */
518/* OBSOLETE { */
519/* OBSOLETE 1200, B1200 */
520/* OBSOLETE } */
521/* OBSOLETE , */
522/* OBSOLETE { */
523/* OBSOLETE 1800, B1800 */
524/* OBSOLETE } */
525/* OBSOLETE , */
526/* OBSOLETE { */
527/* OBSOLETE 2400, B2400 */
528/* OBSOLETE } */
529/* OBSOLETE , */
530/* OBSOLETE { */
531/* OBSOLETE 4800, B4800 */
532/* OBSOLETE } */
533/* OBSOLETE , */
534/* OBSOLETE { */
535/* OBSOLETE 9600, B9600 */
536/* OBSOLETE } */
537/* OBSOLETE , */
538/* OBSOLETE { */
539/* OBSOLETE 19200, B19200 */
540/* OBSOLETE } */
541/* OBSOLETE , */
542/* OBSOLETE { */
543/* OBSOLETE 38400, B38400 */
544/* OBSOLETE } */
545/* OBSOLETE , */
546/* OBSOLETE { */
547/* OBSOLETE -1, -1 */
548/* OBSOLETE } */
549/* OBSOLETE , */
550/* OBSOLETE }; */
551/* OBSOLETE */
552/* OBSOLETE static int */
553/* OBSOLETE damn_b (int rate) */
554/* OBSOLETE { */
555/* OBSOLETE int i; */
556/* OBSOLETE */
557/* OBSOLETE for (i = 0; baudtab[i].rate != -1; i++) */
558/* OBSOLETE if (rate == baudtab[i].rate) */
559/* OBSOLETE return baudtab[i].damn_b; */
560/* OBSOLETE return B38400; /* Random */ */
561/* OBSOLETE } */
562/* OBSOLETE */
563/* OBSOLETE */
564/* OBSOLETE /* Open a connection to a remote debugger. */
565/* OBSOLETE NAME is the filename used for communication, then a space, */
566/* OBSOLETE then the baud rate. */
567/* OBSOLETE */ */
568/* OBSOLETE */
569/* OBSOLETE static int baudrate = 9600; */
570/* OBSOLETE static void */
571/* OBSOLETE adapt_open (char *name, int from_tty) */
572/* OBSOLETE { */
573/* OBSOLETE TERMINAL sg; */
574/* OBSOLETE unsigned int prl; */
575/* OBSOLETE char *p; */
576/* OBSOLETE */
577/* OBSOLETE /* Find the first whitespace character, it separates dev_name from */
578/* OBSOLETE prog_name. */ */
579/* OBSOLETE if (name == 0) */
580/* OBSOLETE goto erroid; */
581/* OBSOLETE */
582/* OBSOLETE for (p = name; */
583/* OBSOLETE *p != '\0' && !isspace (*p); p++) */
584/* OBSOLETE ; */
585/* OBSOLETE if (*p == '\0') */
586/* OBSOLETE erroid: */
587/* OBSOLETE error ("\ */
588/* OBSOLETE Please include the name of the device for the serial port,\n\ */
589/* OBSOLETE the baud rate, and the name of the program to run on the remote system."); */
590/* OBSOLETE dev_name = (char *) xmalloc (p - name + 1); */
591/* OBSOLETE strncpy (dev_name, name, p - name); */
592/* OBSOLETE dev_name[p - name] = '\0'; */
593/* OBSOLETE */
594/* OBSOLETE /* Skip over the whitespace after dev_name */ */
595/* OBSOLETE for (; isspace (*p); p++) */
596/* OBSOLETE /*EMPTY */ ; */
597/* OBSOLETE */
598/* OBSOLETE if (1 != sscanf (p, "%d ", &baudrate)) */
599/* OBSOLETE goto erroid; */
600/* OBSOLETE */
601/* OBSOLETE /* Skip the number and then the spaces */ */
602/* OBSOLETE for (; isdigit (*p); p++) */
603/* OBSOLETE /*EMPTY */ ; */
604/* OBSOLETE for (; isspace (*p); p++) */
605/* OBSOLETE /*EMPTY */ ; */
606/* OBSOLETE */
607/* OBSOLETE if (prog_name != NULL) */
608/* OBSOLETE xfree (prog_name); */
609/* OBSOLETE prog_name = savestring (p, strlen (p)); */
610/* OBSOLETE */
611/* OBSOLETE adapt_close (0); */
612/* OBSOLETE */
613/* OBSOLETE adapt_desc = open (dev_name, O_RDWR); */
614/* OBSOLETE if (adapt_desc < 0) */
615/* OBSOLETE perror_with_name (dev_name); */
616/* OBSOLETE ioctl (adapt_desc, TIOCGETP, &sg); */
617/* OBSOLETE #if ! defined(COMPILE_CHECK) */
618/* OBSOLETE #ifdef HAVE_TERMIO */
619/* OBSOLETE sg.c_cc[VMIN] = 0; /* read with timeout. */ */
620/* OBSOLETE sg.c_cc[VTIME] = timeout * 10; */
621/* OBSOLETE sg.c_lflag &= ~(ICANON | ECHO); */
622/* OBSOLETE sg.c_cflag = (sg.c_cflag & ~CBAUD) | damn_b (baudrate); */
623/* OBSOLETE #else */
624/* OBSOLETE sg.sg_ispeed = damn_b (baudrate); */
625/* OBSOLETE sg.sg_ospeed = damn_b (baudrate); */
626/* OBSOLETE sg.sg_flags |= RAW | ANYP; */
627/* OBSOLETE sg.sg_flags &= ~ECHO; */
628/* OBSOLETE #endif */
629/* OBSOLETE */
630/* OBSOLETE ioctl (adapt_desc, TIOCSETP, &sg); */
631/* OBSOLETE adapt_stream = fdopen (adapt_desc, "r+"); */
632/* OBSOLETE #endif /* compile_check */ */
633/* OBSOLETE push_target (&adapt_ops); */
634/* OBSOLETE */
635/* OBSOLETE #ifndef HAVE_TERMIO */
636/* OBSOLETE #ifndef NO_SIGINTERRUPT */
637/* OBSOLETE /* Cause SIGALRM's to make reads fail with EINTR instead of resuming */
638/* OBSOLETE the read. */ */
639/* OBSOLETE if (siginterrupt (SIGALRM, 1) != 0) */
640/* OBSOLETE perror ("adapt_open: error in siginterrupt"); */
641/* OBSOLETE #endif */
642/* OBSOLETE */
643/* OBSOLETE /* Set up read timeout timer. */ */
644/* OBSOLETE if ((void (*)) signal (SIGALRM, adapt_timer) == (void (*)) -1) */
645/* OBSOLETE perror ("adapt_open: error in signal"); */
646/* OBSOLETE #endif */
647/* OBSOLETE */
648/* OBSOLETE #if defined (LOG_FILE) */
649/* OBSOLETE log_file = fopen (LOG_FILE, "w"); */
650/* OBSOLETE if (log_file == NULL) */
651/* OBSOLETE perror_with_name (LOG_FILE); */
652/* OBSOLETE #endif */
653/* OBSOLETE */
654/* OBSOLETE /* Put this port into NORMAL mode, send the 'normal' character */ */
655/* OBSOLETE write (adapt_desc, "\ 1", 1); /* Control A */ */
656/* OBSOLETE write (adapt_desc, "\r", 1); */
657/* OBSOLETE expect_prompt (); */
658/* OBSOLETE */
659/* OBSOLETE /* Hello? Are you there? */ */
660/* OBSOLETE write (adapt_desc, "\r", 1); */
661/* OBSOLETE */
662/* OBSOLETE expect_prompt (); */
663/* OBSOLETE */
664/* OBSOLETE /* Clear any break points */ */
665/* OBSOLETE adapt_clear_breakpoints (); */
666/* OBSOLETE */
667/* OBSOLETE /* Print out some stuff, letting the user now what's going on */ */
668/* OBSOLETE printf_filtered ("Connected to an Adapt via %s.\n", dev_name); */
669/* OBSOLETE /* FIXME: can this restriction be removed? */ */
670/* OBSOLETE printf_filtered ("Remote debugging using virtual addresses works only\n"); */
671/* OBSOLETE printf_filtered ("\twhen virtual addresses map 1:1 to physical addresses.\n"); */
672/* OBSOLETE if (processor_type != a29k_freeze_mode) */
673/* OBSOLETE { */
674/* OBSOLETE fprintf_filtered (gdb_stderr, */
675/* OBSOLETE "Freeze-mode debugging not available, and can only be done on an A29050.\n"); */
676/* OBSOLETE } */
677/* OBSOLETE } */
678/* OBSOLETE */
679/* OBSOLETE /* Close out all files and local state before this target loses control. */ */
680/* OBSOLETE */
681/* OBSOLETE static void */
682/* OBSOLETE adapt_close (int quitting) */
683/* OBSOLETE { */
684/* OBSOLETE */
685/* OBSOLETE /* Clear any break points */ */
686/* OBSOLETE adapt_clear_breakpoints (); */
687/* OBSOLETE */
688/* OBSOLETE /* Put this port back into REMOTE mode */ */
689/* OBSOLETE if (adapt_stream) */
690/* OBSOLETE { */
691/* OBSOLETE fflush (adapt_stream); */
692/* OBSOLETE sleep (1); /* Let any output make it all the way back */ */
693/* OBSOLETE write (adapt_desc, "R\r", 2); */
694/* OBSOLETE } */
695/* OBSOLETE */
696/* OBSOLETE /* Due to a bug in Unix, fclose closes not only the stdio stream, */
697/* OBSOLETE but also the file descriptor. So we don't actually close */
698/* OBSOLETE adapt_desc. */ */
699/* OBSOLETE if (adapt_stream) */
700/* OBSOLETE fclose (adapt_stream); /* This also closes adapt_desc */ */
701/* OBSOLETE if (adapt_desc >= 0) */
702/* OBSOLETE /* close (adapt_desc); */ */
703/* OBSOLETE */
704/* OBSOLETE /* Do not try to close adapt_desc again, later in the program. */ */
705/* OBSOLETE adapt_stream = NULL; */
706/* OBSOLETE adapt_desc = -1; */
707/* OBSOLETE */
708/* OBSOLETE #if defined (LOG_FILE) */
709/* OBSOLETE if (log_file) */
710/* OBSOLETE { */
711/* OBSOLETE if (ferror (log_file)) */
712/* OBSOLETE printf_filtered ("Error writing log file.\n"); */
713/* OBSOLETE if (fclose (log_file) != 0) */
714/* OBSOLETE printf_filtered ("Error closing log file.\n"); */
715/* OBSOLETE log_file = NULL; */
716/* OBSOLETE } */
717/* OBSOLETE #endif */
718/* OBSOLETE } */
719/* OBSOLETE */
720/* OBSOLETE /* Attach to the target that is already loaded and possibly running */ */
721/* OBSOLETE static void */
722/* OBSOLETE adapt_attach (char *args, int from_tty) */
723/* OBSOLETE { */
724/* OBSOLETE */
725/* OBSOLETE if (from_tty) */
726/* OBSOLETE printf_filtered ("Attaching to remote program %s.\n", prog_name); */
727/* OBSOLETE */
728/* OBSOLETE /* Send the adapt a kill. It is ok if it is not already running */ */
729/* OBSOLETE fprintf (adapt_stream, "K\r"); */
730/* OBSOLETE fflush (adapt_stream); */
731/* OBSOLETE expect_prompt (); /* Slurp the echo */ */
732/* OBSOLETE } */
733/* OBSOLETE */
734/* OBSOLETE */
735/* OBSOLETE /* Terminate the open connection to the remote debugger. */
736/* OBSOLETE Use this when you want to detach and do something else */
737/* OBSOLETE with your gdb. */ */
738/* OBSOLETE void */
739/* OBSOLETE adapt_detach (char *args, int from_tty) */
740/* OBSOLETE { */
741/* OBSOLETE */
742/* OBSOLETE if (adapt_stream) */
743/* OBSOLETE { /* Send it on its way (tell it to continue) */ */
744/* OBSOLETE adapt_clear_breakpoints (); */
745/* OBSOLETE fprintf (adapt_stream, "G\r"); */
746/* OBSOLETE } */
747/* OBSOLETE */
748/* OBSOLETE pop_target (); /* calls adapt_close to do the real work */ */
749/* OBSOLETE if (from_tty) */
750/* OBSOLETE printf_filtered ("Ending remote %s debugging\n", target_shortname); */
751/* OBSOLETE } */
752/* OBSOLETE */
753/* OBSOLETE /* Tell the remote machine to resume. */ */
754/* OBSOLETE */
755/* OBSOLETE void */
756/* OBSOLETE adapt_resume (ptid_t ptid, int step, enum target_signal sig) */
757/* OBSOLETE { */
758/* OBSOLETE if (step) */
759/* OBSOLETE { */
760/* OBSOLETE write (adapt_desc, "t 1,s\r", 6); */
761/* OBSOLETE /* Wait for the echo. */ */
762/* OBSOLETE expect ("t 1,s\r\n"); */
763/* OBSOLETE /* Then comes a line containing the instruction we stepped to. */ */
764/* OBSOLETE expect ("@"); */
765/* OBSOLETE /* Then we get the prompt. */ */
766/* OBSOLETE expect_prompt (); */
767/* OBSOLETE */
768/* OBSOLETE /* Force the next adapt_wait to return a trap. Not doing anything */
769/* OBSOLETE about I/O from the target means that the user has to type */
770/* OBSOLETE "continue" to see any. FIXME, this should be fixed. */ */
771/* OBSOLETE need_artificial_trap = 1; */
772/* OBSOLETE } */
773/* OBSOLETE else */
774/* OBSOLETE { */
775/* OBSOLETE write (adapt_desc, "G\r", 2); */
776/* OBSOLETE /* Swallow the echo. */ */
777/* OBSOLETE expect_prompt (); */
778/* OBSOLETE } */
779/* OBSOLETE } */
780/* OBSOLETE */
781/* OBSOLETE /* Wait until the remote machine stops, then return, */
782/* OBSOLETE storing status in STATUS just as `wait' would. */ */
783/* OBSOLETE */
784/* OBSOLETE ptid_t */
785/* OBSOLETE adapt_wait (ptid_t ptid, struct target_waitstatus *status) */
786/* OBSOLETE { */
787/* OBSOLETE /* Strings to look for. '?' means match any single character. */
788/* OBSOLETE Note that with the algorithm we use, the initial character */
789/* OBSOLETE of the string cannot recur in the string, or we will not */
790/* OBSOLETE find some cases of the string in the input. */ */
791/* OBSOLETE */
792/* OBSOLETE static char bpt[] = "@"; */
793/* OBSOLETE /* It would be tempting to look for "\n[__exit + 0x8]\n" */
794/* OBSOLETE but that requires loading symbols with "yc i" and even if */
795/* OBSOLETE we did do that we don't know that the file has symbols. */ */
796/* OBSOLETE static char exitmsg[] = "@????????I JMPTI GR121,LR0"; */
797/* OBSOLETE char *bp = bpt; */
798/* OBSOLETE char *ep = exitmsg; */
799/* OBSOLETE */
800/* OBSOLETE /* Large enough for either sizeof (bpt) or sizeof (exitmsg) chars. */ */
801/* OBSOLETE char swallowed[50]; */
802/* OBSOLETE /* Current position in swallowed. */ */
803/* OBSOLETE char *swallowed_p = swallowed; */
804/* OBSOLETE */
805/* OBSOLETE int ch; */
806/* OBSOLETE int ch_handled; */
807/* OBSOLETE int old_timeout = timeout; */
808/* OBSOLETE int old_immediate_quit = immediate_quit; */
809/* OBSOLETE */
810/* OBSOLETE status->kind = TARGET_WAITKIND_EXITED; */
811/* OBSOLETE status->value.integer = 0; */
812/* OBSOLETE */
813/* OBSOLETE if (need_artificial_trap != 0) */
814/* OBSOLETE { */
815/* OBSOLETE status->kind = TARGET_WAITKIND_STOPPED; */
816/* OBSOLETE status->value.sig = TARGET_SIGNAL_TRAP; */
817/* OBSOLETE need_artificial_trap--; */
818/* OBSOLETE return inferior_ptid; */
819/* OBSOLETE } */
820/* OBSOLETE */
821/* OBSOLETE timeout = 0; /* Don't time out -- user program is running. */ */
822/* OBSOLETE immediate_quit = 1; /* Helps ability to QUIT */ */
823/* OBSOLETE while (1) */
824/* OBSOLETE { */
825/* OBSOLETE QUIT; /* Let user quit and leave process running */ */
826/* OBSOLETE ch_handled = 0; */
827/* OBSOLETE ch = readchar (); */
828/* OBSOLETE if (ch == *bp) */
829/* OBSOLETE { */
830/* OBSOLETE bp++; */
831/* OBSOLETE if (*bp == '\0') */
832/* OBSOLETE break; */
833/* OBSOLETE ch_handled = 1; */
834/* OBSOLETE */
835/* OBSOLETE *swallowed_p++ = ch; */
836/* OBSOLETE } */
837/* OBSOLETE else */
838/* OBSOLETE bp = bpt; */
839/* OBSOLETE if (ch == *ep || *ep == '?') */
840/* OBSOLETE { */
841/* OBSOLETE ep++; */
842/* OBSOLETE if (*ep == '\0') */
843/* OBSOLETE break; */
844/* OBSOLETE */
845/* OBSOLETE if (!ch_handled) */
846/* OBSOLETE *swallowed_p++ = ch; */
847/* OBSOLETE ch_handled = 1; */
848/* OBSOLETE } */
849/* OBSOLETE else */
850/* OBSOLETE ep = exitmsg; */
851/* OBSOLETE if (!ch_handled) */
852/* OBSOLETE { */
853/* OBSOLETE char *p; */
854/* OBSOLETE /* Print out any characters which have been swallowed. */ */
855/* OBSOLETE for (p = swallowed; p < swallowed_p; ++p) */
856/* OBSOLETE putc (*p, stdout); */
857/* OBSOLETE swallowed_p = swallowed; */
858/* OBSOLETE putc (ch, stdout); */
859/* OBSOLETE } */
860/* OBSOLETE } */
861/* OBSOLETE expect_prompt (); */
862/* OBSOLETE if (*bp == '\0') */
863/* OBSOLETE { */
864/* OBSOLETE status->kind = TARGET_WAITKIND_STOPPED; */
865/* OBSOLETE status->value.sig = TARGET_SIGNAL_TRAP; */
866/* OBSOLETE } */
867/* OBSOLETE else */
868/* OBSOLETE { */
869/* OBSOLETE status->kind = TARGET_WAITKIND_EXITED; */
870/* OBSOLETE status->value.integer = 0; */
871/* OBSOLETE } */
872/* OBSOLETE timeout = old_timeout; */
873/* OBSOLETE immediate_quit = old_immediate_quit; */
874/* OBSOLETE return inferior_ptid; */
875/* OBSOLETE } */
876/* OBSOLETE */
877/* OBSOLETE /* Return the name of register number REGNO */
878/* OBSOLETE in the form input and output by adapt. */
879/* OBSOLETE */
880/* OBSOLETE Returns a pointer to a static buffer containing the answer. */ */
881/* OBSOLETE static char * */
882/* OBSOLETE get_reg_name (int regno) */
883/* OBSOLETE { */
884/* OBSOLETE static char buf[80]; */
885/* OBSOLETE if (regno >= GR96_REGNUM && regno < GR96_REGNUM + 32) */
886/* OBSOLETE sprintf (buf, "GR%03d", regno - GR96_REGNUM + 96); */
887/* OBSOLETE #if defined(GR64_REGNUM) */
888/* OBSOLETE else if (regno >= GR64_REGNUM && regno < GR64_REGNUM + 32) */
889/* OBSOLETE sprintf (buf, "GR%03d", regno - GR64_REGNUM + 64); */
890/* OBSOLETE #endif */
891/* OBSOLETE else if (regno >= LR0_REGNUM && regno < LR0_REGNUM + 128) */
892/* OBSOLETE sprintf (buf, "LR%03d", regno - LR0_REGNUM); */
893/* OBSOLETE else if (regno == Q_REGNUM) */
894/* OBSOLETE strcpy (buf, "SR131"); */
895/* OBSOLETE else if (regno >= BP_REGNUM && regno <= CR_REGNUM) */
896/* OBSOLETE sprintf (buf, "SR%03d", regno - BP_REGNUM + 133); */
897/* OBSOLETE else if (regno == ALU_REGNUM) */
898/* OBSOLETE strcpy (buf, "SR132"); */
899/* OBSOLETE else if (regno >= IPC_REGNUM && regno <= IPB_REGNUM) */
900/* OBSOLETE sprintf (buf, "SR%03d", regno - IPC_REGNUM + 128); */
901/* OBSOLETE else if (regno >= VAB_REGNUM && regno <= LRU_REGNUM) */
902/* OBSOLETE { */
903/* OBSOLETE /* When a 29050 is in freeze-mode, read shadow pcs instead */ */
904/* OBSOLETE if ((regno >= NPC_REGNUM && regno <= PC2_REGNUM) && USE_SHADOW_PC) */
905/* OBSOLETE sprintf (buf, "SR%03d", regno - NPC_REGNUM + 20); */
906/* OBSOLETE else */
907/* OBSOLETE sprintf (buf, "SR%03d", regno - VAB_REGNUM); */
908/* OBSOLETE } */
909/* OBSOLETE else if (regno == GR1_REGNUM) */
910/* OBSOLETE strcpy (buf, "GR001"); */
911/* OBSOLETE return buf; */
912/* OBSOLETE } */
913/* OBSOLETE */
914/* OBSOLETE /* Read the remote registers. */ */
915/* OBSOLETE */
916/* OBSOLETE static void */
917/* OBSOLETE adapt_fetch_registers (void) */
918/* OBSOLETE { */
919/* OBSOLETE int reg_index; */
920/* OBSOLETE int regnum_index; */
921/* OBSOLETE char tempbuf[10]; */
922/* OBSOLETE int sreg_buf[16]; */
923/* OBSOLETE int i, j; */
924/* OBSOLETE */
925/* OBSOLETE /* */
926/* OBSOLETE * Global registers */
927/* OBSOLETE */ */
928/* OBSOLETE #if defined(GR64_REGNUM) */
929/* OBSOLETE write (adapt_desc, "dw gr64,gr95\r", 13); */
930/* OBSOLETE for (reg_index = 64, regnum_index = GR64_REGNUM; */
931/* OBSOLETE reg_index < 96; */
932/* OBSOLETE reg_index += 4, regnum_index += 4) */
933/* OBSOLETE { */
934/* OBSOLETE sprintf (tempbuf, "GR%03d ", reg_index); */
935/* OBSOLETE expect (tempbuf); */
936/* OBSOLETE get_hex_regs (4, regnum_index); */
937/* OBSOLETE expect ("\n"); */
938/* OBSOLETE } */
939/* OBSOLETE #endif */
940/* OBSOLETE write (adapt_desc, "dw gr96,gr127\r", 14); */
941/* OBSOLETE for (reg_index = 96, regnum_index = GR96_REGNUM; */
942/* OBSOLETE reg_index < 128; */
943/* OBSOLETE reg_index += 4, regnum_index += 4) */
944/* OBSOLETE { */
945/* OBSOLETE sprintf (tempbuf, "GR%03d ", reg_index); */
946/* OBSOLETE expect (tempbuf); */
947/* OBSOLETE get_hex_regs (4, regnum_index); */
948/* OBSOLETE expect ("\n"); */
949/* OBSOLETE } */
950/* OBSOLETE */
951/* OBSOLETE /* */
952/* OBSOLETE * Local registers */
953/* OBSOLETE */ */
954/* OBSOLETE for (i = 0; i < 128; i += 32) */
955/* OBSOLETE { */
956/* OBSOLETE /* The PC has a tendency to hang if we get these */
957/* OBSOLETE all in one fell swoop ("dw lr0,lr127"). */ */
958/* OBSOLETE sprintf (tempbuf, "dw lr%d\r", i); */
959/* OBSOLETE write (adapt_desc, tempbuf, strlen (tempbuf)); */
960/* OBSOLETE for (reg_index = i, regnum_index = LR0_REGNUM + i; */
961/* OBSOLETE reg_index < i + 32; */
962/* OBSOLETE reg_index += 4, regnum_index += 4) */
963/* OBSOLETE { */
964/* OBSOLETE sprintf (tempbuf, "LR%03d ", reg_index); */
965/* OBSOLETE expect (tempbuf); */
966/* OBSOLETE get_hex_regs (4, regnum_index); */
967/* OBSOLETE expect ("\n"); */
968/* OBSOLETE } */
969/* OBSOLETE } */
970/* OBSOLETE */
971/* OBSOLETE /* */
972/* OBSOLETE * Special registers */
973/* OBSOLETE */ */
974/* OBSOLETE sprintf (tempbuf, "dw sr0\r"); */
975/* OBSOLETE write (adapt_desc, tempbuf, strlen (tempbuf)); */
976/* OBSOLETE for (i = 0; i < 4; i++) */
977/* OBSOLETE { /* SR0 - SR14 */ */
978/* OBSOLETE sprintf (tempbuf, "SR%3d", i * 4); */
979/* OBSOLETE expect (tempbuf); */
980/* OBSOLETE for (j = 0; j < (i == 3 ? 3 : 4); j++) */
981/* OBSOLETE sreg_buf[i * 4 + j] = get_hex_word (); */
982/* OBSOLETE } */
983/* OBSOLETE expect_prompt (); */
984/* OBSOLETE /* */
985/* OBSOLETE * Read the pcs individually if we are in freeze mode. */
986/* OBSOLETE * See get_reg_name(), it translates the register names for the pcs to */
987/* OBSOLETE * the names of the shadow pcs. */
988/* OBSOLETE */ */
989/* OBSOLETE if (USE_SHADOW_PC) */
990/* OBSOLETE { */
991/* OBSOLETE sreg_buf[10] = read_register (NPC_REGNUM); /* pc0 */ */
992/* OBSOLETE sreg_buf[11] = read_register (PC_REGNUM); /* pc1 */ */
993/* OBSOLETE sreg_buf[12] = read_register (PC2_REGNUM); /* pc2 */ */
994/* OBSOLETE } */
995/* OBSOLETE for (i = 0; i < 14; i++) /* Supply vab -> lru */ */
996/* OBSOLETE supply_register (VAB_REGNUM + i, (char *) &sreg_buf[i]); */
997/* OBSOLETE sprintf (tempbuf, "dw sr128\r"); */
998/* OBSOLETE write (adapt_desc, tempbuf, strlen (tempbuf)); */
999/* OBSOLETE for (i = 0; i < 2; i++) */
1000/* OBSOLETE { /* SR128 - SR135 */ */
1001/* OBSOLETE sprintf (tempbuf, "SR%3d", 128 + i * 4); */
1002/* OBSOLETE expect (tempbuf); */
1003/* OBSOLETE for (j = 0; j < 4; j++) */
1004/* OBSOLETE sreg_buf[i * 4 + j] = get_hex_word (); */
1005/* OBSOLETE } */
1006/* OBSOLETE expect_prompt (); */
1007/* OBSOLETE supply_register (IPC_REGNUM, (char *) &sreg_buf[0]); */
1008/* OBSOLETE supply_register (IPA_REGNUM, (char *) &sreg_buf[1]); */
1009/* OBSOLETE supply_register (IPB_REGNUM, (char *) &sreg_buf[2]); */
1010/* OBSOLETE supply_register (Q_REGNUM, (char *) &sreg_buf[3]); */
1011/* OBSOLETE /* Skip ALU */ */
1012/* OBSOLETE supply_register (BP_REGNUM, (char *) &sreg_buf[5]); */
1013/* OBSOLETE supply_register (FC_REGNUM, (char *) &sreg_buf[6]); */
1014/* OBSOLETE supply_register (CR_REGNUM, (char *) &sreg_buf[7]); */
1015/* OBSOLETE */
1016/* OBSOLETE /* There doesn't seem to be any way to get these. */ */
1017/* OBSOLETE { */
1018/* OBSOLETE int val = -1; */
1019/* OBSOLETE supply_register (FPE_REGNUM, (char *) &val); */
1020/* OBSOLETE supply_register (INTE_REGNUM, (char *) &val); */
1021/* OBSOLETE supply_register (FPS_REGNUM, (char *) &val); */
1022/* OBSOLETE supply_register (EXO_REGNUM, (char *) &val); */
1023/* OBSOLETE } */
1024/* OBSOLETE */
1025/* OBSOLETE write (adapt_desc, "dw gr1,gr1\r", 11); */
1026/* OBSOLETE expect ("GR001 "); */
1027/* OBSOLETE get_hex_regs (1, GR1_REGNUM); */
1028/* OBSOLETE expect_prompt (); */
1029/* OBSOLETE } */
1030/* OBSOLETE */
1031/* OBSOLETE /* Fetch register REGNO, or all registers if REGNO is -1. */
1032/* OBSOLETE */ */
1033/* OBSOLETE static void */
1034/* OBSOLETE adapt_fetch_register (int regno) */
1035/* OBSOLETE { */
1036/* OBSOLETE if (regno == -1) */
1037/* OBSOLETE adapt_fetch_registers (); */
1038/* OBSOLETE else */
1039/* OBSOLETE { */
1040/* OBSOLETE char *name = get_reg_name (regno); */
1041/* OBSOLETE fprintf (adapt_stream, "dw %s,%s\r", name, name); */
1042/* OBSOLETE expect (name); */
1043/* OBSOLETE expect (" "); */
1044/* OBSOLETE get_hex_regs (1, regno); */
1045/* OBSOLETE expect_prompt (); */
1046/* OBSOLETE } */
1047/* OBSOLETE } */
1048/* OBSOLETE */
1049/* OBSOLETE /* Store the remote registers from the contents of the block REGS. */ */
1050/* OBSOLETE */
1051/* OBSOLETE static void */
1052/* OBSOLETE adapt_store_registers (void) */
1053/* OBSOLETE { */
1054/* OBSOLETE int i, j; */
1055/* OBSOLETE */
1056/* OBSOLETE fprintf (adapt_stream, "s gr1,%x\r", read_register (GR1_REGNUM)); */
1057/* OBSOLETE expect_prompt (); */
1058/* OBSOLETE */
1059/* OBSOLETE #if defined(GR64_REGNUM) */
1060/* OBSOLETE for (j = 0; j < 32; j += 16) */
1061/* OBSOLETE { */
1062/* OBSOLETE fprintf (adapt_stream, "s gr%d,", j + 64); */
1063/* OBSOLETE for (i = 0; i < 15; ++i) */
1064/* OBSOLETE fprintf (adapt_stream, "%x,", read_register (GR64_REGNUM + j + i)); */
1065/* OBSOLETE fprintf (adapt_stream, "%x\r", read_register (GR64_REGNUM + j + 15)); */
1066/* OBSOLETE expect_prompt (); */
1067/* OBSOLETE } */
1068/* OBSOLETE #endif */
1069/* OBSOLETE for (j = 0; j < 32; j += 16) */
1070/* OBSOLETE { */
1071/* OBSOLETE fprintf (adapt_stream, "s gr%d,", j + 96); */
1072/* OBSOLETE for (i = 0; i < 15; ++i) */
1073/* OBSOLETE fprintf (adapt_stream, "%x,", read_register (GR96_REGNUM + j + i)); */
1074/* OBSOLETE fprintf (adapt_stream, "%x\r", read_register (GR96_REGNUM + j + 15)); */
1075/* OBSOLETE expect_prompt (); */
1076/* OBSOLETE } */
1077/* OBSOLETE */
1078/* OBSOLETE for (j = 0; j < 128; j += 16) */
1079/* OBSOLETE { */
1080/* OBSOLETE fprintf (adapt_stream, "s lr%d,", j); */
1081/* OBSOLETE for (i = 0; i < 15; ++i) */
1082/* OBSOLETE fprintf (adapt_stream, "%x,", read_register (LR0_REGNUM + j + i)); */
1083/* OBSOLETE fprintf (adapt_stream, "%x\r", read_register (LR0_REGNUM + j + 15)); */
1084/* OBSOLETE expect_prompt (); */
1085/* OBSOLETE } */
1086/* OBSOLETE */
1087/* OBSOLETE fprintf (adapt_stream, "s sr128,%x,%x,%x\r", read_register (IPC_REGNUM), */
1088/* OBSOLETE read_register (IPA_REGNUM), read_register (IPB_REGNUM)); */
1089/* OBSOLETE expect_prompt (); */
1090/* OBSOLETE fprintf (adapt_stream, "s sr133,%x,%x,%x\r", read_register (BP_REGNUM), */
1091/* OBSOLETE read_register (FC_REGNUM), read_register (CR_REGNUM)); */
1092/* OBSOLETE expect_prompt (); */
1093/* OBSOLETE fprintf (adapt_stream, "s sr131,%x\r", read_register (Q_REGNUM)); */
1094/* OBSOLETE expect_prompt (); */
1095/* OBSOLETE fprintf (adapt_stream, "s sr0,"); */
1096/* OBSOLETE for (i = 0; i < 7; ++i) */
1097/* OBSOLETE fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); */
1098/* OBSOLETE expect_prompt (); */
1099/* OBSOLETE fprintf (adapt_stream, "s sr7,"); */
1100/* OBSOLETE for (i = 7; i < 14; ++i) */
1101/* OBSOLETE fprintf (adapt_stream, "%x,", read_register (VAB_REGNUM + i)); */
1102/* OBSOLETE expect_prompt (); */
1103/* OBSOLETE } */
1104/* OBSOLETE */
1105/* OBSOLETE /* Store register REGNO, or all if REGNO == -1. */
1106/* OBSOLETE Return errno value. */ */
1107/* OBSOLETE void */
1108/* OBSOLETE adapt_store_register (int regno) */
1109/* OBSOLETE { */
1110/* OBSOLETE /* printf("adapt_store_register() called.\n"); fflush(stdout); /* */ */
1111/* OBSOLETE if (regno == -1) */
1112/* OBSOLETE adapt_store_registers (); */
1113/* OBSOLETE else */
1114/* OBSOLETE { */
1115/* OBSOLETE char *name = get_reg_name (regno); */
1116/* OBSOLETE fprintf (adapt_stream, "s %s,%x\r", name, read_register (regno)); */
1117/* OBSOLETE /* Setting GR1 changes the numbers of all the locals, so */
1118/* OBSOLETE invalidate the register cache. Do this *after* calling */
1119/* OBSOLETE read_register, because we want read_register to return the */
1120/* OBSOLETE value that write_register has just stuffed into the registers */
1121/* OBSOLETE array, not the value of the register fetched from the */
1122/* OBSOLETE inferior. */ */
1123/* OBSOLETE if (regno == GR1_REGNUM) */
1124/* OBSOLETE registers_changed (); */
1125/* OBSOLETE expect_prompt (); */
1126/* OBSOLETE } */
1127/* OBSOLETE } */
1128/* OBSOLETE */
1129/* OBSOLETE /* Get ready to modify the registers array. On machines which store */
1130/* OBSOLETE individual registers, this doesn't need to do anything. On machines */
1131/* OBSOLETE which store all the registers in one fell swoop, this makes sure */
1132/* OBSOLETE that registers contains all the registers from the program being */
1133/* OBSOLETE debugged. */ */
1134/* OBSOLETE */
1135/* OBSOLETE void */
1136/* OBSOLETE adapt_prepare_to_store (void) */
1137/* OBSOLETE { */
1138/* OBSOLETE /* Do nothing, since we can store individual regs */ */
1139/* OBSOLETE } */
1140/* OBSOLETE */
1141/* OBSOLETE static CORE_ADDR */
1142/* OBSOLETE translate_addr (CORE_ADDR addr) */
1143/* OBSOLETE { */
1144/* OBSOLETE #if defined(KERNEL_DEBUGGING) */
1145/* OBSOLETE /* Check for a virtual address in the kernel */ */
1146/* OBSOLETE /* Assume physical address of ublock is in paddr_u register */ */
1147/* OBSOLETE if (addr >= UVADDR) */
1148/* OBSOLETE { */
1149/* OBSOLETE /* PADDR_U register holds the physical address of the ublock */ */
1150/* OBSOLETE CORE_ADDR i = (CORE_ADDR) read_register (PADDR_U_REGNUM); */
1151/* OBSOLETE return (i + addr - (CORE_ADDR) UVADDR); */
1152/* OBSOLETE } */
1153/* OBSOLETE else */
1154/* OBSOLETE { */
1155/* OBSOLETE return (addr); */
1156/* OBSOLETE } */
1157/* OBSOLETE #else */
1158/* OBSOLETE return (addr); */
1159/* OBSOLETE #endif */
1160/* OBSOLETE } */
1161/* OBSOLETE */
1162/* OBSOLETE */
1163/* OBSOLETE /* FIXME! Merge these two. */ */
1164/* OBSOLETE int */
1165/* OBSOLETE adapt_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len, int write, */
1166/* OBSOLETE struct mem_attrib *attrib ATTRIBUTE_UNUSED, */
1167/* OBSOLETE struct target_ops *target ATTRIBUTE_UNUSED) */
1168/* OBSOLETE { */
1169/* OBSOLETE */
1170/* OBSOLETE memaddr = translate_addr (memaddr); */
1171/* OBSOLETE */
1172/* OBSOLETE if (write) */
1173/* OBSOLETE return adapt_write_inferior_memory (memaddr, myaddr, len); */
1174/* OBSOLETE else */
1175/* OBSOLETE return adapt_read_inferior_memory (memaddr, myaddr, len); */
1176/* OBSOLETE } */
1177/* OBSOLETE */
1178/* OBSOLETE void */
1179/* OBSOLETE adapt_files_info (void) */
1180/* OBSOLETE { */
1181/* OBSOLETE printf_filtered ("\tAttached to %s at %d baud and running program %s\n", */
1182/* OBSOLETE dev_name, baudrate, prog_name); */
1183/* OBSOLETE printf_filtered ("\ton an %s processor.\n", processor_name[processor_type]); */
1184/* OBSOLETE } */
1185/* OBSOLETE */
1186/* OBSOLETE /* Copy LEN bytes of data from debugger memory at MYADDR */
1187/* OBSOLETE to inferior's memory at MEMADDR. Returns errno value. */
1188/* OBSOLETE * sb/sh instructions don't work on unaligned addresses, when TU=1. */
1189/* OBSOLETE */ */
1190/* OBSOLETE int */
1191/* OBSOLETE adapt_write_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len) */
1192/* OBSOLETE { */
1193/* OBSOLETE int i; */
1194/* OBSOLETE unsigned int cps; */
1195/* OBSOLETE */
1196/* OBSOLETE /* Turn TU bit off so we can do 'sb' commands */ */
1197/* OBSOLETE cps = read_register (CPS_REGNUM); */
1198/* OBSOLETE if (cps & 0x00000800) */
1199/* OBSOLETE write_register (CPS_REGNUM, cps & ~(0x00000800)); */
1200/* OBSOLETE */
1201/* OBSOLETE for (i = 0; i < len; i++) */
1202/* OBSOLETE { */
1203/* OBSOLETE if ((i % 16) == 0) */
1204/* OBSOLETE fprintf (adapt_stream, "sb %x,", memaddr + i); */
1205/* OBSOLETE if ((i % 16) == 15 || i == len - 1) */
1206/* OBSOLETE { */
1207/* OBSOLETE fprintf (adapt_stream, "%x\r", ((unsigned char *) myaddr)[i]); */
1208/* OBSOLETE expect_prompt (); */
1209/* OBSOLETE } */
1210/* OBSOLETE else */
1211/* OBSOLETE fprintf (adapt_stream, "%x,", ((unsigned char *) myaddr)[i]); */
1212/* OBSOLETE } */
1213/* OBSOLETE /* Restore the old value of cps if the TU bit was on */ */
1214/* OBSOLETE if (cps & 0x00000800) */
1215/* OBSOLETE write_register (CPS_REGNUM, cps); */
1216/* OBSOLETE return len; */
1217/* OBSOLETE } */
1218/* OBSOLETE */
1219/* OBSOLETE /* Read LEN bytes from inferior memory at MEMADDR. Put the result */
1220/* OBSOLETE at debugger address MYADDR. Returns errno value. */ */
1221/* OBSOLETE int */
1222/* OBSOLETE adapt_read_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len) */
1223/* OBSOLETE { */
1224/* OBSOLETE int i; */
1225/* OBSOLETE */
1226/* OBSOLETE /* Number of bytes read so far. */ */
1227/* OBSOLETE int count; */
1228/* OBSOLETE */
1229/* OBSOLETE /* Starting address of this pass. */ */
1230/* OBSOLETE unsigned long startaddr; */
1231/* OBSOLETE */
1232/* OBSOLETE /* Number of bytes to read in this pass. */ */
1233/* OBSOLETE int len_this_pass; */
1234/* OBSOLETE */
1235/* OBSOLETE /* Note that this code works correctly if startaddr is just less */
1236/* OBSOLETE than UINT_MAX (well, really CORE_ADDR_MAX if there was such a */
1237/* OBSOLETE thing). That is, something like */
1238/* OBSOLETE adapt_read_bytes (CORE_ADDR_MAX - 4, foo, 4) */
1239/* OBSOLETE works--it never adds len to memaddr and gets 0. */ */
1240/* OBSOLETE /* However, something like */
1241/* OBSOLETE adapt_read_bytes (CORE_ADDR_MAX - 3, foo, 4) */
1242/* OBSOLETE doesn't need to work. Detect it and give up if there's an attempt */
1243/* OBSOLETE to do that. */ */
1244/* OBSOLETE */
1245/* OBSOLETE if (((memaddr - 1) + len) < memaddr) */
1246/* OBSOLETE return EIO; */
1247/* OBSOLETE */
1248/* OBSOLETE startaddr = memaddr; */
1249/* OBSOLETE count = 0; */
1250/* OBSOLETE while (count < len) */
1251/* OBSOLETE { */
1252/* OBSOLETE len_this_pass = 16; */
1253/* OBSOLETE if ((startaddr % 16) != 0) */
1254/* OBSOLETE len_this_pass -= startaddr % 16; */
1255/* OBSOLETE if (len_this_pass > (len - count)) */
1256/* OBSOLETE len_this_pass = (len - count); */
1257/* OBSOLETE */
1258/* OBSOLETE fprintf (adapt_stream, "db %x,%x\r", startaddr, */
1259/* OBSOLETE (startaddr - 1) + len_this_pass); */
1260/* OBSOLETE */
1261/* OBSOLETE #ifdef NOTDEF /* Why do this */ */
1262/* OBSOLETE expect ("\n"); */
1263/* OBSOLETE /* Look for 8 hex digits. */ */
1264/* OBSOLETE i = 0; */
1265/* OBSOLETE while (1) */
1266/* OBSOLETE { */
1267/* OBSOLETE if (isxdigit (readchar ())) */
1268/* OBSOLETE ++i; */
1269/* OBSOLETE else */
1270/* OBSOLETE { */
1271/* OBSOLETE expect_prompt (); */
1272/* OBSOLETE error ("Hex digit expected from remote system."); */
1273/* OBSOLETE } */
1274/* OBSOLETE if (i >= 8) */
1275/* OBSOLETE break; */
1276/* OBSOLETE } */
1277/* OBSOLETE #endif /* NOTDEF */ */
1278/* OBSOLETE */
1279/* OBSOLETE expect (" "); */
1280/* OBSOLETE */
1281/* OBSOLETE for (i = 0; i < len_this_pass; i++) */
1282/* OBSOLETE get_hex_byte (&myaddr[count++]); */
1283/* OBSOLETE */
1284/* OBSOLETE expect_prompt (); */
1285/* OBSOLETE */
1286/* OBSOLETE startaddr += len_this_pass; */
1287/* OBSOLETE } */
1288/* OBSOLETE return count; */
1289/* OBSOLETE } */
1290/* OBSOLETE */
1291/* OBSOLETE #define MAX_BREAKS 8 */
1292/* OBSOLETE static int num_brkpts = 0; */
1293/* OBSOLETE */
1294/* OBSOLETE /* Insert a breakpoint at ADDR. SAVE is normally the address of the */
1295/* OBSOLETE pattern buffer where the instruction that the breakpoint overwrites */
1296/* OBSOLETE is saved. It is unused here since the Adapt Monitor is responsible */
1297/* OBSOLETE for saving/restoring the original instruction. */ */
1298/* OBSOLETE */
1299/* OBSOLETE static int */
1300/* OBSOLETE adapt_insert_breakpoint (CORE_ADDR addr, char *save) */
1301/* OBSOLETE { */
1302/* OBSOLETE if (num_brkpts < MAX_BREAKS) */
1303/* OBSOLETE { */
1304/* OBSOLETE num_brkpts++; */
1305/* OBSOLETE fprintf (adapt_stream, "B %x", addr); */
1306/* OBSOLETE fprintf (adapt_stream, "\r"); */
1307/* OBSOLETE expect_prompt (); */
1308/* OBSOLETE return (0); /* Success */ */
1309/* OBSOLETE } */
1310/* OBSOLETE else */
1311/* OBSOLETE { */
1312/* OBSOLETE fprintf_filtered (gdb_stderr, */
1313/* OBSOLETE "Too many break points, break point not installed\n"); */
1314/* OBSOLETE return (1); /* Failure */ */
1315/* OBSOLETE } */
1316/* OBSOLETE */
1317/* OBSOLETE } */
1318/* OBSOLETE */
1319/* OBSOLETE /* Remove a breakpoint at ADDR. SAVE is normally the previously */
1320/* OBSOLETE saved pattern, but is unused here as the Adapt Monitor is */
1321/* OBSOLETE responsible for saving/restoring instructions. */ */
1322/* OBSOLETE */
1323/* OBSOLETE static int */
1324/* OBSOLETE adapt_remove_breakpoint (CORE_ADDR addr, char *save) */
1325/* OBSOLETE { */
1326/* OBSOLETE if (num_brkpts > 0) */
1327/* OBSOLETE { */
1328/* OBSOLETE num_brkpts--; */
1329/* OBSOLETE fprintf (adapt_stream, "BR %x", addr); */
1330/* OBSOLETE fprintf (adapt_stream, "\r"); */
1331/* OBSOLETE fflush (adapt_stream); */
1332/* OBSOLETE expect_prompt (); */
1333/* OBSOLETE } */
1334/* OBSOLETE return (0); */
1335/* OBSOLETE } */
1336/* OBSOLETE */
1337/* OBSOLETE /* Clear the adapts notion of what the break points are */ */
1338/* OBSOLETE static int */
1339/* OBSOLETE adapt_clear_breakpoints (void) */
1340/* OBSOLETE { */
1341/* OBSOLETE if (adapt_stream) */
1342/* OBSOLETE { */
1343/* OBSOLETE fprintf (adapt_stream, "BR"); /* Clear all break points */ */
1344/* OBSOLETE fprintf (adapt_stream, "\r"); */
1345/* OBSOLETE fflush (adapt_stream); */
1346/* OBSOLETE expect_prompt (); */
1347/* OBSOLETE } */
1348/* OBSOLETE num_brkpts = 0; */
1349/* OBSOLETE } */
1350/* OBSOLETE static void */
1351/* OBSOLETE adapt_mourn (void) */
1352/* OBSOLETE { */
1353/* OBSOLETE adapt_clear_breakpoints (); */
1354/* OBSOLETE pop_target (); /* Pop back to no-child state */ */
1355/* OBSOLETE generic_mourn_inferior (); */
1356/* OBSOLETE } */
1357/* OBSOLETE */
1358/* OBSOLETE /* Display everthing we read in from the adapt until we match/see the */
1359/* OBSOLETE * specified string */
1360/* OBSOLETE */ */
1361/* OBSOLETE static int */
1362/* OBSOLETE display_until (char *str) */
1363/* OBSOLETE { */
1364/* OBSOLETE int i = 0, j, c; */
1365/* OBSOLETE */
1366/* OBSOLETE while (c = readchar ()) */
1367/* OBSOLETE { */
1368/* OBSOLETE if (c == str[i]) */
1369/* OBSOLETE { */
1370/* OBSOLETE i++; */
1371/* OBSOLETE if (i == strlen (str)) */
1372/* OBSOLETE return; */
1373/* OBSOLETE } */
1374/* OBSOLETE else */
1375/* OBSOLETE { */
1376/* OBSOLETE if (i) */
1377/* OBSOLETE { */
1378/* OBSOLETE for (j = 0; j < i; j++) /* Put everthing we matched */ */
1379/* OBSOLETE putchar (str[j]); */
1380/* OBSOLETE i = 0; */
1381/* OBSOLETE } */
1382/* OBSOLETE putchar (c); */
1383/* OBSOLETE } */
1384/* OBSOLETE } */
1385/* OBSOLETE */
1386/* OBSOLETE } */
1387/* OBSOLETE */
1388/* OBSOLETE */
1389/* OBSOLETE /* Put a command string, in args, out to the adapt. The adapt is assumed to */
1390/* OBSOLETE be in raw mode, all writing/reading done through adapt_desc. */
1391/* OBSOLETE Ouput from the adapt is placed on the users terminal until the */
1392/* OBSOLETE prompt from the adapt is seen. */
1393/* OBSOLETE FIXME: Can't handle commands that take input. */ */
1394/* OBSOLETE */
1395/* OBSOLETE void */
1396/* OBSOLETE adapt_com (char *args, int fromtty) */
1397/* OBSOLETE { */
1398/* OBSOLETE if (!adapt_stream) */
1399/* OBSOLETE { */
1400/* OBSOLETE printf_filtered ("Adapt not open. Use the 'target' command to open.\n"); */
1401/* OBSOLETE return; */
1402/* OBSOLETE } */
1403/* OBSOLETE */
1404/* OBSOLETE /* Clear all input so only command relative output is displayed */ */
1405/* OBSOLETE slurp_input (); */
1406/* OBSOLETE */
1407/* OBSOLETE switch (islower (args[0]) ? toupper (args[0]) : args[0]) */
1408/* OBSOLETE { */
1409/* OBSOLETE default: */
1410/* OBSOLETE printf_filtered ("Unknown/Unimplemented adapt command '%s'\n", args); */
1411/* OBSOLETE break; */
1412/* OBSOLETE case 'G': /* Go, begin execution */ */
1413/* OBSOLETE write (adapt_desc, args, strlen (args)); */
1414/* OBSOLETE write (adapt_desc, "\r", 1); */
1415/* OBSOLETE expect_prompt (); */
1416/* OBSOLETE break; */
1417/* OBSOLETE case 'B': /* Break points, B or BR */ */
1418/* OBSOLETE case 'C': /* Check current 29k status (running/halted) */ */
1419/* OBSOLETE case 'D': /* Display data/registers */ */
1420/* OBSOLETE case 'I': /* Input from i/o space */ */
1421/* OBSOLETE case 'J': /* Jam an instruction */ */
1422/* OBSOLETE case 'K': /* Kill, stop execution */ */
1423/* OBSOLETE case 'L': /* Disassemble */ */
1424/* OBSOLETE case 'O': /* Output to i/o space */ */
1425/* OBSOLETE case 'T': /* Trace */ */
1426/* OBSOLETE case 'P': /* Pulse an input line */ */
1427/* OBSOLETE case 'X': /* Examine special purpose registers */ */
1428/* OBSOLETE case 'Z': /* Display trace buffer */ */
1429/* OBSOLETE write (adapt_desc, args, strlen (args)); */
1430/* OBSOLETE write (adapt_desc, "\r", 1); */
1431/* OBSOLETE expect (args); /* Don't display the command */ */
1432/* OBSOLETE display_until ("# "); */
1433/* OBSOLETE break; */
1434/* OBSOLETE /* Begin commands that take input in the form 'c x,y[,z...]' */ */
1435/* OBSOLETE case 'S': /* Set memory or register */ */
1436/* OBSOLETE if (strchr (args, ',')) */
1437/* OBSOLETE { /* Assume it is properly formatted */ */
1438/* OBSOLETE write (adapt_desc, args, strlen (args)); */
1439/* OBSOLETE write (adapt_desc, "\r", 1); */
1440/* OBSOLETE expect_prompt (); */
1441/* OBSOLETE } */
1442/* OBSOLETE break; */
1443/* OBSOLETE } */
1444/* OBSOLETE } */
1445/* OBSOLETE */
1446/* OBSOLETE /* Define the target subroutine names */ */
1447/* OBSOLETE */
1448/* OBSOLETE struct target_ops adapt_ops; */
1449/* OBSOLETE */
1450/* OBSOLETE static void */
1451/* OBSOLETE init_adapt_ops (void) */
1452/* OBSOLETE { */
1453/* OBSOLETE adapt_ops.to_shortname = "adapt"; */
1454/* OBSOLETE adapt_ops.to_longname = "Remote AMD `Adapt' target"; */
1455/* OBSOLETE adapt_ops.to_doc = "Remote debug an AMD 290*0 using an `Adapt' monitor via RS232"; */
1456/* OBSOLETE adapt_ops.to_open = adapt_open; */
1457/* OBSOLETE adapt_ops.to_close = adapt_close; */
1458/* OBSOLETE adapt_ops.to_attach = adapt_attach; */
1459/* OBSOLETE adapt_ops.to_post_attach = NULL; */
1460/* OBSOLETE adapt_ops.to_require_attach = NULL; */
1461/* OBSOLETE adapt_ops.to_detach = adapt_detach; */
1462/* OBSOLETE adapt_ops.to_require_detach = NULL; */
1463/* OBSOLETE adapt_ops.to_resume = adapt_resume; */
1464/* OBSOLETE adapt_ops.to_wait = adapt_wait; */
1465/* OBSOLETE adapt_ops.to_post_wait = NULL; */
1466/* OBSOLETE adapt_ops.to_fetch_registers = adapt_fetch_register; */
1467/* OBSOLETE adapt_ops.to_store_registers = adapt_store_register; */
1468/* OBSOLETE adapt_ops.to_prepare_to_store = adapt_prepare_to_store; */
1469/* OBSOLETE adapt_ops.to_xfer_memory = adapt_xfer_inferior_memory; */
1470/* OBSOLETE adapt_ops.to_files_info = adapt_files_info; */
1471/* OBSOLETE adapt_ops.to_insert_breakpoint = adapt_insert_breakpoint; */
1472/* OBSOLETE adapt_ops.to_remove_breakpoint = adapt_remove_breakpoint; */
1473/* OBSOLETE adapt_ops.to_terminal_init = 0; */
1474/* OBSOLETE adapt_ops.to_terminal_inferior = 0; */
1475/* OBSOLETE adapt_ops.to_terminal_ours_for_output = 0; */
1476/* OBSOLETE adapt_ops.to_terminal_ours = 0; */
1477/* OBSOLETE adapt_ops.to_terminal_info = 0; */
1478/* OBSOLETE adapt_ops.to_kill = adapt_kill; */
1479/* OBSOLETE adapt_ops.to_load = adapt_load; */
1480/* OBSOLETE adapt_ops.to_lookup_symbol = 0; */
1481/* OBSOLETE adapt_ops.to_create_inferior = adapt_create_inferior; */
1482/* OBSOLETE adapt_ops.to_post_startup_inferior = NULL; */
1483/* OBSOLETE adapt_ops.to_acknowledge_created_inferior = NULL; */
1484/* OBSOLETE adapt_ops.to_clone_and_follow_inferior = NULL; */
1485/* OBSOLETE adapt_ops.to_post_follow_inferior_by_clone = NULL; */
1486/* OBSOLETE adapt_ops.to_insert_fork_catchpoint = NULL; */
1487/* OBSOLETE adapt_ops.to_remove_fork_catchpoint = NULL; */
1488/* OBSOLETE adapt_ops.to_insert_vfork_catchpoint = NULL; */
1489/* OBSOLETE adapt_ops.to_remove_vfork_catchpoint = NULL; */
1490/* OBSOLETE adapt_ops.to_has_forked = NULL; */
1491/* OBSOLETE adapt_ops.to_has_vforked = NULL; */
1492/* OBSOLETE adapt_ops.to_can_follow_vfork_prior_to_exec = NULL; */
1493/* OBSOLETE adapt_ops.to_post_follow_vfork = NULL; */
1494/* OBSOLETE adapt_ops.to_insert_exec_catchpoint = NULL; */
1495/* OBSOLETE adapt_ops.to_remove_exec_catchpoint = NULL; */
1496/* OBSOLETE adapt_ops.to_has_execd = NULL; */
1497/* OBSOLETE adapt_ops.to_reported_exec_events_per_exec_call = NULL; */
1498/* OBSOLETE adapt_ops.to_has_exited = NULL; */
1499/* OBSOLETE adapt_ops.to_mourn_inferior = adapt_mourn; */
1500/* OBSOLETE adapt_ops.to_can_run = 0; */
1501/* OBSOLETE adapt_ops.to_notice_signals = 0; */
1502/* OBSOLETE adapt_ops.to_thread_alive = 0; */
1503/* OBSOLETE adapt_ops.to_stop = 0; /* process_stratum; */ */
1504/* OBSOLETE adapt_ops.to_pid_to_exec_file = NULL; */
1505/* OBSOLETE adapt_ops.to_stratum = 0; */
1506/* OBSOLETE adapt_ops.DONT_USE = 0; */
1507/* OBSOLETE adapt_ops.to_has_all_memory = 1; */
1508/* OBSOLETE adapt_ops.to_has_memory = 1; */
1509/* OBSOLETE adapt_ops.to_has_stack = 1; */
1510/* OBSOLETE adapt_ops.to_has_registers = 1; */
1511/* OBSOLETE adapt_ops.to_has_execution = 0; */
1512/* OBSOLETE adapt_ops.to_sections = 0; */
1513/* OBSOLETE adapt_ops.to_sections_end = 0; */
1514/* OBSOLETE adapt_ops.to_magic = OPS_MAGIC; */
1515/* OBSOLETE } /* init_adapt_ops */ */
1516/* OBSOLETE */
1517/* OBSOLETE void */
1518/* OBSOLETE _initialize_remote_adapt (void) */
1519/* OBSOLETE { */
1520/* OBSOLETE init_adapt_ops (); */
1521/* OBSOLETE add_target (&adapt_ops); */
1522/* OBSOLETE add_com ("adapt <command>", class_obscure, adapt_com, */
1523/* OBSOLETE "Send a command to the AMD Adapt remote monitor."); */
1524/* OBSOLETE } */
GDB Binutils - Deliverables
This page took 0.090386 seconds and 4 git commands to generate.