gdb/remote-sim.c - gdb
Global variables defined
Data types defined
Functions defined
Macros defined
Source code
- #include "defs.h"
- #include "inferior.h"
- #include "infrun.h"
- #include "value.h"
- #include <ctype.h>
- #include <fcntl.h>
- #include <signal.h>
- #include <setjmp.h>
- #include "terminal.h"
- #include "target.h"
- #include "gdbcore.h"
- #include "gdb/callback.h"
- #include "gdb/remote-sim.h"
- #include "command.h"
- #include "regcache.h"
- #include "sim-regno.h"
- #include "arch-utils.h"
- #include "readline/readline.h"
- #include "gdbthread.h"
- extern void _initialize_remote_sim (void);
- static void init_callbacks (void);
- static void end_callbacks (void);
- static int gdb_os_write_stdout (host_callback *, const char *, int);
- static void gdb_os_flush_stdout (host_callback *);
- static int gdb_os_write_stderr (host_callback *, const char *, int);
- static void gdb_os_flush_stderr (host_callback *);
- static int gdb_os_poll_quit (host_callback *);
- static void gdb_os_printf_filtered (host_callback *, const char *, ...);
- static void gdb_os_vprintf_filtered (host_callback *, const char *, va_list);
- static void gdb_os_evprintf_filtered (host_callback *, const char *, va_list);
- static void gdb_os_error (host_callback *, const char *, ...)
- ATTRIBUTE_NORETURN;
- static void gdbsim_kill (struct target_ops *);
- static void gdbsim_load (struct target_ops *self, const char *prog,
- int fromtty);
- static void gdbsim_open (const char *args, int from_tty);
- static void gdbsim_close (struct target_ops *self);
- static void gdbsim_detach (struct target_ops *ops, const char *args,
- int from_tty);
- static void gdbsim_prepare_to_store (struct target_ops *self,
- struct regcache *regcache);
- static void gdbsim_files_info (struct target_ops *target);
- static void gdbsim_mourn_inferior (struct target_ops *target);
- static void gdbsim_stop (struct target_ops *self, ptid_t ptid);
- void simulator_command (char *args, int from_tty);
- extern struct target_ops gdbsim_ops;
- static const struct inferior_data *sim_inferior_data_key;
- struct sim_inferior_data {
-
- int program_loaded;
-
- SIM_DESC gdbsim_desc;
-
- ptid_t remote_sim_ptid;
-
- enum gdb_signal resume_siggnal;
-
- int resume_step;
- };
- static int gdbsim_is_open = 0;
- static int next_pid;
- #define INITIAL_PID 42000
- static char **sim_argv = NULL;
- static host_callback gdb_callback;
- static int callbacks_initialized = 0;
- static int
- check_for_duplicate_sim_descriptor (struct inferior *inf, void *arg)
- {
- struct sim_inferior_data *sim_data;
- SIM_DESC new_sim_desc = arg;
- sim_data = inferior_data (inf, sim_inferior_data_key);
- return (sim_data != NULL && sim_data->gdbsim_desc == new_sim_desc);
- }
- enum {SIM_INSTANCE_NOT_NEEDED = 0, SIM_INSTANCE_NEEDED = 1};
- static struct sim_inferior_data *
- get_sim_inferior_data (struct inferior *inf, int sim_instance_needed)
- {
- SIM_DESC sim_desc = NULL;
- struct sim_inferior_data *sim_data
- = inferior_data (inf, sim_inferior_data_key);
-
- if (sim_instance_needed == SIM_INSTANCE_NEEDED
- && (sim_data == NULL || sim_data->gdbsim_desc == NULL))
- {
- struct inferior *idup;
- sim_desc = sim_open (SIM_OPEN_DEBUG, &gdb_callback, exec_bfd, sim_argv);
- if (sim_desc == NULL)
- error (_("Unable to create simulator instance for inferior %d."),
- inf->num);
- idup = iterate_over_inferiors (check_for_duplicate_sim_descriptor,
- sim_desc);
- if (idup != NULL)
- {
-
- sim_desc = NULL;
- error (
- _("Inferior %d and inferior %d would have identical simulator state.\n"
- "(This simulator does not support the running of more than one inferior.)"),
- inf->num, idup->num);
- }
- }
- if (sim_data == NULL)
- {
- sim_data = XCNEW(struct sim_inferior_data);
- set_inferior_data (inf, sim_inferior_data_key, sim_data);
-
- sim_data->remote_sim_ptid = ptid_build (next_pid, 0, next_pid);
- next_pid++;
-
- sim_data->program_loaded = 0;
- sim_data->gdbsim_desc = sim_desc;
- sim_data->resume_siggnal = GDB_SIGNAL_0;
- sim_data->resume_step = 0;
- }
- else if (sim_desc)
- {
-
- sim_data->gdbsim_desc = sim_desc;
- }
- return sim_data;
- }
- static struct sim_inferior_data *
- get_sim_inferior_data_by_ptid (ptid_t ptid, int sim_instance_needed)
- {
- struct inferior *inf;
- int pid = ptid_get_pid (ptid);
- if (pid <= 0)
- return NULL;
- inf = find_inferior_pid (pid);
- if (inf)
- return get_sim_inferior_data (inf, sim_instance_needed);
- else
- return NULL;
- }
- static void
- sim_inferior_data_cleanup (struct inferior *inf, void *data)
- {
- struct sim_inferior_data *sim_data = data;
- if (sim_data != NULL)
- {
- if (sim_data->gdbsim_desc)
- {
- sim_close (sim_data->gdbsim_desc, 0);
- sim_data->gdbsim_desc = NULL;
- }
- xfree (sim_data);
- }
- }
- static void
- dump_mem (const gdb_byte *buf, int len)
- {
- fputs_unfiltered ("\t", gdb_stdlog);
- if (len == 8 || len == 4)
- {
- uint32_t l[2];
- memcpy (l, buf, len);
- fprintf_unfiltered (gdb_stdlog, "0x%08x", l[0]);
- if (len == 8)
- fprintf_unfiltered (gdb_stdlog, " 0x%08x", l[1]);
- }
- else
- {
- int i;
- for (i = 0; i < len; i++)
- fprintf_unfiltered (gdb_stdlog, "0x%02x ", buf[i]);
- }
- fputs_unfiltered ("\n", gdb_stdlog);
- }
- static void
- init_callbacks (void)
- {
- if (!callbacks_initialized)
- {
- gdb_callback = default_callback;
- gdb_callback.init (&gdb_callback);
- gdb_callback.write_stdout = gdb_os_write_stdout;
- gdb_callback.flush_stdout = gdb_os_flush_stdout;
- gdb_callback.write_stderr = gdb_os_write_stderr;
- gdb_callback.flush_stderr = gdb_os_flush_stderr;
- gdb_callback.printf_filtered = gdb_os_printf_filtered;
- gdb_callback.vprintf_filtered = gdb_os_vprintf_filtered;
- gdb_callback.evprintf_filtered = gdb_os_evprintf_filtered;
- gdb_callback.error = gdb_os_error;
- gdb_callback.poll_quit = gdb_os_poll_quit;
- gdb_callback.magic = HOST_CALLBACK_MAGIC;
- callbacks_initialized = 1;
- }
- }
- static void
- end_callbacks (void)
- {
- if (callbacks_initialized)
- {
- gdb_callback.shutdown (&gdb_callback);
- callbacks_initialized = 0;
- }
- }
- static int
- gdb_os_write_stdout (host_callback *p, const char *buf, int len)
- {
- int i;
- char b[2];
- ui_file_write (gdb_stdtarg, buf, len);
- return len;
- }
- static void
- gdb_os_flush_stdout (host_callback *p)
- {
- gdb_flush (gdb_stdtarg);
- }
- static int
- gdb_os_write_stderr (host_callback *p, const char *buf, int len)
- {
- int i;
- char b[2];
- for (i = 0; i < len; i++)
- {
- b[0] = buf[i];
- b[1] = 0;
- fputs_unfiltered (b, gdb_stdtargerr);
- }
- return len;
- }
- static void
- gdb_os_flush_stderr (host_callback *p)
- {
- gdb_flush (gdb_stdtargerr);
- }
- static void
- gdb_os_printf_filtered (host_callback * p, const char *format,...)
- {
- va_list args;
- va_start (args, format);
- vfprintf_filtered (gdb_stdout, format, args);
- va_end (args);
- }
- static void
- gdb_os_vprintf_filtered (host_callback * p, const char *format, va_list ap)
- {
- vfprintf_filtered (gdb_stdout, format, ap);
- }
- static void
- gdb_os_evprintf_filtered (host_callback * p, const char *format, va_list ap)
- {
- vfprintf_filtered (gdb_stderr, format, ap);
- }
- static void
- gdb_os_error (host_callback * p, const char *format, ...)
- {
- va_list args;
- va_start (args, format);
- verror (format, args);
- va_end (args);
- }
- int
- one2one_register_sim_regno (struct gdbarch *gdbarch, int regnum)
- {
-
- gdb_assert (regnum >= 0 && regnum < gdbarch_num_regs (gdbarch));
- return regnum;
- }
- static void
- gdbsim_fetch_register (struct target_ops *ops,
- struct regcache *regcache, int regno)
- {
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NEEDED);
- if (regno == -1)
- {
- for (regno = 0; regno < gdbarch_num_regs (gdbarch); regno++)
- gdbsim_fetch_register (ops, regcache, regno);
- return;
- }
- switch (gdbarch_register_sim_regno (gdbarch, regno))
- {
- case LEGACY_SIM_REGNO_IGNORE:
- break;
- case SIM_REGNO_DOES_NOT_EXIST:
- {
-
- gdb_byte buf[MAX_REGISTER_SIZE];
- int nr_bytes;
- memset (buf, 0, MAX_REGISTER_SIZE);
- regcache_raw_supply (regcache, regno, buf);
- break;
- }
- default:
- {
- static int warn_user = 1;
- gdb_byte buf[MAX_REGISTER_SIZE];
- int nr_bytes;
- gdb_assert (regno >= 0 && regno < gdbarch_num_regs (gdbarch));
- memset (buf, 0, MAX_REGISTER_SIZE);
- nr_bytes = sim_fetch_register (sim_data->gdbsim_desc,
- gdbarch_register_sim_regno
- (gdbarch, regno),
- buf,
- register_size (gdbarch, regno));
- if (nr_bytes > 0
- && nr_bytes != register_size (gdbarch, regno) && warn_user)
- {
- fprintf_unfiltered (gdb_stderr,
- "Size of register %s (%d/%d) "
- "incorrect (%d instead of %d))",
- gdbarch_register_name (gdbarch, regno),
- regno,
- gdbarch_register_sim_regno
- (gdbarch, regno),
- nr_bytes, register_size (gdbarch, regno));
- warn_user = 0;
- }
- FIXME
-
- regcache_raw_supply (regcache, regno, buf);
- if (remote_debug)
- {
- fprintf_unfiltered (gdb_stdlog,
- "gdbsim_fetch_register: %d", regno);
- FIXME
- dump_mem (buf, register_size (gdbarch, regno));
- }
- break;
- }
- }
- }
- static void
- gdbsim_store_register (struct target_ops *ops,
- struct regcache *regcache, int regno)
- {
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NEEDED);
- if (regno == -1)
- {
- for (regno = 0; regno < gdbarch_num_regs (gdbarch); regno++)
- gdbsim_store_register (ops, regcache, regno);
- return;
- }
- else if (gdbarch_register_sim_regno (gdbarch, regno) >= 0)
- {
- gdb_byte tmp[MAX_REGISTER_SIZE];
- int nr_bytes;
- regcache_cooked_read (regcache, regno, tmp);
- nr_bytes = sim_store_register (sim_data->gdbsim_desc,
- gdbarch_register_sim_regno
- (gdbarch, regno),
- tmp, register_size (gdbarch, regno));
- if (nr_bytes > 0 && nr_bytes != register_size (gdbarch, regno))
- internal_error (__FILE__, __LINE__,
- _("Register size different to expected"));
- if (nr_bytes < 0)
- internal_error (__FILE__, __LINE__,
- _("Register %d not updated"), regno);
- if (nr_bytes == 0)
- warning (_("Register %s not updated"),
- gdbarch_register_name (gdbarch, regno));
- if (remote_debug)
- {
- fprintf_unfiltered (gdb_stdlog, "gdbsim_store_register: %d", regno);
- FIXME
- dump_mem (tmp, register_size (gdbarch, regno));
- }
- }
- }
- static void
- gdbsim_kill (struct target_ops *ops)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "gdbsim_kill\n");
-
- target_mourn_inferior ();
- }
- static void
- gdbsim_load (struct target_ops *self, const char *args, int fromtty)
- {
- char **argv;
- const char *prog;
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NEEDED);
- if (args == NULL)
- error_no_arg (_("program to load"));
- argv = gdb_buildargv (args);
- make_cleanup_freeargv (argv);
- prog = tilde_expand (argv[0]);
- if (argv[1] != NULL)
- error (_("GDB sim does not yet support a load offset."));
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "gdbsim_load: prog \"%s\"\n", prog);
- FIXME
- if (sim_load (sim_data->gdbsim_desc, prog, NULL, fromtty) == SIM_RC_FAIL)
- error (_("unable to load program"));
- FIXME
- sim_data->program_loaded = 1;
- }
- static void
- gdbsim_create_inferior (struct target_ops *target, char *exec_file, char *args,
- char **env, int from_tty)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NEEDED);
- int len;
- char *arg_buf, **argv;
- if (exec_file == 0 || exec_bfd == 0)
- warning (_("No executable file specified."));
- if (!sim_data->program_loaded)
- warning (_("No program loaded."));
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog,
- "gdbsim_create_inferior: exec_file \"%s\", args \"%s\"\n",
- (exec_file ? exec_file : "(NULL)"),
- args);
- if (ptid_equal (inferior_ptid, sim_data->remote_sim_ptid))
- gdbsim_kill (target);
- remove_breakpoints ();
- init_wait_for_inferior ();
- if (exec_file != NULL)
- {
- len = strlen (exec_file) + 1 + strlen (args) + 1 + 10;
- arg_buf = (char *) alloca (len);
- arg_buf[0] = '\0';
- strcat (arg_buf, exec_file);
- strcat (arg_buf, " ");
- strcat (arg_buf, args);
- argv = gdb_buildargv (arg_buf);
- make_cleanup_freeargv (argv);
- }
- else
- argv = NULL;
- if (!have_inferiors ())
- init_thread_list ();
- if (sim_create_inferior (sim_data->gdbsim_desc, exec_bfd, argv, env)
- != SIM_RC_OK)
- error (_("Unable to create sim inferior."));
- inferior_ptid = sim_data->remote_sim_ptid;
- inferior_appeared (current_inferior (), ptid_get_pid (inferior_ptid));
- add_thread_silent (inferior_ptid);
- insert_breakpoints ();
- clear_proceed_status (0);
- }
- static void
- gdbsim_open (const char *args, int from_tty)
- {
- int len;
- char *arg_buf;
- struct sim_inferior_data *sim_data;
- SIM_DESC gdbsim_desc;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog,
- "gdbsim_open: args \"%s\"\n", args ? args : "(null)");
-
- if (gdbsim_is_open)
- unpush_target (&gdbsim_ops);
- len = (7 + 1
- + strlen (" -E little")
- + strlen (" --architecture=xxxxxxxxxx")
- + strlen (" --sysroot=") + strlen (gdb_sysroot) +
- + (args ? strlen (args) : 0)
- + 50) ;
- arg_buf = (char *) alloca (len);
- strcpy (arg_buf, "gdbsim");
-
- switch (selected_byte_order ())
- {
- case BFD_ENDIAN_BIG:
- strcat (arg_buf, " -E big");
- break;
- case BFD_ENDIAN_LITTLE:
- strcat (arg_buf, " -E little");
- break;
- case BFD_ENDIAN_UNKNOWN:
- break;
- }
-
- if (selected_architecture_name () != NULL)
- {
- strcat (arg_buf, " --architecture=");
- strcat (arg_buf, selected_architecture_name ());
- }
-
- strcat (arg_buf, " --sysroot=");
- strcat (arg_buf, gdb_sysroot);
-
- if (args)
- {
- strcat (arg_buf, " ");
- strcat (arg_buf, args);
- }
- sim_argv = gdb_buildargv (arg_buf);
- init_callbacks ();
- gdbsim_desc = sim_open (SIM_OPEN_DEBUG, &gdb_callback, exec_bfd, sim_argv);
- if (gdbsim_desc == 0)
- {
- freeargv (sim_argv);
- sim_argv = NULL;
- error (_("unable to create simulator instance"));
- }
-
- next_pid = INITIAL_PID;
-
- sim_data = get_sim_inferior_data (current_inferior (),
- SIM_INSTANCE_NOT_NEEDED);
- sim_data->gdbsim_desc = gdbsim_desc;
- push_target (&gdbsim_ops);
- printf_filtered ("Connected to the simulator.\n");
-
- inferior_ptid = null_ptid;
- gdbsim_is_open = 1;
- }
- static int
- gdbsim_close_inferior (struct inferior *inf, void *arg)
- {
- struct sim_inferior_data *sim_data = inferior_data (inf,
- sim_inferior_data_key);
- if (sim_data != NULL)
- {
- ptid_t ptid = sim_data->remote_sim_ptid;
- sim_inferior_data_cleanup (inf, sim_data);
- set_inferior_data (inf, sim_inferior_data_key, NULL);
-
- if (find_inferior_ptid (ptid) != NULL)
- {
- switch_to_thread (ptid);
- generic_mourn_inferior ();
- }
- }
- return 0;
- }
- static void
- gdbsim_close (struct target_ops *self)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NOT_NEEDED);
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "gdbsim_close\n");
- iterate_over_inferiors (gdbsim_close_inferior, NULL);
- if (sim_argv != NULL)
- {
- freeargv (sim_argv);
- sim_argv = NULL;
- }
- end_callbacks ();
- gdbsim_is_open = 0;
- }
- static void
- gdbsim_detach (struct target_ops *ops, const char *args, int from_tty)
- {
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "gdbsim_detach: args \"%s\"\n", args);
- unpush_target (ops);
- if (from_tty)
- printf_filtered ("Ending simulator %s debugging\n", target_shortname);
- }
- struct resume_data
- {
- enum gdb_signal siggnal;
- int step;
- };
- static int
- gdbsim_resume_inferior (struct inferior *inf, void *arg)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (inf, SIM_INSTANCE_NOT_NEEDED);
- struct resume_data *rd = arg;
- if (sim_data)
- {
- sim_data->resume_siggnal = rd->siggnal;
- sim_data->resume_step = rd->step;
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog,
- _("gdbsim_resume: pid %d, step %d, signal %d\n"),
- inf->pid, rd->step, rd->siggnal);
- }
-
- return 0;
- }
- static void
- gdbsim_resume (struct target_ops *ops,
- ptid_t ptid, int step, enum gdb_signal siggnal)
- {
- struct resume_data rd;
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data_by_ptid (ptid, SIM_INSTANCE_NOT_NEEDED);
- rd.siggnal = siggnal;
- rd.step = step;
-
- if (sim_data)
- gdbsim_resume_inferior (find_inferior_ptid (ptid), &rd);
- else if (ptid_equal (ptid, minus_one_ptid))
- iterate_over_inferiors (gdbsim_resume_inferior, &rd);
- else
- error (_("The program is not being run."));
- }
- static int
- gdbsim_stop_inferior (struct inferior *inf, void *arg)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (inf, SIM_INSTANCE_NEEDED);
- if (sim_data)
- {
- if (!sim_stop (sim_data->gdbsim_desc))
- {
- quit ();
- }
- }
-
- return 0;
- }
- static void
- gdbsim_stop (struct target_ops *self, ptid_t ptid)
- {
- struct sim_inferior_data *sim_data;
- if (ptid_equal (ptid, minus_one_ptid))
- {
- iterate_over_inferiors (gdbsim_stop_inferior, NULL);
- }
- else
- {
- struct inferior *inf = find_inferior_ptid (ptid);
- if (inf == NULL)
- error (_("Can't stop pid %d. No inferior found."),
- ptid_get_pid (ptid));
- gdbsim_stop_inferior (inf, NULL);
- }
- }
- static int
- gdb_os_poll_quit (host_callback *p)
- {
- if (deprecated_ui_loop_hook != NULL)
- deprecated_ui_loop_hook (0);
- if (check_quit_flag ())
- {
- clear_quit_flag ();
- return 1;
- }
- return 0;
- }
- static void
- gdbsim_cntrl_c (int signo)
- {
- gdbsim_stop (NULL, minus_one_ptid);
- }
- static ptid_t
- gdbsim_wait (struct target_ops *ops,
- ptid_t ptid, struct target_waitstatus *status, int options)
- {
- struct sim_inferior_data *sim_data;
- static RETSIGTYPE (*prev_sigint) ();
- int sigrc = 0;
- enum sim_stop reason = sim_running;
-
- if (ptid_equal (ptid, minus_one_ptid))
- sim_data = get_sim_inferior_data (current_inferior (),
- SIM_INSTANCE_NEEDED);
- else
- {
- sim_data = get_sim_inferior_data_by_ptid (ptid, SIM_INSTANCE_NEEDED);
- if (sim_data == NULL)
- error (_("Unable to wait for pid %d. Inferior not found."),
- ptid_get_pid (ptid));
- inferior_ptid = ptid;
- }
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "gdbsim_wait\n");
- #if defined (HAVE_SIGACTION) && defined (SA_RESTART)
- {
- struct sigaction sa, osa;
- sa.sa_handler = gdbsim_cntrl_c;
- sigemptyset (&sa.sa_mask);
- sa.sa_flags = 0;
- sigaction (SIGINT, &sa, &osa);
- prev_sigint = osa.sa_handler;
- }
- #else
- prev_sigint = signal (SIGINT, gdbsim_cntrl_c);
- #endif
- sim_resume (sim_data->gdbsim_desc, sim_data->resume_step,
- sim_data->resume_siggnal);
- signal (SIGINT, prev_sigint);
- sim_data->resume_step = 0;
- sim_stop_reason (sim_data->gdbsim_desc, &reason, &sigrc);
- switch (reason)
- {
- case sim_exited:
- status->kind = TARGET_WAITKIND_EXITED;
- status->value.integer = sigrc;
- break;
- case sim_stopped:
- switch (sigrc)
- {
- case GDB_SIGNAL_ABRT:
- quit ();
- break;
- case GDB_SIGNAL_INT:
- case GDB_SIGNAL_TRAP:
- default:
- status->kind = TARGET_WAITKIND_STOPPED;
- status->value.sig = sigrc;
- break;
- }
- break;
- case sim_signalled:
- status->kind = TARGET_WAITKIND_SIGNALLED;
- status->value.sig = sigrc;
- break;
- case sim_running:
- case sim_polling:
- FIXME
- break;
- }
- return inferior_ptid;
- }
- static void
- gdbsim_prepare_to_store (struct target_ops *self, struct regcache *regcache)
- {
-
- }
- static enum target_xfer_status
- gdbsim_xfer_memory (struct target_ops *target,
- gdb_byte *readbuf, const gdb_byte *writebuf,
- ULONGEST memaddr, ULONGEST len, ULONGEST *xfered_len)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NOT_NEEDED);
- int l;
-
- if (!target->to_has_memory (target))
- return TARGET_XFER_EOF;
- if (!sim_data->program_loaded)
- error (_("No program loaded."));
-
- gdb_assert (sim_data->gdbsim_desc != NULL);
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog,
- "gdbsim_xfer_memory: readbuf %s, writebuf %s, "
- "memaddr %s, len %s\n",
- host_address_to_string (readbuf),
- host_address_to_string (writebuf),
- paddress (target_gdbarch (), memaddr),
- pulongest (len));
- if (writebuf)
- {
- if (remote_debug && len > 0)
- dump_mem (writebuf, len);
- l = sim_write (sim_data->gdbsim_desc, memaddr, writebuf, len);
- }
- else
- {
- l = sim_read (sim_data->gdbsim_desc, memaddr, readbuf, len);
- if (remote_debug && len > 0)
- dump_mem (readbuf, len);
- }
- if (l > 0)
- {
- *xfered_len = (ULONGEST) l;
- return TARGET_XFER_OK;
- }
- else if (l == 0)
- return TARGET_XFER_EOF;
- else
- return TARGET_XFER_E_IO;
- }
- static enum target_xfer_status
- gdbsim_xfer_partial (struct target_ops *ops, enum target_object object,
- const char *annex, gdb_byte *readbuf,
- const gdb_byte *writebuf, ULONGEST offset, ULONGEST len,
- ULONGEST *xfered_len)
- {
- switch (object)
- {
- case TARGET_OBJECT_MEMORY:
- return gdbsim_xfer_memory (ops, readbuf, writebuf, offset, len,
- xfered_len);
- default:
- return TARGET_XFER_E_IO;
- }
- }
- static void
- gdbsim_files_info (struct target_ops *target)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NEEDED);
- const char *file = "nothing";
- if (exec_bfd)
- file = bfd_get_filename (exec_bfd);
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "gdbsim_files_info: file \"%s\"\n", file);
- if (exec_bfd)
- {
- fprintf_unfiltered (gdb_stdlog, "\tAttached to %s running program %s\n",
- target_shortname, file);
- sim_info (sim_data->gdbsim_desc, 0);
- }
- }
- static void
- gdbsim_mourn_inferior (struct target_ops *target)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NOT_NEEDED);
- if (remote_debug)
- fprintf_unfiltered (gdb_stdlog, "gdbsim_mourn_inferior:\n");
- remove_breakpoints ();
- generic_mourn_inferior ();
- delete_thread_silent (sim_data->remote_sim_ptid);
- }
- void
- simulator_command (char *args, int from_tty)
- {
- struct sim_inferior_data *sim_data;
-
- sim_data = inferior_data (current_inferior (), sim_inferior_data_key);
- if (sim_data == NULL || sim_data->gdbsim_desc == NULL)
- {
-
-
- error (_("Not connected to the simulator target"));
- }
- sim_do_command (sim_data->gdbsim_desc, args);
-
- registers_changed ();
- }
- static VEC (char_ptr) *
- sim_command_completer (struct cmd_list_element *ignore, const char *text,
- const char *word)
- {
- struct sim_inferior_data *sim_data;
- char **tmp;
- int i;
- VEC (char_ptr) *result = NULL;
- sim_data = inferior_data (current_inferior (), sim_inferior_data_key);
- if (sim_data == NULL || sim_data->gdbsim_desc == NULL)
- return NULL;
- tmp = sim_complete_command (sim_data->gdbsim_desc, text, word);
- if (tmp == NULL)
- return NULL;
-
- for (i = 0; tmp[i] != NULL; i++)
- VEC_safe_push (char_ptr, result, tmp[i]);
- xfree (tmp);
- return result;
- }
- static int
- gdbsim_thread_alive (struct target_ops *ops, ptid_t ptid)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data_by_ptid (ptid, SIM_INSTANCE_NOT_NEEDED);
- if (sim_data == NULL)
- return 0;
- if (ptid_equal (ptid, sim_data->remote_sim_ptid))
-
- return 1;
- return 0;
- }
- static char *
- gdbsim_pid_to_str (struct target_ops *ops, ptid_t ptid)
- {
- return normal_pid_to_str (ptid);
- }
- static int
- gdbsim_has_all_memory (struct target_ops *ops)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NOT_NEEDED);
- if (!sim_data->program_loaded)
- return 0;
- return 1;
- }
- static int
- gdbsim_has_memory (struct target_ops *ops)
- {
- struct sim_inferior_data *sim_data
- = get_sim_inferior_data (current_inferior (), SIM_INSTANCE_NOT_NEEDED);
- if (!sim_data->program_loaded)
- return 0;
- return 1;
- }
- struct target_ops gdbsim_ops;
- static void
- init_gdbsim_ops (void)
- {
- gdbsim_ops.to_shortname = "sim";
- gdbsim_ops.to_longname = "simulator";
- gdbsim_ops.to_doc = "Use the compiled-in simulator.";
- gdbsim_ops.to_open = gdbsim_open;
- gdbsim_ops.to_close = gdbsim_close;
- gdbsim_ops.to_detach = gdbsim_detach;
- gdbsim_ops.to_resume = gdbsim_resume;
- gdbsim_ops.to_wait = gdbsim_wait;
- gdbsim_ops.to_fetch_registers = gdbsim_fetch_register;
- gdbsim_ops.to_store_registers = gdbsim_store_register;
- gdbsim_ops.to_prepare_to_store = gdbsim_prepare_to_store;
- gdbsim_ops.to_xfer_partial = gdbsim_xfer_partial;
- gdbsim_ops.to_files_info = gdbsim_files_info;
- gdbsim_ops.to_insert_breakpoint = memory_insert_breakpoint;
- gdbsim_ops.to_remove_breakpoint = memory_remove_breakpoint;
- gdbsim_ops.to_kill = gdbsim_kill;
- gdbsim_ops.to_load = gdbsim_load;
- gdbsim_ops.to_create_inferior = gdbsim_create_inferior;
- gdbsim_ops.to_mourn_inferior = gdbsim_mourn_inferior;
- gdbsim_ops.to_stop = gdbsim_stop;
- gdbsim_ops.to_thread_alive = gdbsim_thread_alive;
- gdbsim_ops.to_pid_to_str = gdbsim_pid_to_str;
- gdbsim_ops.to_stratum = process_stratum;
- gdbsim_ops.to_has_all_memory = gdbsim_has_all_memory;
- gdbsim_ops.to_has_memory = gdbsim_has_memory;
- gdbsim_ops.to_has_stack = default_child_has_stack;
- gdbsim_ops.to_has_registers = default_child_has_registers;
- gdbsim_ops.to_has_execution = default_child_has_execution;
- gdbsim_ops.to_magic = OPS_MAGIC;
- }
- void
- _initialize_remote_sim (void)
- {
- struct cmd_list_element *c;
- init_gdbsim_ops ();
- add_target (&gdbsim_ops);
- c = add_com ("sim", class_obscure, simulator_command,
- _("Send a command to the simulator."));
- set_cmd_completer (c, sim_command_completer);
- sim_inferior_data_key
- = register_inferior_data_with_cleanup (NULL, sim_inferior_data_cleanup);
- }