Subversion Repositories openrisc_2011-10-31

/*  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 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

    */

#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>

#ifdef HAVE_STDLIB_H

#include <stdlib.h>

#endif

#include <setjmp.h>

#ifdef HAVE_STRING_H

#include <string.h>

#else

#ifdef HAVE_STRINGS_H

#include <strings.h>

#endif

#endif

#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)

{

  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 (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)

{

  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:

        psim_usage(0, 0);

        error ("");

        break;

      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);

          }

        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);

        break;

      case 'H':

        psim_usage(2, 1);

        break;

      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);

        else if (strcmp (argv[argp], "--version") == 0)

          {

            extern const char version[];

            printf ("GNU simulator %s%s\n", PKGVERSION, version);

            exit (0);

          }

        else

          error("Unrecognized option");

        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*)(&current_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,

            TARGET_SIGNAL_INT);

}

INLINE_PSIM\

(void)

psim_stop(psim *system)

{

  event_queue_schedule_after_signal(psim_event_queue(system),

                                    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;

}