Initial versions of sparc64 port.

Some stuff can be removed when sparc-tdep.c is upgraded.

1 files changed, 420 insertions, 0 deletions

diff --git a/gdb/remote-sp64sim.c b/gdb/remote-sp64sim.c
new file mode 100644
index 0000000..2c15272
--- /dev/null
+++ b/gdb/remote-sp64sim.c
@@ -0,0 +1,420 @@
+/* Remote debugging interface for SPARC64 Simulator.
+   Copyright 1992 Free Software Foundation, Inc.
+   Contributed by Cygnus Support.  Hacked from Steve Chamberlain's Z8000 work
+   by Doug Evans. (dje@cygnus.com).
+
+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 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.  */
+
+#include "defs.h"
+#include "inferior.h"
+#include "wait.h"
+#include "value.h"
+#include <string.h>
+#include <ctype.h>
+#include <fcntl.h>
+#include <signal.h>
+#include <setjmp.h>
+#include <errno.h>
+#include "terminal.h"
+#include "target.h"
+#include "gdbcore.h"
+#include "sp64sim.h"
+
+/* Naming conventions:
+
+   simif_xxx are internal objects that describe top level interfaces to the
+   simulator (simif for SIMulator InterFace).
+
+   sim_xxx are external counterparts to the simif_xxx objects that must be
+   provided by the simulator.  */
+
+/* Forward data declarations */
+extern struct target_ops simif_ops;
+
+int simif_verbose = 0;	/* available to the simulator to use */
+
+static int program_loaded = 0;
+
+static void dump_mem ();
+
+static void
+simif_fetch_register (regno)
+int regno;
+{
+  if (regno == -1) 
+    {
+      if (simif_verbose)
+	printf_filtered ("simif_fetch_register: %d\n", regno);
+      for (regno = 0; regno < 16; regno++)
+	simif_fetch_register (regno);
+    }
+  else
+    {
+      char buf[MAX_REGISTER_RAW_SIZE];
+
+      sim_fetch_register (regno, buf);
+      supply_register (regno, buf);
+      if (simif_verbose)
+	{
+	  printf_filtered ("simif_fetch_register: %d", regno);
+	  dump_mem (buf, sizeof (REGISTER_TYPE));
+	}
+    }
+}
+
+static void
+simif_store_register (regno)
+int regno;
+{
+  if (regno  == -1) 
+    {
+      if (simif_verbose)
+	printf_filtered ("simif_store_register: %d\n", regno);
+      for (regno = 0; regno < 16; regno++)
+	simif_store_register (regno);
+    }
+  else 
+    {
+      char value[sizeof (REGISTER_TYPE)];
+
+      read_register_gen (regno, value);
+      SWAP_TARGET_AND_HOST (value, sizeof (REGISTER_TYPE));
+      sim_store_register (regno, value);
+      if (simif_verbose)
+	{
+	  printf_filtered ("simif_store_register: %d", regno);
+	  dump_mem (value, sizeof (REGISTER_TYPE));
+	}
+    }
+}
+
+static void
+simif_kill (arg,from_tty)
+char	*arg;
+int	from_tty;
+{
+  if (simif_verbose)
+    printf_filtered ("simif_kill: arg \"%s\"\n", arg);
+
+  sim_kill ();	/* close fd's, remove mappings */
+  inferior_pid = 0;
+}
+
+/* Download a file specified in 'args', to the sim. */
+
+static void
+simif_load (args, fromtty)
+     char *args;
+     int fromtty;
+{
+  bfd	*abfd;
+
+  if (simif_verbose)
+    printf_filtered ("simif_load: args \"%s\"\n", args);
+
+  inferior_pid = 0;  
+  program_loaded = 0;
+  /* FIXME: a.out should be a config parm and/or an arg.  */
+  abfd = bfd_openr (args,"a.out-sunos-big");
+
+  if (!abfd) 
+    error ("Unable to open file %s.", args);
+
+  if (bfd_check_format (abfd, bfd_object) ==0) 
+    error ("File is not an object file.");
+
+  if (sim_load (abfd, args) != 0)
+    return;
+
+  program_loaded = 1;
+
+  /* It is sim_load()'s job to set this.  */
+  /*sim_set_pc (abfd->start_address); - can't do 'cus we use RMTVaddr */
+}
+
+/* This is called not only when we first attach, but also when the
+   user types "run" after having attached.  */
+
+static void
+simif_create_inferior (exec_file, args, env)
+     char *exec_file;
+     char *args;
+     char **env;
+{
+  int len,entry_pt;
+  char *arg_buf,**argv;
+
+  if (! program_loaded)
+    error ("No program loaded.");
+
+  if (simif_verbose)
+    printf_filtered ("simif_create_inferior: exec_file \"%s\", args \"%s\"\n",
+      exec_file, args);
+
+  if (exec_file == 0 || exec_bfd == 0)
+   error ("No exec file specified.");
+
+  entry_pt = (int) bfd_get_start_address (exec_bfd);
+
+  simif_kill (NULL, NULL);	 
+  remove_breakpoints ();
+  init_wait_for_inferior ();
+
+  len = 5 + strlen (exec_file) + 1 + strlen (args) + 1 + /*slop*/ 10;
+  arg_buf = (char *) alloca (len);
+  arg_buf[0] = '\0';
+  strcat (arg_buf, exec_file);
+  strcat (arg_buf, " ");
+  strcat (arg_buf, args);
+  argv = buildargv (arg_buf);
+  make_cleanup (freeargv, (char *) argv);
+  sim_set_args (argv, env);
+
+  inferior_pid = 42;
+  insert_breakpoints ();	/* Needed to get correct instruction in cache */
+  proceed (entry_pt, -1, 0);
+}
+
+/* Called when selecting the simulator. EG: (gdb) target sim name.
+   NAME unused at present. */
+
+static void
+simif_open (name, from_tty)
+     char *name;
+     int from_tty;
+{
+  if (simif_verbose)
+    printf_filtered ("simif_open: name \"%s\"\n", name);
+
+  if (sim_init (name) != 0)
+    {
+      error ("Unable to initialize simulator (insufficient memory?).");
+      return;
+    }
+
+  push_target (&simif_ops);
+  target_fetch_registers (-1);
+
+  printf_filtered ("Connected to the simulator.\n");
+}
+
+/* Close out all files and local state before this target loses control. */
+
+static void
+simif_close (quitting)
+     int quitting;
+{
+  if (simif_verbose)
+    printf_filtered ("simif_close: quitting %d\n", quitting);
+
+  program_loaded = 0;
+
+  /* FIXME: Need to call sim_close() to close all files and
+     delete all mappings. */
+}
+
+/* Terminate the open connection to the remote debugger.
+   Use this when you want to detach and do something else
+   with your gdb.  */
+
+static void
+simif_detach (args,from_tty)
+     char *args;
+     int from_tty;
+{
+  if (simif_verbose)
+    printf_filtered ("simif_detach: args \"%s\"\n", args);
+
+  pop_target ();		/* calls simif_close to do the real work */
+  if (from_tty)
+    printf_filtered ("Ending simulator %s debugging\n", target_shortname);
+}
+ 
+/* Tell the remote machine to resume.  */
+/* FIXME: What are A and B?  */
+
+static void
+simif_resume (a,b)
+{
+  if (simif_verbose)
+    printf_filtered ("simif_resume: %d/%d\n", a, b);
+
+  sim_resume (a, b);
+}
+
+/* Wait until the remote machine stops, then return,
+   storing status in STATUS just as `wait' would.  */
+
+static int
+simif_wait (status)
+     WAITTYPE *status;
+{
+  if (simif_verbose)
+    printf_filtered ("simif_wait: ");
+#if 1
+  *status = sim_stop_signal ();
+#else
+  WSETSTOP (*status, sim_stop_signal ());
+#endif
+  if (simif_verbose)
+    printf_filtered ("status %d\n", *status);
+  return 0;
+}
+
+/* Get ready to modify the registers array.  On machines which store
+   individual registers, this doesn't need to do anything.  On machines
+   which store all the registers in one fell swoop, this makes sure
+   that registers contains all the registers from the program being
+   debugged.  */
+
+static void
+simif_prepare_to_store ()
+{
+  /* Do nothing, since we can store individual regs */
+}
+
+static int
+simif_xfer_inferior_memory (memaddr, myaddr, len, write, target)
+     CORE_ADDR memaddr;
+     char *myaddr;
+     int len;
+     int write;
+     struct target_ops *target;			/* ignored */
+{
+  if (simif_verbose)
+  {
+    printf_filtered ("simif_xfer_inferior_memory: myaddr 0x%x, memaddr 0x%x, len %d, write %d\n",
+      myaddr, memaddr, len, write);
+    if (simif_verbose && write)
+      dump_mem(myaddr, len);
+  }
+
+  if (! program_loaded)
+    error ("No program loaded.");
+
+  if (write)
+  {
+    len = sim_write (memaddr, myaddr, len);
+  }
+  else 
+  {
+    len = sim_read (memaddr, myaddr, len);
+    if (simif_verbose && len  > 0)
+      dump_mem(myaddr, len);
+  } 
+  return len;
+}
+
+static void
+simif_files_info ()
+{
+  char *file = "nothing";
+
+  if (exec_bfd)
+    file = bfd_get_filename (exec_bfd);
+
+  if (simif_verbose)
+    printf_filtered ("simif_files_info: file \"%s\"\n", file);
+
+  if (exec_bfd)
+    printf_filtered ("\tAttached to %s running program %s\n",
+      target_shortname, file);
+}
+
+/* Clear the sims notion of what the break points are */
+static void
+simif_mourn () 
+{ 
+  if (simif_verbose)
+    printf_filtered ("simif_mourn:\n");
+
+  remove_breakpoints ();
+  generic_mourn_inferior ();
+}
+
+/* Define the target subroutine names */
+
+struct target_ops simif_ops = 
+{
+  "sim", "SPARC64 Simulator",
+  "Use the SPARC64 Simulator",
+  simif_open, simif_close, 
+  0, simif_detach, simif_resume, simif_wait, /* attach */
+  simif_fetch_register, simif_store_register,
+  simif_prepare_to_store,
+  simif_xfer_inferior_memory, 
+  simif_files_info,
+  0, 0,				/* Breakpoints */
+  0, 0, 0, 0, 0,		/* Terminal handling */
+  simif_kill,			/* FIXME, kill */
+  simif_load, 
+  0,				/* lookup_symbol */
+  simif_create_inferior,	/* create_inferior */ 
+  simif_mourn,			/* mourn_inferior FIXME */
+  0,				/* can_run */
+  0,				/* notice_signals */
+  process_stratum, 0,		/* next */
+  1, 1, 1, 1, 1,		/* all mem, mem, stack, regs, exec */
+  0, 0,				/* Section pointers */
+  OPS_MAGIC,			/* Always the last thing */
+};
+
+static void
+simif_snoop ()
+{
+  simif_verbose = ! simif_verbose;  
+  if (simif_verbose)
+    printf_filtered ("Snoop enabled\n");
+  else
+    printf_filtered ("Snoop disabled\n");
+
+}
+
+/***********************************************************************/
+
+void
+_initialize_remote_sim ()
+{
+  add_target (&simif_ops);
+  add_com ("snoop", class_obscure, simif_snoop,
+	   "Show what commands are going to the simulator");
+}
+
+static void
+dump_mem (buf, len)
+     char *buf;
+     int len;
+{
+  if (len <= 8)
+  {
+    if (len == 8 || len == 4)
+    {
+      long l[2];
+      memcpy (l, buf, len);
+      printf_filtered ("\t0x%x", l[0]);
+      printf_filtered (len == 8 ? " 0x%x\n" : "\n", l[1]);
+    }
+    else
+    {
+      int i;
+      printf_filtered ("\t");
+      for (i = 0; i < len; i++)
+	printf_filtered ("0x%x ", buf[i]);
+      printf_filtered ("\n");
+    }
+  }
+}