/* Remote debugging interface for AMD 29000 EBMON on IBM PC, for GDB.
- Copyright 1990-1991 Free Software Foundation, Inc.
+ Copyright 1990, 1991, 1992 Free Software Foundation, Inc.
Contributed by Cygnus Support. Written by Jim Kingdon for Cygnus.
-This file is part of GDB.
+ This file is part of GDB.
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
/* This is like remote.c but is for an esoteric situation--
- having a 29k board in a PC hooked up to a unix machine with
+ having a a29k board in a PC hooked up to a unix machine with
a serial line, and running ctty com1 on the PC, through which
the unix machine can run ebmon. Not to mention that the PC
has PC/NFS, so it can access the same executables that gdb can,
over the net in real time. */
-#include <stdio.h>
-#include <string.h>
#include "defs.h"
-#include "tm-29k.h"
-#include "param-no-tm.h"
+#include "gdb_string.h"
+
#include "inferior.h"
+#include "bfd.h"
+#include "symfile.h"
#include "wait.h"
#include "value.h"
#include <ctype.h>
#include <errno.h>
#include "terminal.h"
#include "target.h"
+#include "gdbcore.h"
-extern void add_syms_addr_command ();
-extern struct value *call_function_by_hand();
+extern struct target_ops eb_ops; /* Forward declaration */
-extern struct target_ops eb_ops; /* Forward declaration */
+static void eb_close ();
#define LOG_FILE "eb.log"
#if defined (LOG_FILE)
FILE *log_file;
#endif
-static int timeout = 5;
+static int timeout = 24;
/* Descriptor for I/O to remote machine. Initialize it to -1 so that
eb_open knows that we don't have a file open when the program
immediate_quit = 1;
while (1)
{
- if (readchar() == *p)
+ if (readchar () == *p)
{
p++;
if (*p == '\0')
for (i = 0; i < n; i++)
{
int j;
-
+
val = 0;
for (j = 0; j < 8; j++)
val = (val << 4) + get_hex_digit (j == 0);
- supply_register (regno++, &val);
+ supply_register (regno++, (char *) &val);
}
}
#ifndef HAVE_TERMIO
#ifndef __STDC__
-#define volatile /**/
+#define volatile
+/**/
#endif
volatile int n_alarms;
/* This is called not only when we first attach, but also when the
user types "run" after having attached. */
-void
-eb_start (inferior_args)
-char *inferior_args;
+static void
+eb_create_inferior (execfile, args, env)
+ char *execfile;
+ char *args;
+ char **env;
{
- /* OK, now read in the file. Y=read, C=COFF, D=no symbols
- 0=start address, %s=filename. */
+ int entry_pt;
- fprintf (eb_stream, "YC D,0:%s", prog_name);
+ if (args && *args)
+ error ("Can't pass arguments to remote EBMON process");
- if (inferior_args != NULL)
- fprintf(eb_stream, " %s", inferior_args);
+ if (execfile == 0 || exec_bfd == 0)
+ error ("No executable file specified");
- fprintf (eb_stream, "\n");
- fflush (eb_stream);
+ entry_pt = (int) bfd_get_start_address (exec_bfd);
- expect_prompt ();
+ {
+ /* OK, now read in the file. Y=read, C=COFF, D=no symbols
+ 0=start address, %s=filename. */
+
+ fprintf (eb_stream, "YC D,0:%s", prog_name);
+
+ if (args != NULL)
+ fprintf (eb_stream, " %s", args);
+
+ fprintf (eb_stream, "\n");
+ fflush (eb_stream);
+
+ expect_prompt ();
+
+ need_gi = 1;
+ }
+
+/* The "process" (board) is already stopped awaiting our commands, and
+ the program is already downloaded. We just set its PC and go. */
- need_gi = 1;
+ clear_proceed_status ();
+
+ /* Tell wait_for_inferior that we've started a new process. */
+ init_wait_for_inferior ();
+
+ /* Set up the "saved terminal modes" of the inferior
+ based on what modes we are starting it with. */
+ target_terminal_init ();
+
+ /* Install inferior's terminal modes. */
+ target_terminal_inferior ();
+
+ /* insert_step_breakpoint (); FIXME, do we need this? */
+ proceed ((CORE_ADDR) entry_pt, TARGET_SIGNAL_DEFAULT, 0); /* Let 'er rip... */
}
/* Translate baud rates from integers to damn B_codes. Unix should
#define B38400 EXTB
#endif
-struct {int rate, damn_b;} baudtab[] = {
- {0, B0},
- {50, B50},
- {75, B75},
- {110, B110},
- {134, B134},
- {150, B150},
- {200, B200},
- {300, B300},
- {600, B600},
- {1200, B1200},
- {1800, B1800},
- {2400, B2400},
- {4800, B4800},
- {9600, B9600},
- {19200, B19200},
- {38400, B38400},
- {-1, -1},
+struct
+{
+ int rate, damn_b;
+}
+baudtab[] =
+{
+ {
+ 0, B0
+ }
+ ,
+ {
+ 50, B50
+ }
+ ,
+ {
+ 75, B75
+ }
+ ,
+ {
+ 110, B110
+ }
+ ,
+ {
+ 134, B134
+ }
+ ,
+ {
+ 150, B150
+ }
+ ,
+ {
+ 200, B200
+ }
+ ,
+ {
+ 300, B300
+ }
+ ,
+ {
+ 600, B600
+ }
+ ,
+ {
+ 1200, B1200
+ }
+ ,
+ {
+ 1800, B1800
+ }
+ ,
+ {
+ 2400, B2400
+ }
+ ,
+ {
+ 4800, B4800
+ }
+ ,
+ {
+ 9600, B9600
+ }
+ ,
+ {
+ 19200, B19200
+ }
+ ,
+ {
+ 38400, B38400
+ }
+ ,
+ {
+ -1, -1
+ }
+ ,
};
-int damn_b (rate)
+int
+damn_b (rate)
int rate;
{
int i;
for (i = 0; baudtab[i].rate != -1; i++)
- if (rate == baudtab[i].rate) return baudtab[i].damn_b;
- return B38400; /* Random */
+ if (rate == baudtab[i].rate)
+ return baudtab[i].damn_b;
+ return B38400; /* Random */
}
char *p;
target_preopen (from_tty);
-
+
/* Find the first whitespace character, it separates dev_name from
prog_name. */
if (name == 0)
*p != '\0' && !isspace (*p); p++)
;
if (*p == '\0')
-erroid:
+ erroid:
error ("\
Please include the name of the device for the serial port,\n\
the baud rate, and the name of the program to run on the remote system.");
/* Skip over the whitespace after dev_name */
for (; isspace (*p); p++)
- /*EMPTY*/;
-
+ /*EMPTY */ ;
+
if (1 != sscanf (p, "%d ", &baudrate))
goto erroid;
/* Skip the number and then the spaces */
for (; isdigit (*p); p++)
- /*EMPTY*/;
+ /*EMPTY */ ;
for (; isspace (*p); p++)
- /*EMPTY*/;
-
+ /*EMPTY */ ;
+
if (prog_name != NULL)
free (prog_name);
prog_name = savestring (p, strlen (p));
/* Hello? Are you there? */
write (eb_desc, "\n", 1);
-
+
expect_prompt ();
}
/* Close out all files and local state before this target loses control. */
-void
+static void
eb_close (quitting)
int quitting;
{
but also the file descriptor. So we don't actually close
eb_desc. */
if (eb_stream)
- fclose (eb_stream); /* This also closes eb_desc */
+ fclose (eb_stream); /* This also closes eb_desc */
if (eb_desc >= 0)
/* close (eb_desc); */
- /* Do not try to close eb_desc again, later in the program. */
- eb_stream = NULL;
+ /* Do not try to close eb_desc again, later in the program. */
+ eb_stream = NULL;
eb_desc = -1;
#if defined (LOG_FILE)
- if (ferror (log_file))
- printf ("Error writing log file.\n");
- if (fclose (log_file) != 0)
- printf ("Error closing log file.\n");
+ if (log_file)
+ {
+ if (ferror (log_file))
+ printf ("Error writing log file.\n");
+ if (fclose (log_file) != 0)
+ printf ("Error closing log file.\n");
+ }
#endif
}
eb_detach (from_tty)
int from_tty;
{
- pop_target(); /* calls eb_close to do the real work */
+ pop_target (); /* calls eb_close to do the real work */
if (from_tty)
printf ("Ending remote %s debugging\n", target_shortname);
}
-
+
/* Tell the remote machine to resume. */
void
-eb_resume (step, sig)
- int step, sig;
+eb_resume (pid, step, sig)
+ int pid, step;
+ enum target_signal sig;
{
if (step)
{
{
need_gi = 0;
write (eb_desc, "gi\n", 3);
-
+
/* Swallow the echo of "gi". */
expect ("gi\r");
}
int
eb_wait (status)
- WAITTYPE *status;
+ struct target_waitstatus *status;
{
/* Strings to look for. '?' means match any single character.
Note that with the algorithm we use, the initial character
of the string cannot recur in the string, or we will not
find some cases of the string in the input. */
-
+
static char bpt[] = "Invalid interrupt taken - #0x50 - ";
/* It would be tempting to look for "\n[__exit + 0x8]\n"
but that requires loading symbols with "yc i" and even if
int old_timeout = timeout;
- WSETEXIT ((*status), 0);
+ status->kind = TARGET_WAITKIND_EXITED;
+ status->value.integer = 0;
if (need_artificial_trap != 0)
{
- WSETSTOP ((*status), SIGTRAP);
+ status->kind = TARGET_WAITKIND_STOPPED;
+ status->value.sig = TARGET_SIGNAL_TRAP;
need_artificial_trap--;
return 0;
}
- timeout = 0; /* Don't time out -- user program is running. */
+ timeout = 0; /* Don't time out -- user program is running. */
while (1)
{
ch_handled = 0;
for (p = swallowed; p < swallowed_p; ++p)
putc (*p, stdout);
swallowed_p = swallowed;
-
+
putc (ch, stdout);
}
}
expect_prompt ();
- if (*bp== '\0')
- WSETSTOP ((*status), SIGTRAP);
+ if (*bp == '\0')
+ {
+ status->kind = TARGET_WAITKIND_STOPPED;
+ status->value.sig = TARGET_SIGNAL_TRAP;
+ }
else
- WSETEXIT ((*status), 0);
+ {
+ status->kind = TARGET_WAITKIND_EXITED;
+ status->value.integer = 0;
+ }
timeout = old_timeout;
return 0;
for (i = 0; i < 128; i += 32)
{
/* The PC has a tendency to hang if we get these
- all in one fell swoop ("dw lr0,lr127"). */
+ all in one fell swoop ("dw lr0,lr127"). */
sprintf (tempbuf, "dw lr%d\n", i);
write (eb_desc, tempbuf, strlen (tempbuf));
for (reg_index = i, regnum_index = LR0_REGNUM + i;
/* There doesn't seem to be any way to get these. */
{
int val = -1;
- supply_register (FPE_REGNUM, &val);
- supply_register (INT_REGNUM, &val);
- supply_register (FPS_REGNUM, &val);
- supply_register (EXO_REGNUM, &val);
+ supply_register (FPE_REGNUM, (char *) &val);
+ supply_register (INTE_REGNUM, (char *) &val);
+ supply_register (FPS_REGNUM, (char *) &val);
+ supply_register (EXO_REGNUM, (char *) &val);
}
write (eb_desc, "dw gr1,gr1\n", 11);
/* Fetch register REGNO, or all registers if REGNO is -1.
Returns errno value. */
-int
+void
eb_fetch_register (regno)
int regno;
{
get_hex_regs (1, regno);
expect_prompt ();
}
- return 0;
+ return;
}
/* Store the remote registers from the contents of the block REGS. */
/* Store register REGNO, or all if REGNO == 0.
Return errno value. */
-int
+void
eb_store_register (regno)
int regno;
{
char *name = get_reg_name (regno);
fprintf (eb_stream, "s %s,%x\n", name, read_register (regno));
/* Setting GR1 changes the numbers of all the locals, so
- invalidate the register cache. Do this *after* calling
- read_register, because we want read_register to return the
- value that write_register has just stuffed into the registers
- array, not the value of the register fetched from the
- inferior. */
+ invalidate the register cache. Do this *after* calling
+ read_register, because we want read_register to return the
+ value that write_register has just stuffed into the registers
+ array, not the value of the register fetched from the
+ inferior. */
if (regno == GR1_REGNUM)
registers_changed ();
expect_prompt ();
}
- return 0;
}
/* Get ready to modify the registers array. On machines which store
/* Do nothing, since we can store individual regs */
}
-/* FIXME! Merge these two. */
+
+/* FIXME-someday! Merge these two. */
int
-eb_xfer_inferior_memory (memaddr, myaddr, len, write)
+eb_xfer_inferior_memory (memaddr, myaddr, len, write, target)
CORE_ADDR memaddr;
char *myaddr;
int len;
int write;
+ struct target_ops *target; /* ignored */
{
if (write)
return eb_write_inferior_memory (memaddr, myaddr, len);
else
- return eb_write_inferior_memory (memaddr, myaddr, len);
+ return eb_read_inferior_memory (memaddr, myaddr, len);
}
void
}
/* Copy LEN bytes of data from debugger memory at MYADDR
- to inferior's memory at MEMADDR. Returns errno value. */
+ to inferior's memory at MEMADDR. Returns length moved. */
int
eb_write_inferior_memory (memaddr, myaddr, len)
CORE_ADDR memaddr;
fprintf (eb_stream, "sb %x,", memaddr + i);
if ((i % 16) == 15 || i == len - 1)
{
- fprintf (eb_stream, "%x\n", ((unsigned char *)myaddr)[i]);
+ fprintf (eb_stream, "%x\n", ((unsigned char *) myaddr)[i]);
expect_prompt ();
}
else
- fprintf (eb_stream, "%x,", ((unsigned char *)myaddr)[i]);
+ fprintf (eb_stream, "%x,", ((unsigned char *) myaddr)[i]);
}
- return 0;
+ return len;
}
/* Read LEN bytes from inferior memory at MEMADDR. Put the result
- at debugger address MYADDR. Returns errno value. */
+ at debugger address MYADDR. Returns length moved. */
int
-eb_read_inferior_memory(memaddr, myaddr, len)
+eb_read_inferior_memory (memaddr, myaddr, len)
CORE_ADDR memaddr;
char *myaddr;
int len;
doesn't need to work. Detect it and give up if there's an attempt
to do that. */
if (((memaddr - 1) + len) < memaddr)
- return EIO;
-
+ {
+ errno = EIO;
+ return 0;
+ }
+
startaddr = memaddr;
count = 0;
while (count < len)
startaddr += len_this_pass;
}
- return 0;
+ return len;
+}
+
+static void
+eb_kill (args, from_tty)
+ char *args;
+ int from_tty;
+{
+ return; /* Ignore attempts to kill target system */
}
+/* Clean up when a program exits.
+
+ The program actually lives on in the remote processor's RAM, and may be
+ run again without a download. Don't leave it full of breakpoint
+ instructions. */
+
+void
+eb_mourn_inferior ()
+{
+ remove_breakpoints ();
+ unpush_target (&eb_ops);
+ generic_mourn_inferior (); /* Do all the proper things now */
+}
/* Define the target subroutine names */
-struct target_ops eb_ops = {
- "amd-eb", "Remote serial AMD EBMON target",
- "Use a remote computer running EBMON connected by a serial line.\n\
+struct target_ops eb_ops;
+
+static void
+init_eb_ops (void)
+{
+ eb_ops.to_shortname = "amd-eb";
+ eb_ops.to_longname = "Remote serial AMD EBMON target";
+ eb_ops.to_doc = "Use a remote computer running EBMON connected by a serial line.\n\
Arguments are the name of the device for the serial line,\n\
the speed to connect at in bits per second, and the filename of the\n\
executable as it exists on the remote computer. For example,\n\
- target amd-eb /dev/ttya 9600 demo",
- eb_open, eb_close,
- 0, eb_detach, eb_resume, eb_wait,
- eb_fetch_register, eb_store_register,
- eb_prepare_to_store, 0, 0, /* conv_to, conv_from */
- eb_xfer_inferior_memory, eb_files_info,
- 0, 0, /* Breakpoints */
- 0, 0, 0, 0, 0, /* Terminal handling */
- 0, /* FIXME, kill */
- 0, add_syms_addr_command, /* load */
- call_function_by_hand,
- 0, /* lookup_symbol */
- 0, /* create_inferior FIXME, eb_start here or something? */
- 0, /* mourn_inferior FIXME */
- process_stratum, 0, /* next */
- 1, 1, 1, 1, 1, /* all mem, mem, stack, regs, exec */
- OPS_MAGIC, /* Always the last thing */
+target amd-eb /dev/ttya 9600 demo",
+ eb_ops.to_open = eb_open;
+ eb_ops.to_close = eb_close;
+ eb_ops.to_attach = 0;
+ eb_ops.to_post_attach = NULL;
+ eb_ops.to_require_attach = NULL;
+ eb_ops.to_detach = eb_detach;
+ eb_ops.to_require_detach = NULL;
+ eb_ops.to_resume = eb_resume;
+ eb_ops.to_wait = eb_wait;
+ eb_ops.to_post_wait = NULL;
+ eb_ops.to_fetch_registers = eb_fetch_register;
+ eb_ops.to_store_registers = eb_store_register;
+ eb_ops.to_prepare_to_store = eb_prepare_to_store;
+ eb_ops.to_xfer_memory = eb_xfer_inferior_memory;
+ eb_ops.to_files_info = eb_files_info;
+ eb_ops.to_insert_breakpoint = 0;
+ eb_ops.to_remove_breakpoint = 0; /* Breakpoints */
+ eb_ops.to_terminal_init = 0;
+ eb_ops.to_terminal_inferior = 0;
+ eb_ops.to_terminal_ours_for_output = 0;
+ eb_ops.to_terminal_ours = 0;
+ eb_ops.to_terminal_info = 0; /* Terminal handling */
+ eb_ops.to_kill = eb_kill;
+ eb_ops.to_load = generic_load; /* load */
+ eb_ops.to_lookup_symbol = 0; /* lookup_symbol */
+ eb_ops.to_create_inferior = eb_create_inferior;
+ eb_ops.to_post_startup_inferior = NULL;
+ eb_ops.to_acknowledge_created_inferior = NULL;
+ eb_ops.to_clone_and_follow_inferior = NULL;
+ eb_ops.to_post_follow_inferior_by_clone = NULL;
+ eb_ops.to_insert_fork_catchpoint = NULL;
+ eb_ops.to_remove_fork_catchpoint = NULL;
+ eb_ops.to_insert_vfork_catchpoint = NULL;
+ eb_ops.to_remove_vfork_catchpoint = NULL;
+ eb_ops.to_has_forked = NULL;
+ eb_ops.to_has_vforked = NULL;
+ eb_ops.to_can_follow_vfork_prior_to_exec = NULL;
+ eb_ops.to_post_follow_vfork = NULL;
+ eb_ops.to_insert_exec_catchpoint = NULL;
+ eb_ops.to_remove_exec_catchpoint = NULL;
+ eb_ops.to_has_execd = NULL;
+ eb_ops.to_reported_exec_events_per_exec_call = NULL;
+ eb_ops.to_has_exited = NULL;
+ eb_ops.to_mourn_inferior = eb_mourn_inferior;
+ eb_ops.to_can_run = 0; /* can_run */
+ eb_ops.to_notice_signals = 0; /* notice_signals */
+ eb_ops.to_thread_alive = 0; /* thread-alive */
+ eb_ops.to_stop = 0; /* to_stop */
+ eb_ops.to_pid_to_exec_file = NULL;
+ eb_ops.to_core_file_to_sym_file = NULL;
+ eb_ops.to_stratum = process_stratum;
+ eb_ops.DONT_USE = 0; /* next */
+ eb_ops.to_has_all_memory = 1;
+ eb_ops.to_has_memory = 1;
+ eb_ops.to_has_stack = 1;
+ eb_ops.to_has_registers = 1;
+ eb_ops.to_has_execution = 1; /* all mem, mem, stack, regs, exec */
+ eb_ops.to_sections = 0; /* sections */
+ eb_ops.to_sections_end = 0; /* sections end */
+ eb_ops.to_magic = OPS_MAGIC; /* Always the last thing */
};
void
_initialize_remote_eb ()
{
+ init_eb_ops ();
add_target (&eb_ops);
}
projects / deliverable / binutils-gdb.git / blobdiff