/* Miscellaneous simulator utilities.
- Copyright (C) 1997 Free Software Foundation, Inc.
+ Copyright (C) 1997-2020 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB, the GNU debugger.
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, or (at your option)
-any later version.
+the Free Software Foundation; either version 3 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.,
-59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+You should have received a copy of the GNU General Public License
+along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "sim-main.h"
#include "sim-assert.h"
#include "bfd.h"
#include "sim-utils.h"
-/* Global pointer to all state data.
- Set by sim_resume. */
-struct sim_state *current_state;
-
-/* Allocate zero filled memory with xmalloc. */
+/* Allocate zero filled memory with xcalloc - xcalloc aborts if the
+ allocation fails. */
void *
zalloc (unsigned long size)
{
- void *memory = (void *) xmalloc (size);
- memset (memory, 0, size);
- return memory;
-}
-
-void
-zfree (void *data)
-{
- free (data);
+ return xcalloc (1, size);
}
/* Allocate a sim_state struct. */
SIM_DESC
-sim_state_alloc (void)
+sim_state_alloc (SIM_OPEN_KIND kind,
+ host_callback *callback)
{
- SIM_DESC sd = zalloc (sizeof (struct sim_state));
- sd->base.magic = SIM_MAGIC_NUMBER;
+ SIM_DESC sd = ZALLOC (struct sim_state);
+
+ STATE_MAGIC (sd) = SIM_MAGIC_NUMBER;
+ STATE_CALLBACK (sd) = callback;
+ STATE_OPEN_KIND (sd) = kind;
+
+#if 0
+ {
+ int cpu_nr;
+
+ /* Initialize the back link from the cpu struct to the state struct. */
+ /* ??? I can envision a design where the state struct contains an array
+ of pointers to cpu structs, rather than an array of structs themselves.
+ Implementing this is trickier as one may not know what to allocate until
+ one has parsed the args. Parsing the args twice wouldn't be unreasonable,
+ IMHO. If the state struct ever does contain an array of pointers then we
+ can't do this here.
+ ??? See also sim_post_argv_init*/
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
+ {
+ CPU_STATE (STATE_CPU (sd, cpu_nr)) = sd;
+ CPU_INDEX (STATE_CPU (sd, cpu_nr)) = cpu_nr;
+ }
+ }
+#endif
+
+#ifdef SIM_STATE_INIT
+ SIM_STATE_INIT (sd);
+#endif
+
return sd;
}
void
sim_state_free (SIM_DESC sd)
{
- ASSERT (sd->base.magic == SIM_MAGIC_NUMBER);
- zfree (sd);
+ ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
+
+#ifdef SIM_STATE_FREE
+ SIM_STATE_FREE (sd);
+#endif
+
+ free (sd);
+}
+
+/* Return a pointer to the cpu data for CPU_NAME, or NULL if not found. */
+
+sim_cpu *
+sim_cpu_lookup (SIM_DESC sd, const char *cpu_name)
+{
+ int i;
+
+ for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+ if (strcmp (cpu_name, CPU_NAME (STATE_CPU (sd, i))) == 0)
+ return STATE_CPU (sd, i);
+ return NULL;
+}
+
+/* Return the prefix to use for a CPU specific message (typically an
+ error message). */
+
+const char *
+sim_cpu_msg_prefix (sim_cpu *cpu)
+{
+#if MAX_NR_PROCESSORS == 1
+ return "";
+#else
+ static char *prefix;
+
+ if (prefix == NULL)
+ {
+ int maxlen = 0;
+ for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+ {
+ int len = strlen (CPU_NAME (STATE_CPU (sd, i)));
+ if (len > maxlen)
+ maxlen = len;
+ }
+ prefix = (char *) xmalloc (maxlen + 5);
+ }
+ sprintf (prefix, "%s: ", CPU_NAME (cpu));
+ return prefix;
+#endif
+}
+
+/* Cover fn to sim_io_eprintf. */
+
+void
+sim_io_eprintf_cpu (sim_cpu *cpu, const char *fmt, ...)
+{
+ SIM_DESC sd = CPU_STATE (cpu);
+ va_list ap;
+
+ va_start (ap, fmt);
+ sim_io_eprintf (sd, "%s", sim_cpu_msg_prefix (cpu));
+ sim_io_evprintf (sd, fmt, ap);
+ va_end (ap);
}
/* Turn VALUE into a string with commas. */
return endbuf;
}
-/* Make a copy of ARGV.
- This can also be used to copy the environment vector.
- The result is a pointer to the malloc'd copy or NULL if insufficient
- memory available. */
+/* Analyze PROG_NAME/PROG_BFD and set these fields in the state struct:
+ STATE_ARCHITECTURE, if not set already and can be determined from the bfd
+ STATE_PROG_BFD
+ STATE_START_ADDR
+ STATE_TEXT_SECTION
+ STATE_TEXT_START
+ STATE_TEXT_END
+
+ PROG_NAME is the file name of the executable or NULL.
+ PROG_BFD is its bfd or NULL.
+
+ If both PROG_NAME and PROG_BFD are NULL, this function returns immediately.
+ If PROG_BFD is not NULL, PROG_NAME is ignored.
+
+ Implicit inputs: STATE_MY_NAME(sd), STATE_TARGET(sd),
+ STATE_ARCHITECTURE(sd).
+
+ A new bfd is created so the app isn't required to keep its copy of the
+ bfd open. */
-char **
-sim_copy_argv (argv)
- char **argv;
+SIM_RC
+sim_analyze_program (SIM_DESC sd, const char *prog_name, bfd *prog_bfd)
{
- int i;
- int argc;
- int len;
- char **copy;
+ asection *s;
+ SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
- if (argv == NULL)
- return NULL;
+ if (prog_bfd != NULL)
+ {
+ if (prog_bfd == STATE_PROG_BFD (sd))
+ /* already analyzed */
+ return SIM_RC_OK;
+ else
+ /* duplicate needed, save the name of the file to be re-opened */
+ prog_name = bfd_get_filename (prog_bfd);
+ }
- /* the vector */
- for (argc = 0; argv[argc] != NULL; argc++);
- copy = (char **) malloc ((argc + 1) * sizeof (char *));
- if (copy == NULL)
- return NULL;
+ /* do we need to duplicate anything? */
+ if (prog_name == NULL)
+ return SIM_RC_OK;
- /* the strings */
- for (argc = 0; argv[argc] != NULL; argc++)
+ /* open a new copy of the prog_bfd */
+ prog_bfd = bfd_openr (prog_name, STATE_TARGET (sd));
+ if (prog_bfd == NULL)
{
- int len = strlen (argv[argc]);
- copy[argc] = malloc (sizeof (char *) * (len + 1));
- if (copy[argc] == NULL)
+ sim_io_eprintf (sd, "%s: can't open \"%s\": %s\n",
+ STATE_MY_NAME (sd),
+ prog_name,
+ bfd_errmsg (bfd_get_error ()));
+ return SIM_RC_FAIL;
+ }
+ if (!bfd_check_format (prog_bfd, bfd_object))
+ {
+ sim_io_eprintf (sd, "%s: \"%s\" is not an object file: %s\n",
+ STATE_MY_NAME (sd),
+ prog_name,
+ bfd_errmsg (bfd_get_error ()));
+ bfd_close (prog_bfd);
+ return SIM_RC_FAIL;
+ }
+ if (STATE_ARCHITECTURE (sd) != NULL)
+ bfd_set_arch_info (prog_bfd, STATE_ARCHITECTURE (sd));
+ else
+ {
+ if (bfd_get_arch (prog_bfd) != bfd_arch_unknown
+ && bfd_get_arch (prog_bfd) != bfd_arch_obscure)
{
- freeargv (copy);
- return NULL;
+ STATE_ARCHITECTURE (sd) = bfd_get_arch_info (prog_bfd);
}
- strcpy (copy[argc], argv[argc]);
}
- copy[argc] = NULL;
- return copy;
-}
-
-/* Analyze a bfd and set various fields in the state struct. */
-void
-sim_analyze_program (sd, prog_bfd)
- SIM_DESC sd;
- bfd *prog_bfd;
-{
- asection *s;
-
- SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
+ /* update the sim structure */
+ if (STATE_PROG_BFD (sd) != NULL)
+ bfd_close (STATE_PROG_BFD (sd));
STATE_PROG_BFD (sd) = prog_bfd;
STATE_START_ADDR (sd) = bfd_get_start_address (prog_bfd);
for (s = prog_bfd->sections; s; s = s->next)
- if (strcmp (bfd_get_section_name (prog_bfd, s), ".text") == 0)
+ if (strcmp (bfd_section_name (s), ".text") == 0)
{
STATE_TEXT_SECTION (sd) = s;
- STATE_TEXT_START (sd) = bfd_get_section_vma (prog_bfd, s);
- STATE_TEXT_END (sd) = STATE_TEXT_START (sd) + bfd_section_size (prog_bfd, s);
+ STATE_TEXT_START (sd) = bfd_section_vma (s);
+ STATE_TEXT_END (sd) = STATE_TEXT_START (sd) + bfd_section_size (s);
break;
}
+
+ bfd_cache_close (prog_bfd);
+
+ return SIM_RC_OK;
}
\f
/* Simulator timing support. */
/* Called before sim_elapsed_time_since to get a reference point. */
SIM_ELAPSED_TIME
-sim_elapsed_time_get ()
+sim_elapsed_time_get (void)
{
#ifdef HAVE_GETRUSAGE
struct rusage mytime;
if (getrusage (RUSAGE_SELF, &mytime) == 0)
- return (SIM_ELAPSED_TIME) (((double) mytime.ru_utime.tv_sec * 1000) + (((double) mytime.ru_utime.tv_usec + 500) / 1000));
- return 0;
+ return 1 + (SIM_ELAPSED_TIME) (((double) mytime.ru_utime.tv_sec * 1000) + (((double) mytime.ru_utime.tv_usec + 500) / 1000));
+ return 1;
#else
#ifdef HAVE_TIME
- return (SIM_ELAPSED_TIME) time ((time_t) 0);
+ return 1 + (SIM_ELAPSED_TIME) time ((time_t) 0);
#else
- return 0;
+ return 1;
#endif
#endif
}
/* Return the elapsed time in milliseconds since START.
- The actual time may be cpu usage (prefered) or wall clock. */
+ The actual time may be cpu usage (preferred) or wall clock. */
unsigned long
-sim_elapsed_time_since (start)
- SIM_ELAPSED_TIME start;
+sim_elapsed_time_since (SIM_ELAPSED_TIME start)
{
#ifdef HAVE_GETRUSAGE
return sim_elapsed_time_get () - start;
#endif
#endif
}
+
+
+
+/* do_command but with printf style formatting of the arguments */
+void
+sim_do_commandf (SIM_DESC sd,
+ const char *fmt,
+ ...)
+{
+ va_list ap;
+ char *buf;
+ int ret;
+
+ va_start (ap, fmt);
+ ret = vasprintf (&buf, fmt, ap);
+ va_end (ap);
+
+ if (ret < 0)
+ {
+ sim_io_eprintf (sd, "%s: asprintf failed for `%s'\n",
+ STATE_MY_NAME (sd), fmt);
+ return;
+ }
+
+ sim_do_command (sd, buf);
+ free (buf);
+}
+
+
+/* sim-basics.h defines a number of enumerations, convert each of them
+ to a string representation */
+const char *
+map_to_str (unsigned map)
+{
+ switch (map)
+ {
+ case read_map: return "read";
+ case write_map: return "write";
+ case exec_map: return "exec";
+ case io_map: return "io";
+ default:
+ {
+ static char str[16];
+ snprintf (str, sizeof(str), "(%ld)", (long) map);
+ return str;
+ }
+ }
+}
+
+const char *
+access_to_str (unsigned access)
+{
+ switch (access)
+ {
+ case access_invalid: return "invalid";
+ case access_read: return "read";
+ case access_write: return "write";
+ case access_exec: return "exec";
+ case access_io: return "io";
+ case access_read_write: return "read_write";
+ case access_read_exec: return "read_exec";
+ case access_write_exec: return "write_exec";
+ case access_read_write_exec: return "read_write_exec";
+ case access_read_io: return "read_io";
+ case access_write_io: return "write_io";
+ case access_read_write_io: return "read_write_io";
+ case access_exec_io: return "exec_io";
+ case access_read_exec_io: return "read_exec_io";
+ case access_write_exec_io: return "write_exec_io";
+ case access_read_write_exec_io: return "read_write_exec_io";
+ default:
+ {
+ static char str[16];
+ snprintf (str, sizeof(str), "(%ld)", (long) access);
+ return str;
+ }
+ }
+}
+
+const char *
+transfer_to_str (unsigned transfer)
+{
+ switch (transfer)
+ {
+ case read_transfer: return "read";
+ case write_transfer: return "write";
+ default: return "(error)";
+ }
+}
projects / deliverable / binutils-gdb.git / blobdiff