mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-03 04:12:10 +08:00
68ed285428
Since we require C11 now, we can assume many headers exist, and clean up all of the conditional includes. It's not like any of this code actually accounted for the headers not existing, just whether we could include them. The strings.h cleanup is a little nuanced: it isn't in C11, but every use of it in the codebase will include strings.h only if string.h doesn't exist. Since we now assume the C11 string.h exists, we'll never include strings.h, so we can delete it.
1219 lines
32 KiB
C
1219 lines
32 KiB
C
/* This file is part of the program psim.
|
|
|
|
Copyright 1994, 1995, 1996, 1997, 2003 Andrew Cagney
|
|
|
|
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 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, see <http://www.gnu.org/licenses/>.
|
|
|
|
*/
|
|
|
|
|
|
#ifndef _PSIM_C_
|
|
#define _PSIM_C_
|
|
|
|
#include "cpu.h" /* includes psim.h */
|
|
#include "idecode.h"
|
|
#include "options.h"
|
|
|
|
#include "tree.h"
|
|
|
|
#include <signal.h>
|
|
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <stdlib.h>
|
|
#include <setjmp.h>
|
|
#include <string.h>
|
|
|
|
#include "bfd.h"
|
|
#include "libiberty.h"
|
|
#include "gdb/signals.h"
|
|
|
|
/* system structure, actual size of processor array determined at
|
|
runtime */
|
|
|
|
struct _psim {
|
|
event_queue *events;
|
|
device *devices;
|
|
mon *monitor;
|
|
os_emul *os_emulation;
|
|
core *memory;
|
|
|
|
/* escape routine for inner functions */
|
|
void *path_to_halt;
|
|
void *path_to_restart;
|
|
|
|
/* status from last halt */
|
|
psim_status halt_status;
|
|
|
|
/* the processors proper */
|
|
int nr_cpus;
|
|
int last_cpu; /* CPU that last (tried to) execute an instruction */
|
|
cpu *processors[MAX_NR_PROCESSORS];
|
|
};
|
|
|
|
|
|
int current_target_byte_order;
|
|
int current_host_byte_order;
|
|
int current_environment;
|
|
int current_alignment;
|
|
int current_floating_point;
|
|
int current_model_issue = MODEL_ISSUE_IGNORE;
|
|
int current_stdio = DO_USE_STDIO;
|
|
model_enum current_model = WITH_DEFAULT_MODEL;
|
|
|
|
|
|
/* create the device tree */
|
|
|
|
INLINE_PSIM\
|
|
(device *)
|
|
psim_tree(void)
|
|
{
|
|
device *root = tree_parse(NULL, "core");
|
|
tree_parse(root, "/aliases");
|
|
tree_parse(root, "/options");
|
|
tree_parse(root, "/chosen");
|
|
tree_parse(root, "/packages");
|
|
tree_parse(root, "/cpus");
|
|
tree_parse(root, "/openprom");
|
|
tree_parse(root, "/openprom/init");
|
|
tree_parse(root, "/openprom/trace");
|
|
tree_parse(root, "/openprom/options");
|
|
return root;
|
|
}
|
|
|
|
STATIC_INLINE_PSIM\
|
|
(char *)
|
|
find_arg(char *err_msg,
|
|
int *ptr_to_argp,
|
|
char **argv)
|
|
{
|
|
*ptr_to_argp += 1;
|
|
if (argv[*ptr_to_argp] == NULL)
|
|
error(err_msg);
|
|
return argv[*ptr_to_argp];
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_usage (int verbose, int help, SIM_OPEN_KIND kind)
|
|
{
|
|
printf_filtered("Usage:\n");
|
|
printf_filtered("\n");
|
|
printf_filtered("\tpsim [ <psim-option> ... ] <image> [ <image-arg> ... ]\n");
|
|
printf_filtered("\n");
|
|
printf_filtered("Where\n");
|
|
printf_filtered("\n");
|
|
printf_filtered("\t<image> Name of the PowerPC program to run.\n");
|
|
if (verbose) {
|
|
printf_filtered("\t This can either be a PowerPC binary or\n");
|
|
printf_filtered("\t a text file containing a device tree\n");
|
|
printf_filtered("\t specification.\n");
|
|
printf_filtered("\t PSIM will attempt to determine from the\n");
|
|
printf_filtered("\t specified <image> the intended emulation\n");
|
|
printf_filtered("\t environment.\n");
|
|
printf_filtered("\t If PSIM gets it wrong, the emulation\n");
|
|
printf_filtered("\t environment can be specified using the\n");
|
|
printf_filtered("\t `-e' option (described below).\n");
|
|
printf_filtered("\n"); }
|
|
printf_filtered("\t<image-arg> Argument to be passed to <image>\n");
|
|
if (verbose) {
|
|
printf_filtered("\t These arguments will be passed to\n");
|
|
printf_filtered("\t <image> (as standard C argv, argc)\n");
|
|
printf_filtered("\t when <image> is started.\n");
|
|
printf_filtered("\n"); }
|
|
printf_filtered("\t<psim-option> See below\n");
|
|
printf_filtered("\n");
|
|
printf_filtered("The following are valid <psim-option>s:\n");
|
|
printf_filtered("\n");
|
|
|
|
printf_filtered("\t-c <count> Limit the simulation to <count> iterations\n");
|
|
if (verbose) {
|
|
printf_filtered("\n");
|
|
}
|
|
|
|
printf_filtered("\t-i or -i2 Print instruction counting statistics\n");
|
|
if (verbose) {
|
|
printf_filtered("\t Specify -i2 for a more detailed display\n");
|
|
printf_filtered("\n");
|
|
}
|
|
|
|
printf_filtered("\t-I Print execution unit statistics\n");
|
|
if (verbose) { printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-e <os-emul> specify an OS or platform to model\n");
|
|
if (verbose) {
|
|
printf_filtered("\t Can be any of the following:\n");
|
|
printf_filtered("\t bug - OEA + MOTO BUG ROM calls\n");
|
|
printf_filtered("\t netbsd - UEA + NetBSD system calls\n");
|
|
printf_filtered("\t solaris - UEA + Solaris system calls\n");
|
|
printf_filtered("\t linux - UEA + Linux system calls\n");
|
|
printf_filtered("\t chirp - OEA + a few OpenBoot calls\n");
|
|
printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-E <endian> Specify the endianness of the target\n");
|
|
if (verbose) {
|
|
printf_filtered("\t Can be any of the following:\n");
|
|
printf_filtered("\t big - big endian target\n");
|
|
printf_filtered("\t little - little endian target\n");
|
|
printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-f <file> Merge <file> into the device tree\n");
|
|
if (verbose) { printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-h -? -H give more detailed usage\n");
|
|
if (verbose) { printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-m <model> Specify the processor to model (604)\n");
|
|
if (verbose) {
|
|
printf_filtered("\t Selects the processor to use when\n");
|
|
printf_filtered("\t modeling execution units. Includes:\n");
|
|
printf_filtered("\t 604, 603 and 603e\n");
|
|
printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-n <nr-smp> Specify the number of processors in SMP simulations\n");
|
|
if (verbose) {
|
|
printf_filtered("\t Specifies the number of processors that are\n");
|
|
printf_filtered("\t to be modeled in a symetric multi-processor (SMP)\n");
|
|
printf_filtered("\t simulation\n");
|
|
printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-o <dev-spec> Add device <dev-spec> to the device tree\n");
|
|
if (verbose) { printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-r <ram-size> Set RAM size in bytes (OEA environments)\n");
|
|
if (verbose) { printf_filtered("\n"); }
|
|
|
|
printf_filtered("\t-t [!]<trace> Enable (disable) <trace> option\n");
|
|
if (verbose) { printf_filtered("\n"); }
|
|
|
|
printf_filtered("\n");
|
|
trace_usage(verbose);
|
|
device_usage(verbose);
|
|
if (verbose > 1) {
|
|
printf_filtered("\n");
|
|
print_options();
|
|
}
|
|
|
|
if (kind == SIM_OPEN_STANDALONE)
|
|
{
|
|
if (REPORT_BUGS_TO[0])
|
|
printf ("Report bugs to %s\n", REPORT_BUGS_TO);
|
|
exit (help ? 0 : 1);
|
|
}
|
|
}
|
|
|
|
/* Test "string" for containing a string of digits that form a number
|
|
between "min" and "max". The return value is the number or "err". */
|
|
static
|
|
int is_num( char *string, int min, int max, int err)
|
|
{
|
|
int result = 0;
|
|
|
|
for ( ; *string; ++string)
|
|
{
|
|
if (!isdigit(*string))
|
|
{
|
|
result = err;
|
|
break;
|
|
}
|
|
result = result * 10 + (*string - '0');
|
|
}
|
|
if (result < min || result > max)
|
|
result = err;
|
|
|
|
return result;
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(char **)
|
|
psim_options(device *root,
|
|
char **argv,
|
|
SIM_OPEN_KIND kind)
|
|
{
|
|
device *current = root;
|
|
int argp;
|
|
if (argv == NULL)
|
|
return NULL;
|
|
argp = 0;
|
|
while (argv[argp] != NULL && argv[argp][0] == '-') {
|
|
char *p = argv[argp] + 1;
|
|
char *param;
|
|
while (*p != '\0') {
|
|
switch (*p) {
|
|
default:
|
|
printf_filtered ("Invalid Option: %s\n", argv[argp]);
|
|
psim_usage (0, 0, kind);
|
|
return NULL;
|
|
case 'c':
|
|
param = find_arg("Missing <count> option for -c (max-iterations)\n", &argp, argv);
|
|
tree_parse(root, "/openprom/options/max-iterations %s", param);
|
|
break;
|
|
case 'e':
|
|
param = find_arg("Missing <emul> option for -e (os-emul)\n", &argp, argv);
|
|
tree_parse(root, "/openprom/options/os-emul %s", param);
|
|
break;
|
|
case 'E':
|
|
/* endian spec, ignored for now */
|
|
param = find_arg("Missing <endian> option for -E (target-endian)\n", &argp, argv);
|
|
if (strcmp (param, "big") == 0)
|
|
tree_parse (root, "/options/little-endian? false");
|
|
else if (strcmp (param, "little") == 0)
|
|
tree_parse (root, "/options/little-endian? true");
|
|
else
|
|
{
|
|
printf_filtered ("Invalid <endian> option for -E (target-endian)\n");
|
|
psim_usage (0, 0, kind);
|
|
return NULL;
|
|
}
|
|
break;
|
|
case 'f':
|
|
param = find_arg("Missing <file> option for -f\n", &argp, argv);
|
|
psim_merge_device_file(root, param);
|
|
break;
|
|
case 'h':
|
|
case '?':
|
|
psim_usage (1, 1, kind);
|
|
return NULL;
|
|
case 'H':
|
|
psim_usage (2, 1, kind);
|
|
return NULL;
|
|
case 'i':
|
|
if (isdigit(p[1])) {
|
|
tree_parse(root, "/openprom/trace/print-info %c", p[1]);
|
|
p++;
|
|
}
|
|
else {
|
|
tree_parse(root, "/openprom/trace/print-info 1");
|
|
}
|
|
break;
|
|
case 'I':
|
|
tree_parse(root, "/openprom/trace/print-info 2");
|
|
tree_parse(root, "/openprom/options/model-issue %d",
|
|
MODEL_ISSUE_PROCESS);
|
|
break;
|
|
case 'm':
|
|
param = find_arg("Missing <model> option for -m (model)\n", &argp, argv);
|
|
tree_parse(root, "/openprom/options/model \"%s", param);
|
|
break;
|
|
case 'n':
|
|
param = find_arg("Missing <nr-smp> option for -n (smp)\n", &argp, argv);
|
|
tree_parse(root, "/openprom/options/smp %s", param);
|
|
break;
|
|
case 'o':
|
|
param = find_arg("Missing <dev-spec> option for -o\n", &argp, argv);
|
|
if (memcmp(param, "mpc860c0", 8) == 0)
|
|
{
|
|
if (param[8] == '\0')
|
|
tree_parse(root, "/options/mpc860c0 5");
|
|
else if (param[8] == '=' && is_num(param+9, 1, 10, 0))
|
|
{
|
|
tree_parse(root, "/options/mpc860c0 %s", param+9);
|
|
}
|
|
else error("Invalid mpc860c0 option for -o\n");
|
|
}
|
|
else
|
|
current = tree_parse(current, "%s", param);
|
|
break;
|
|
case 'r':
|
|
param = find_arg("Missing <ram-size> option for -r (oea-memory-size)\n", &argp, argv);
|
|
tree_parse(root, "/openprom/options/oea-memory-size %s",
|
|
param);
|
|
break;
|
|
case 't':
|
|
param = find_arg("Missing <trace> option for -t (trace/*)\n", &argp, argv);
|
|
if (param[0] == '!')
|
|
tree_parse(root, "/openprom/trace/%s 0", param+1);
|
|
else
|
|
tree_parse(root, "/openprom/trace/%s 1", param);
|
|
break;
|
|
case '-':
|
|
/* it's a long option of the form --optionname=optionvalue.
|
|
Such options can be passed through if we are invoked by
|
|
gdb. */
|
|
if (strstr(argv[argp], "architecture") != NULL) {
|
|
/* we must consume the argument here, so that we get out
|
|
of the loop. */
|
|
p = argv[argp] + strlen(argv[argp]) - 1;
|
|
printf_filtered("Warning - architecture parameter ignored\n");
|
|
}
|
|
else if (strcmp (argv[argp], "--help") == 0)
|
|
{
|
|
psim_usage (0, 1, kind);
|
|
return NULL;
|
|
}
|
|
else if (strncmp (argv[argp], "--sysroot=",
|
|
sizeof ("--sysroot=") - 1) == 0)
|
|
/* Ignore this option. */
|
|
p = argv[argp] + strlen(argv[argp]) - 1;
|
|
else if (strcmp (argv[argp], "--version") == 0)
|
|
{
|
|
extern const char version[];
|
|
printf ("GNU simulator %s%s\n", PKGVERSION, version);
|
|
if (kind == SIM_OPEN_STANDALONE)
|
|
exit (0);
|
|
else
|
|
return NULL;
|
|
}
|
|
else
|
|
{
|
|
printf_filtered ("Invalid option: %s\n", argv[argp]);
|
|
psim_usage (0, 0, kind);
|
|
return NULL;
|
|
}
|
|
break;
|
|
}
|
|
p += 1;
|
|
}
|
|
argp += 1;
|
|
}
|
|
/* force the trace node to process its options now *before* the tree
|
|
initialization occures */
|
|
device_ioctl(tree_find_device(root, "/openprom/trace"),
|
|
NULL, 0,
|
|
device_ioctl_set_trace);
|
|
|
|
{
|
|
void semantic_init(device* root);
|
|
semantic_init(root);
|
|
}
|
|
|
|
/* return where the options end */
|
|
return argv + argp;
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_command(device *root,
|
|
char **argv)
|
|
{
|
|
int argp = 0;
|
|
if (argv[argp] == NULL) {
|
|
return;
|
|
}
|
|
else if (strcmp(argv[argp], "trace") == 0) {
|
|
const char *opt = find_arg("Missing <trace> option", &argp, argv);
|
|
if (opt[0] == '!')
|
|
trace_option(opt + 1, 0);
|
|
else
|
|
trace_option(opt, 1);
|
|
}
|
|
else if (strcmp(*argv, "change-media") == 0) {
|
|
char *device = find_arg("Missing device name", &argp, argv);
|
|
char *media = argv[++argp];
|
|
device_ioctl(tree_find_device(root, device), NULL, 0,
|
|
device_ioctl_change_media, media);
|
|
}
|
|
else {
|
|
printf_filtered("Unknown PSIM command %s, try\n", argv[argp]);
|
|
printf_filtered(" trace <trace-option>\n");
|
|
printf_filtered(" change-media <device> [ <new-image> ]\n");
|
|
}
|
|
}
|
|
|
|
|
|
/* create the simulator proper from the device tree and executable */
|
|
|
|
INLINE_PSIM\
|
|
(psim *)
|
|
psim_create(const char *file_name,
|
|
device *root)
|
|
{
|
|
int cpu_nr;
|
|
const char *env;
|
|
psim *system;
|
|
os_emul *os_emulation;
|
|
int nr_cpus;
|
|
|
|
/* given this partially populated device tree, os_emul_create() uses
|
|
it and file_name to determine the selected emulation and hence
|
|
further populate the tree with any other required nodes. */
|
|
|
|
os_emulation = os_emul_create(file_name, root);
|
|
if (os_emulation == NULL)
|
|
error("psim: either file %s was not reconized or unreconized or unknown os-emulation type\n", file_name);
|
|
|
|
/* fill in the missing real number of CPU's */
|
|
nr_cpus = tree_find_integer_property(root, "/openprom/options/smp");
|
|
if (MAX_NR_PROCESSORS < nr_cpus)
|
|
error("target and configured number of cpus conflict\n");
|
|
|
|
/* fill in the missing TARGET BYTE ORDER information */
|
|
current_target_byte_order
|
|
= (tree_find_boolean_property(root, "/options/little-endian?")
|
|
? LITTLE_ENDIAN
|
|
: BIG_ENDIAN);
|
|
if (CURRENT_TARGET_BYTE_ORDER != current_target_byte_order)
|
|
error("target and configured byte order conflict\n");
|
|
|
|
/* fill in the missing HOST BYTE ORDER information */
|
|
current_host_byte_order = (current_host_byte_order = 1,
|
|
(*(char*)(¤t_host_byte_order)
|
|
? LITTLE_ENDIAN
|
|
: BIG_ENDIAN));
|
|
if (CURRENT_HOST_BYTE_ORDER != current_host_byte_order)
|
|
error("host and configured byte order conflict\n");
|
|
|
|
/* fill in the missing OEA/VEA information */
|
|
env = tree_find_string_property(root, "/openprom/options/env");
|
|
current_environment = ((strcmp(env, "user") == 0
|
|
|| strcmp(env, "uea") == 0)
|
|
? USER_ENVIRONMENT
|
|
: (strcmp(env, "virtual") == 0
|
|
|| strcmp(env, "vea") == 0)
|
|
? VIRTUAL_ENVIRONMENT
|
|
: (strcmp(env, "operating") == 0
|
|
|| strcmp(env, "oea") == 0)
|
|
? OPERATING_ENVIRONMENT
|
|
: 0);
|
|
if (current_environment == 0)
|
|
error("unreconized /options env property\n");
|
|
if (CURRENT_ENVIRONMENT != current_environment)
|
|
error("target and configured environment conflict\n");
|
|
|
|
/* fill in the missing ALLIGNMENT information */
|
|
current_alignment
|
|
= (tree_find_boolean_property(root, "/openprom/options/strict-alignment?")
|
|
? STRICT_ALIGNMENT
|
|
: NONSTRICT_ALIGNMENT);
|
|
if (CURRENT_ALIGNMENT != current_alignment)
|
|
error("target and configured alignment conflict\n");
|
|
|
|
/* fill in the missing FLOATING POINT information */
|
|
current_floating_point
|
|
= (tree_find_boolean_property(root, "/openprom/options/floating-point?")
|
|
? HARD_FLOATING_POINT
|
|
: SOFT_FLOATING_POINT);
|
|
if (CURRENT_FLOATING_POINT != current_floating_point)
|
|
error("target and configured floating-point conflict\n");
|
|
|
|
/* fill in the missing STDIO information */
|
|
current_stdio
|
|
= (tree_find_boolean_property(root, "/openprom/options/use-stdio?")
|
|
? DO_USE_STDIO
|
|
: DONT_USE_STDIO);
|
|
if (CURRENT_STDIO != current_stdio)
|
|
error("target and configured stdio interface conflict\n");
|
|
|
|
/* sort out the level of detail for issue modeling */
|
|
current_model_issue
|
|
= tree_find_integer_property(root, "/openprom/options/model-issue");
|
|
if (CURRENT_MODEL_ISSUE != current_model_issue)
|
|
error("target and configured model-issue conflict\n");
|
|
|
|
/* sort out our model architecture - wrong.
|
|
|
|
FIXME: this should be obtaining the required information from the
|
|
device tree via the "/chosen" property "cpu" which is an instance
|
|
(ihandle) for the only executing processor. By converting that
|
|
ihandle into the corresponding cpu's phandle and then querying
|
|
the "name" property, the cpu type can be determined. Ok? */
|
|
|
|
model_set(tree_find_string_property(root, "/openprom/options/model"));
|
|
|
|
/* create things */
|
|
system = ZALLOC(psim);
|
|
system->events = event_queue_create();
|
|
system->memory = core_from_device(root);
|
|
system->monitor = mon_create();
|
|
system->nr_cpus = nr_cpus;
|
|
system->os_emulation = os_emulation;
|
|
system->devices = root;
|
|
|
|
/* now all the processors attaching to each their per-cpu information */
|
|
for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++) {
|
|
system->processors[cpu_nr] = cpu_create(system,
|
|
system->memory,
|
|
mon_cpu(system->monitor,
|
|
cpu_nr),
|
|
system->os_emulation,
|
|
cpu_nr);
|
|
}
|
|
|
|
/* dump out the contents of the device tree */
|
|
if (ppc_trace[trace_print_device_tree] || ppc_trace[trace_dump_device_tree])
|
|
tree_print(root);
|
|
if (ppc_trace[trace_dump_device_tree])
|
|
error("");
|
|
|
|
return system;
|
|
}
|
|
|
|
|
|
/* allow the simulation to stop/restart abnormaly */
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_set_halt_and_restart(psim *system,
|
|
void *halt_jmp_buf,
|
|
void *restart_jmp_buf)
|
|
{
|
|
system->path_to_halt = halt_jmp_buf;
|
|
system->path_to_restart = restart_jmp_buf;
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_clear_halt_and_restart(psim *system)
|
|
{
|
|
system->path_to_halt = NULL;
|
|
system->path_to_restart = NULL;
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_restart(psim *system,
|
|
int current_cpu)
|
|
{
|
|
ASSERT(current_cpu >= 0 && current_cpu < system->nr_cpus);
|
|
ASSERT(system->path_to_restart != NULL);
|
|
system->last_cpu = current_cpu;
|
|
longjmp(*(jmp_buf*)(system->path_to_restart), current_cpu + 1);
|
|
}
|
|
|
|
|
|
static void
|
|
cntrl_c_simulation(void *data)
|
|
{
|
|
psim *system = data;
|
|
psim_halt(system,
|
|
psim_nr_cpus(system),
|
|
was_continuing,
|
|
GDB_SIGNAL_INT);
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_stop(psim *system)
|
|
{
|
|
event_queue_schedule_after_signal(psim_event_queue(system),
|
|
0 /*NOW*/,
|
|
cntrl_c_simulation,
|
|
system);
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_halt(psim *system,
|
|
int current_cpu,
|
|
stop_reason reason,
|
|
int signal)
|
|
{
|
|
ASSERT(current_cpu >= 0 && current_cpu <= system->nr_cpus);
|
|
ASSERT(system->path_to_halt != NULL);
|
|
system->last_cpu = current_cpu;
|
|
system->halt_status.reason = reason;
|
|
system->halt_status.signal = signal;
|
|
if (current_cpu == system->nr_cpus) {
|
|
system->halt_status.cpu_nr = 0;
|
|
system->halt_status.program_counter =
|
|
cpu_get_program_counter(system->processors[0]);
|
|
}
|
|
else {
|
|
system->halt_status.cpu_nr = current_cpu;
|
|
system->halt_status.program_counter =
|
|
cpu_get_program_counter(system->processors[current_cpu]);
|
|
}
|
|
longjmp(*(jmp_buf*)(system->path_to_halt), current_cpu + 1);
|
|
}
|
|
|
|
|
|
INLINE_PSIM\
|
|
(int)
|
|
psim_last_cpu(psim *system)
|
|
{
|
|
return system->last_cpu;
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(int)
|
|
psim_nr_cpus(psim *system)
|
|
{
|
|
return system->nr_cpus;
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(psim_status)
|
|
psim_get_status(psim *system)
|
|
{
|
|
return system->halt_status;
|
|
}
|
|
|
|
|
|
INLINE_PSIM\
|
|
(cpu *)
|
|
psim_cpu(psim *system,
|
|
int cpu_nr)
|
|
{
|
|
if (cpu_nr < 0 || cpu_nr >= system->nr_cpus)
|
|
return NULL;
|
|
else
|
|
return system->processors[cpu_nr];
|
|
}
|
|
|
|
|
|
INLINE_PSIM\
|
|
(device *)
|
|
psim_device(psim *system,
|
|
const char *path)
|
|
{
|
|
return tree_find_device(system->devices, path);
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(event_queue *)
|
|
psim_event_queue(psim *system)
|
|
{
|
|
return system->events;
|
|
}
|
|
|
|
|
|
|
|
STATIC_INLINE_PSIM\
|
|
(void)
|
|
psim_max_iterations_exceeded(void *data)
|
|
{
|
|
psim *system = data;
|
|
psim_halt(system,
|
|
system->nr_cpus, /* halted during an event */
|
|
was_signalled,
|
|
-1);
|
|
}
|
|
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_init(psim *system)
|
|
{
|
|
int cpu_nr;
|
|
|
|
/* scrub the monitor */
|
|
mon_init(system->monitor, system->nr_cpus);
|
|
|
|
/* trash any pending events */
|
|
event_queue_init(system->events);
|
|
|
|
/* if needed, schedule a halt event. FIXME - In the future this
|
|
will be replaced by a more generic change to psim_command(). A
|
|
new command `schedule NNN halt' being added. */
|
|
if (tree_find_property(system->devices, "/openprom/options/max-iterations")) {
|
|
event_queue_schedule(system->events,
|
|
tree_find_integer_property(system->devices,
|
|
"/openprom/options/max-iterations") - 2,
|
|
psim_max_iterations_exceeded,
|
|
system);
|
|
}
|
|
|
|
/* scrub all the cpus */
|
|
for (cpu_nr = 0; cpu_nr < system->nr_cpus; cpu_nr++)
|
|
cpu_init(system->processors[cpu_nr]);
|
|
|
|
/* init all the devices (which updates the cpus) */
|
|
tree_init(system->devices, system);
|
|
|
|
/* and the emulation (which needs an initialized device tree) */
|
|
os_emul_init(system->os_emulation, system->nr_cpus);
|
|
|
|
/* now sync each cpu against the initialized state of its registers */
|
|
for (cpu_nr = 0; cpu_nr < system->nr_cpus; cpu_nr++) {
|
|
cpu *processor = system->processors[cpu_nr];
|
|
cpu_synchronize_context(processor, cpu_get_program_counter(processor));
|
|
cpu_page_tlb_invalidate_all(processor);
|
|
}
|
|
|
|
/* force loop to start with first cpu */
|
|
system->last_cpu = -1;
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_stack(psim *system,
|
|
char **argv,
|
|
char **envp)
|
|
{
|
|
/* pass the stack device the argv/envp and let it work out what to
|
|
do with it */
|
|
device *stack_device = tree_find_device(system->devices,
|
|
"/openprom/init/stack");
|
|
if (stack_device != (device*)0) {
|
|
unsigned_word stack_pointer;
|
|
ASSERT (psim_read_register(system, 0, &stack_pointer, "sp",
|
|
cooked_transfer) > 0);
|
|
device_ioctl(stack_device,
|
|
NULL, /*cpu*/
|
|
0, /*cia*/
|
|
device_ioctl_create_stack,
|
|
stack_pointer,
|
|
argv,
|
|
envp);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
/* SIMULATE INSTRUCTIONS, various different ways of achieving the same
|
|
thing */
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_step(psim *system)
|
|
{
|
|
volatile int keep_running = 0;
|
|
idecode_run_until_stop(system, &keep_running,
|
|
system->events, system->processors, system->nr_cpus);
|
|
}
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_run(psim *system)
|
|
{
|
|
idecode_run(system,
|
|
system->events, system->processors, system->nr_cpus);
|
|
}
|
|
|
|
|
|
/* storage manipulation functions */
|
|
|
|
INLINE_PSIM\
|
|
(int)
|
|
psim_read_register(psim *system,
|
|
int which_cpu,
|
|
void *buf,
|
|
const char reg[],
|
|
transfer_mode mode)
|
|
{
|
|
register_descriptions description;
|
|
char *cooked_buf;
|
|
cpu *processor;
|
|
|
|
/* find our processor */
|
|
if (which_cpu == MAX_NR_PROCESSORS) {
|
|
if (system->last_cpu == system->nr_cpus
|
|
|| system->last_cpu == -1)
|
|
which_cpu = 0;
|
|
else
|
|
which_cpu = system->last_cpu;
|
|
}
|
|
ASSERT(which_cpu >= 0 && which_cpu < system->nr_cpus);
|
|
|
|
processor = system->processors[which_cpu];
|
|
|
|
/* find the register description */
|
|
description = register_description(reg);
|
|
if (description.type == reg_invalid)
|
|
return 0;
|
|
cooked_buf = alloca (description.size);
|
|
|
|
/* get the cooked value */
|
|
switch (description.type) {
|
|
|
|
case reg_gpr:
|
|
*(gpreg*)cooked_buf = cpu_registers(processor)->gpr[description.index];
|
|
break;
|
|
|
|
case reg_spr:
|
|
*(spreg*)cooked_buf = cpu_registers(processor)->spr[description.index];
|
|
break;
|
|
|
|
case reg_sr:
|
|
*(sreg*)cooked_buf = cpu_registers(processor)->sr[description.index];
|
|
break;
|
|
|
|
case reg_fpr:
|
|
*(fpreg*)cooked_buf = cpu_registers(processor)->fpr[description.index];
|
|
break;
|
|
|
|
case reg_pc:
|
|
*(unsigned_word*)cooked_buf = cpu_get_program_counter(processor);
|
|
break;
|
|
|
|
case reg_cr:
|
|
*(creg*)cooked_buf = cpu_registers(processor)->cr;
|
|
break;
|
|
|
|
case reg_msr:
|
|
*(msreg*)cooked_buf = cpu_registers(processor)->msr;
|
|
break;
|
|
|
|
case reg_fpscr:
|
|
*(fpscreg*)cooked_buf = cpu_registers(processor)->fpscr;
|
|
break;
|
|
|
|
case reg_insns:
|
|
*(unsigned_word*)cooked_buf = mon_get_number_of_insns(system->monitor,
|
|
which_cpu);
|
|
break;
|
|
|
|
case reg_stalls:
|
|
if (cpu_model(processor) == NULL)
|
|
error("$stalls only valid if processor unit model enabled (-I)\n");
|
|
*(unsigned_word*)cooked_buf = model_get_number_of_stalls(cpu_model(processor));
|
|
break;
|
|
|
|
case reg_cycles:
|
|
if (cpu_model(processor) == NULL)
|
|
error("$cycles only valid if processor unit model enabled (-I)\n");
|
|
*(unsigned_word*)cooked_buf = model_get_number_of_cycles(cpu_model(processor));
|
|
break;
|
|
|
|
#ifdef WITH_ALTIVEC
|
|
case reg_vr:
|
|
*(vreg*)cooked_buf = cpu_registers(processor)->altivec.vr[description.index];
|
|
break;
|
|
|
|
case reg_vscr:
|
|
*(vscreg*)cooked_buf = cpu_registers(processor)->altivec.vscr;
|
|
break;
|
|
#endif
|
|
|
|
#ifdef WITH_E500
|
|
case reg_gprh:
|
|
*(gpreg*)cooked_buf = cpu_registers(processor)->e500.gprh[description.index];
|
|
break;
|
|
|
|
case reg_evr:
|
|
*(unsigned64*)cooked_buf = EVR(description.index);
|
|
break;
|
|
|
|
case reg_acc:
|
|
*(accreg*)cooked_buf = cpu_registers(processor)->e500.acc;
|
|
break;
|
|
#endif
|
|
|
|
default:
|
|
printf_filtered("psim_read_register(processor=0x%lx,buf=0x%lx,reg=%s) %s\n",
|
|
(unsigned long)processor, (unsigned long)buf, reg,
|
|
"read of this register unimplemented");
|
|
break;
|
|
|
|
}
|
|
|
|
/* the PSIM internal values are in host order. To fetch raw data,
|
|
they need to be converted into target order and then returned */
|
|
if (mode == raw_transfer) {
|
|
/* FIXME - assumes that all registers are simple integers */
|
|
switch (description.size) {
|
|
case 1:
|
|
*(unsigned_1*)buf = H2T_1(*(unsigned_1*)cooked_buf);
|
|
break;
|
|
case 2:
|
|
*(unsigned_2*)buf = H2T_2(*(unsigned_2*)cooked_buf);
|
|
break;
|
|
case 4:
|
|
*(unsigned_4*)buf = H2T_4(*(unsigned_4*)cooked_buf);
|
|
break;
|
|
case 8:
|
|
*(unsigned_8*)buf = H2T_8(*(unsigned_8*)cooked_buf);
|
|
break;
|
|
#ifdef WITH_ALTIVEC
|
|
case 16:
|
|
if (CURRENT_HOST_BYTE_ORDER != CURRENT_TARGET_BYTE_ORDER)
|
|
{
|
|
union { vreg v; unsigned_8 d[2]; } h, t;
|
|
memcpy(&h.v/*dest*/, cooked_buf/*src*/, description.size);
|
|
{ _SWAP_8(t.d[0] =, h.d[1]); }
|
|
{ _SWAP_8(t.d[1] =, h.d[0]); }
|
|
memcpy(buf/*dest*/, &t/*src*/, description.size);
|
|
break;
|
|
}
|
|
else
|
|
memcpy(buf/*dest*/, cooked_buf/*src*/, description.size);
|
|
break;
|
|
#endif
|
|
}
|
|
}
|
|
else {
|
|
memcpy(buf/*dest*/, cooked_buf/*src*/, description.size);
|
|
}
|
|
|
|
return description.size;
|
|
}
|
|
|
|
|
|
|
|
INLINE_PSIM\
|
|
(int)
|
|
psim_write_register(psim *system,
|
|
int which_cpu,
|
|
const void *buf,
|
|
const char reg[],
|
|
transfer_mode mode)
|
|
{
|
|
cpu *processor;
|
|
register_descriptions description;
|
|
char *cooked_buf;
|
|
|
|
/* find our processor */
|
|
if (which_cpu == MAX_NR_PROCESSORS) {
|
|
if (system->last_cpu == system->nr_cpus
|
|
|| system->last_cpu == -1)
|
|
which_cpu = 0;
|
|
else
|
|
which_cpu = system->last_cpu;
|
|
}
|
|
|
|
/* find the description of the register */
|
|
description = register_description(reg);
|
|
if (description.type == reg_invalid)
|
|
return 0;
|
|
cooked_buf = alloca (description.size);
|
|
|
|
if (which_cpu == -1) {
|
|
int i;
|
|
for (i = 0; i < system->nr_cpus; i++)
|
|
psim_write_register(system, i, buf, reg, mode);
|
|
return description.size;
|
|
}
|
|
ASSERT(which_cpu >= 0 && which_cpu < system->nr_cpus);
|
|
|
|
processor = system->processors[which_cpu];
|
|
|
|
/* If the data is comming in raw (target order), need to cook it
|
|
into host order before putting it into PSIM's internal structures */
|
|
if (mode == raw_transfer) {
|
|
switch (description.size) {
|
|
case 1:
|
|
*(unsigned_1*)cooked_buf = T2H_1(*(unsigned_1*)buf);
|
|
break;
|
|
case 2:
|
|
*(unsigned_2*)cooked_buf = T2H_2(*(unsigned_2*)buf);
|
|
break;
|
|
case 4:
|
|
*(unsigned_4*)cooked_buf = T2H_4(*(unsigned_4*)buf);
|
|
break;
|
|
case 8:
|
|
*(unsigned_8*)cooked_buf = T2H_8(*(unsigned_8*)buf);
|
|
break;
|
|
#ifdef WITH_ALTIVEC
|
|
case 16:
|
|
if (CURRENT_HOST_BYTE_ORDER != CURRENT_TARGET_BYTE_ORDER)
|
|
{
|
|
union { vreg v; unsigned_8 d[2]; } h, t;
|
|
memcpy(&t.v/*dest*/, buf/*src*/, description.size);
|
|
{ _SWAP_8(h.d[0] =, t.d[1]); }
|
|
{ _SWAP_8(h.d[1] =, t.d[0]); }
|
|
memcpy(cooked_buf/*dest*/, &h/*src*/, description.size);
|
|
break;
|
|
}
|
|
else
|
|
memcpy(cooked_buf/*dest*/, buf/*src*/, description.size);
|
|
#endif
|
|
}
|
|
}
|
|
else {
|
|
memcpy(cooked_buf/*dest*/, buf/*src*/, description.size);
|
|
}
|
|
|
|
/* put the cooked value into the register */
|
|
switch (description.type) {
|
|
|
|
case reg_gpr:
|
|
cpu_registers(processor)->gpr[description.index] = *(gpreg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_fpr:
|
|
cpu_registers(processor)->fpr[description.index] = *(fpreg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_pc:
|
|
cpu_set_program_counter(processor, *(unsigned_word*)cooked_buf);
|
|
break;
|
|
|
|
case reg_spr:
|
|
cpu_registers(processor)->spr[description.index] = *(spreg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_sr:
|
|
cpu_registers(processor)->sr[description.index] = *(sreg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_cr:
|
|
cpu_registers(processor)->cr = *(creg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_msr:
|
|
cpu_registers(processor)->msr = *(msreg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_fpscr:
|
|
cpu_registers(processor)->fpscr = *(fpscreg*)cooked_buf;
|
|
break;
|
|
|
|
#ifdef WITH_E500
|
|
case reg_gprh:
|
|
cpu_registers(processor)->e500.gprh[description.index] = *(gpreg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_evr:
|
|
{
|
|
unsigned64 v;
|
|
v = *(unsigned64*)cooked_buf;
|
|
cpu_registers(processor)->e500.gprh[description.index] = v >> 32;
|
|
cpu_registers(processor)->gpr[description.index] = v;
|
|
break;
|
|
}
|
|
|
|
case reg_acc:
|
|
cpu_registers(processor)->e500.acc = *(accreg*)cooked_buf;
|
|
break;
|
|
#endif
|
|
|
|
#ifdef WITH_ALTIVEC
|
|
case reg_vr:
|
|
cpu_registers(processor)->altivec.vr[description.index] = *(vreg*)cooked_buf;
|
|
break;
|
|
|
|
case reg_vscr:
|
|
cpu_registers(processor)->altivec.vscr = *(vscreg*)cooked_buf;
|
|
break;
|
|
#endif
|
|
|
|
default:
|
|
printf_filtered("psim_write_register(processor=0x%lx,cooked_buf=0x%lx,reg=%s) %s\n",
|
|
(unsigned long)processor, (unsigned long)cooked_buf, reg,
|
|
"read of this register unimplemented");
|
|
break;
|
|
|
|
}
|
|
|
|
return description.size;
|
|
}
|
|
|
|
|
|
|
|
INLINE_PSIM\
|
|
(unsigned)
|
|
psim_read_memory(psim *system,
|
|
int which_cpu,
|
|
void *buffer,
|
|
unsigned_word vaddr,
|
|
unsigned nr_bytes)
|
|
{
|
|
cpu *processor;
|
|
if (which_cpu == MAX_NR_PROCESSORS) {
|
|
if (system->last_cpu == system->nr_cpus
|
|
|| system->last_cpu == -1)
|
|
which_cpu = 0;
|
|
else
|
|
which_cpu = system->last_cpu;
|
|
}
|
|
processor = system->processors[which_cpu];
|
|
return vm_data_map_read_buffer(cpu_data_map(processor),
|
|
buffer, vaddr, nr_bytes,
|
|
NULL, -1);
|
|
}
|
|
|
|
|
|
INLINE_PSIM\
|
|
(unsigned)
|
|
psim_write_memory(psim *system,
|
|
int which_cpu,
|
|
const void *buffer,
|
|
unsigned_word vaddr,
|
|
unsigned nr_bytes,
|
|
int violate_read_only_section)
|
|
{
|
|
cpu *processor;
|
|
if (which_cpu == MAX_NR_PROCESSORS) {
|
|
if (system->last_cpu == system->nr_cpus
|
|
|| system->last_cpu == -1)
|
|
which_cpu = 0;
|
|
else
|
|
which_cpu = system->last_cpu;
|
|
}
|
|
ASSERT(which_cpu >= 0 && which_cpu < system->nr_cpus);
|
|
processor = system->processors[which_cpu];
|
|
return vm_data_map_write_buffer(cpu_data_map(processor),
|
|
buffer, vaddr, nr_bytes, 1/*violate-read-only*/,
|
|
NULL, -1);
|
|
}
|
|
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_print_info(psim *system,
|
|
int verbose)
|
|
{
|
|
mon_print_info(system, system->monitor, verbose);
|
|
}
|
|
|
|
|
|
/* Merge a device tree and a device file. */
|
|
|
|
INLINE_PSIM\
|
|
(void)
|
|
psim_merge_device_file(device *root,
|
|
const char *file_name)
|
|
{
|
|
FILE *description;
|
|
int line_nr;
|
|
char device_path[1000];
|
|
device *current;
|
|
|
|
/* try opening the file */
|
|
description = fopen(file_name, "r");
|
|
if (description == NULL) {
|
|
perror(file_name);
|
|
error("Invalid file %s specified", file_name);
|
|
}
|
|
|
|
line_nr = 0;
|
|
current = root;
|
|
while (fgets(device_path, sizeof(device_path), description)) {
|
|
char *device;
|
|
/* check that the full line was read */
|
|
if (strchr(device_path, '\n') == NULL) {
|
|
fclose(description);
|
|
error("%s:%d: line to long - %s",
|
|
file_name, line_nr, device_path);
|
|
}
|
|
else
|
|
*strchr(device_path, '\n') = '\0';
|
|
line_nr++;
|
|
/* skip comments ("#" or ";") and blank lines lines */
|
|
for (device = device_path;
|
|
*device != '\0' && isspace(*device);
|
|
device++);
|
|
if (device[0] == '#'
|
|
|| device[0] == ';'
|
|
|| device[0] == '\0')
|
|
continue;
|
|
/* merge any appended lines */
|
|
while (device_path[strlen(device_path) - 1] == '\\') {
|
|
int curlen = strlen(device_path) - 1;
|
|
/* zap \ */
|
|
device_path[curlen] = '\0';
|
|
/* append the next line */
|
|
if (!fgets(device_path + curlen, sizeof(device_path) - curlen, description)) {
|
|
fclose(description);
|
|
error("%s:%s: unexpected eof in line continuation - %s",
|
|
file_name, line_nr, device_path);
|
|
}
|
|
if (strchr(device_path, '\n') == NULL) {
|
|
fclose(description);
|
|
error("%s:%d: line to long - %s",
|
|
file_name, line_nr, device_path);
|
|
}
|
|
else
|
|
*strchr(device_path, '\n') = '\0';
|
|
line_nr++;
|
|
}
|
|
/* parse this line */
|
|
current = tree_parse(current, "%s", device);
|
|
}
|
|
fclose(description);
|
|
}
|
|
|
|
|
|
#endif /* _PSIM_C_ */
|