sim/m32r/sim-if.c

   1 /* Main simulator entry points specific to the M32R.
   2    Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
   3    Contributed by Cygnus Support.
   4
   5 This program is free software; you can redistribute it and/or modify
   6 it under the terms of the GNU General Public License as published by
   7 the Free Software Foundation; either version 2, or (at your option)
   8 any later version.
   9
  10 This program is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License along
  16 with this program; if not, write to the Free Software Foundation, Inc.,
  17 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  18
  19 #include "sim-main.h"
  20 #include "sim-options.h"
  21 #include "libiberty.h"
  22 #include "bfd.h"
  23
  24 #ifdef HAVE_STRING_H
  25 #include <string.h>
  26 #else
  27 #ifdef HAVE_STRINGS_H
  28 #include <strings.h>
  29 #endif
  30 #endif
  31 #ifdef HAVE_STDLIB_H
  32 #include <stdlib.h>
  33 #endif
  34
  35 static void free_state (SIM_DESC);
  36 static void print_m32r_misc_cpu (SIM_CPU *cpu, int verbose);
  37
  38 /* Records simulator descriptor so utilities like m32r_dump_regs can be
  39    called from gdb.  */
  40 SIM_DESC current_state;
  41 \f
  42 /* Cover function of sim_state_free to free the cpu buffers as well.  */
  43
  44 static void
  45 free_state (SIM_DESC sd)
  46 {
  47   if (STATE_MODULES (sd) != NULL)
  48     sim_module_uninstall (sd);
  49   sim_cpu_free_all (sd);
  50   sim_state_free (sd);
  51 }
  52
  53 /* Create an instance of the simulator.  */
  54
  55 SIM_DESC
  56 sim_open (kind, callback, abfd, argv)
  57      SIM_OPEN_KIND kind;
  58      host_callback *callback;
  59      struct bfd *abfd;
  60      char **argv;
  61 {
  62   SIM_DESC sd = sim_state_alloc (kind, callback);
  63   char c;
  64   int i;
  65
  66   /* The cpu data is kept in a separately allocated chunk of memory.  */
  67   if (sim_cpu_alloc_all (sd, 1, cgen_cpu_max_extra_bytes ()) != SIM_RC_OK)
  68     {
  69       free_state (sd);
  70       return 0;
  71     }
  72
  73 #if 0 /* FIXME: pc is in mach-specific struct */
  74   /* FIXME: watchpoints code shouldn't need this */
  75   {
  76     SIM_CPU *current_cpu = STATE_CPU (sd, 0);
  77     STATE_WATCHPOINTS (sd)->pc = &(PC);
  78     STATE_WATCHPOINTS (sd)->sizeof_pc = sizeof (PC);
  79   }
  80 #endif
  81
  82   if (sim_pre_argv_init (sd, argv[0]) != SIM_RC_OK)
  83     {
  84       free_state (sd);
  85       return 0;
  86     }
  87
  88 #ifdef HAVE_DV_SOCKSER /* FIXME: was done differently before */
  89   if (dv_sockser_install (sd) != SIM_RC_OK)
  90     {
  91       free_state (sd);
  92       return 0;
  93     }
  94 #endif
  95
  96 #if 0 /* FIXME: 'twould be nice if we could do this */
  97   /* These options override any module options.
  98      Obviously ambiguity should be avoided, however the caller may wish to
  99      augment the meaning of an option.  */
 100   if (extra_options != NULL)
 101     sim_add_option_table (sd, extra_options);
 102 #endif
 103
 104   /* getopt will print the error message so we just have to exit if this fails.
 105      FIXME: Hmmm...  in the case of gdb we need getopt to call
 106      print_filtered.  */
 107   if (sim_parse_args (sd, argv) != SIM_RC_OK)
 108     {
 109       free_state (sd);
 110       return 0;
 111     }
 112
 113   /* Allocate a handler for the control registers and other devices
 114      if no memory for that range has been allocated by the user.
 115      All are allocated in one chunk to keep things from being
 116      unnecessarily complicated.  */
 117   if (sim_core_read_buffer (sd, NULL, read_map, &c, M32R_DEVICE_ADDR, 1) == 0)
 118     sim_core_attach (sd, NULL,
 119                      0 /*level*/,
 120                      access_read_write,
 121                      0 /*space ???*/,
 122                      M32R_DEVICE_ADDR, M32R_DEVICE_LEN /*nr_bytes*/,
 123                      0 /*modulo*/,
 124                      &m32r_devices,
 125                      NULL /*buffer*/);
 126
 127   /* Allocate core managed memory if none specified by user.
 128      Use address 4 here in case the user wanted address 0 unmapped.  */
 129   if (sim_core_read_buffer (sd, NULL, read_map, &c, 4, 1) == 0)
 130     sim_do_commandf (sd, "memory region 0,0x%x", M32R_DEFAULT_MEM_SIZE);
 131
 132   /* check for/establish the reference program image */
 133   if (sim_analyze_program (sd,
 134                            (STATE_PROG_ARGV (sd) != NULL
 135                             ? *STATE_PROG_ARGV (sd)
 136                             : NULL),
 137                            abfd) != SIM_RC_OK)
 138     {
 139       free_state (sd);
 140       return 0;
 141     }
 142
 143   /* Establish any remaining configuration options.  */
 144   if (sim_config (sd) != SIM_RC_OK)
 145     {
 146       free_state (sd);
 147       return 0;
 148     }
 149
 150   if (sim_post_argv_init (sd) != SIM_RC_OK)
 151     {
 152       free_state (sd);
 153       return 0;
 154     }
 155
 156   /* Open a copy of the cpu descriptor table.  */
 157   {
 158     CGEN_CPU_DESC cd = m32r_cgen_cpu_open_1 (STATE_ARCHITECTURE (sd)->printable_name,
 159                                              CGEN_ENDIAN_BIG);
 160     for (i = 0; i < MAX_NR_PROCESSORS; ++i)
 161       {
 162         SIM_CPU *cpu = STATE_CPU (sd, i);
 163         CPU_CPU_DESC (cpu) = cd;
 164         CPU_DISASSEMBLER (cpu) = sim_cgen_disassemble_insn;
 165       }
 166     m32r_cgen_init_dis (cd);
 167   }
 168
 169   /* Initialize various cgen things not done by common framework.
 170      Must be done after m32r_cgen_cpu_open.  */
 171   cgen_init (sd);
 172
 173   for (c = 0; c < MAX_NR_PROCESSORS; ++c)
 174     {
 175       /* Only needed for profiling, but the structure member is small.  */
 176       memset (CPU_M32R_MISC_PROFILE (STATE_CPU (sd, i)), 0,
 177               sizeof (* CPU_M32R_MISC_PROFILE (STATE_CPU (sd, i))));
 178       /* Hook in callback for reporting these stats */
 179       PROFILE_INFO_CPU_CALLBACK (CPU_PROFILE_DATA (STATE_CPU (sd, i)))
 180         = print_m32r_misc_cpu;
 181     }
 182
 183   /* Store in a global so things like sparc32_dump_regs can be invoked
 184      from the gdb command line.  */
 185   current_state = sd;
 186
 187   return sd;
 188 }
 189
 190 void
 191 sim_close (sd, quitting)
 192      SIM_DESC sd;
 193      int quitting;
 194 {
 195   m32r_cgen_cpu_close (CPU_CPU_DESC (STATE_CPU (sd, 0)));
 196   sim_module_uninstall (sd);
 197 }
 198 \f
 199 SIM_RC
 200 sim_create_inferior (sd, abfd, argv, envp)
 201      SIM_DESC sd;
 202      struct bfd *abfd;
 203      char **argv;
 204      char **envp;
 205 {
 206   SIM_CPU *current_cpu = STATE_CPU (sd, 0);
 207   SIM_ADDR addr;
 208
 209   if (abfd != NULL)
 210     addr = bfd_get_start_address (abfd);
 211   else
 212     addr = 0;
 213   sim_pc_set (current_cpu, addr);
 214
 215 #if 0
 216   STATE_ARGV (sd) = sim_copy_argv (argv);
 217   STATE_ENVP (sd) = sim_copy_argv (envp);
 218 #endif
 219
 220   return SIM_RC_OK;
 221 }
 222
 223 /* PROFILE_CPU_CALLBACK */
 224
 225 static void
 226 print_m32r_misc_cpu (SIM_CPU *cpu, int verbose)
 227 {
 228   SIM_DESC sd = CPU_STATE (cpu);
 229   char buf[20];
 230
 231   if (CPU_PROFILE_FLAGS (cpu) [PROFILE_INSN_IDX])
 232     {
 233       sim_io_printf (sd, "Miscellaneous Statistics\n\n");
 234       sim_io_printf (sd, "  %-*s %s\n\n",
 235                      PROFILE_LABEL_WIDTH, "Fill nops:",
 236                      sim_add_commas (buf, sizeof (buf),
 237                                      CPU_M32R_MISC_PROFILE (cpu)->fillnop_count));
 238       if (STATE_ARCHITECTURE (sd)->mach == bfd_mach_m32rx)
 239         sim_io_printf (sd, "  %-*s %s\n\n",
 240                        PROFILE_LABEL_WIDTH, "Parallel insns:",
 241                        sim_add_commas (buf, sizeof (buf),
 242                                        CPU_M32R_MISC_PROFILE (cpu)->parallel_count));
 243       if (STATE_ARCHITECTURE (sd)->mach == bfd_mach_m32r2)
 244         sim_io_printf (sd, "  %-*s %s\n\n",
 245                        PROFILE_LABEL_WIDTH, "Parallel insns:",
 246                        sim_add_commas (buf, sizeof (buf),
 247                                        CPU_M32R_MISC_PROFILE (cpu)->parallel_count));
 248       if (STATE_ARCHITECTURE (sd)->mach == bfd_mach_m32r2)
 249         sim_io_printf (sd, "  %-*s %s\n\n",
 250                        PROFILE_LABEL_WIDTH, "Parallel insns:",
 251                        sim_add_commas (buf, sizeof (buf),
 252                                        CPU_M32R_MISC_PROFILE (cpu)->parallel_count));
 253     }
 254 }
 255
 256 void
 257 sim_do_command (sd, cmd)
 258      SIM_DESC sd;
 259      char *cmd;
 260 {
 261   char **argv;
 262
 263   if (cmd == NULL)
 264     return;
 265
 266   argv = buildargv (cmd);
 267
 268   if (argv[0] != NULL
 269       && strcasecmp (argv[0], "info") == 0
 270       && argv[1] != NULL
 271       && strncasecmp (argv[1], "reg", 3) == 0)
 272     {
 273       SI val;
 274
 275       /* We only support printing bbpsw,bbpc here as there is no equivalent
 276          functionality in gdb.  */
 277       if (argv[2] == NULL)
 278         sim_io_eprintf (sd, "Missing register in `%s'\n", cmd);
 279       else if (argv[3] != NULL)
 280         sim_io_eprintf (sd, "Too many arguments in `%s'\n", cmd);
 281       else if (strcasecmp (argv[2], "bbpsw") == 0)
 282         {
 283           val = a_m32r_h_cr_get (STATE_CPU (sd, 0), H_CR_BBPSW);
 284           sim_io_printf (sd, "bbpsw 0x%x %d\n", val, val);
 285         }
 286       else if (strcasecmp (argv[2], "bbpc") == 0)
 287         {
 288           val = a_m32r_h_cr_get (STATE_CPU (sd, 0), H_CR_BBPC);
 289           sim_io_printf (sd, "bbpc 0x%x %d\n", val, val);
 290         }
 291       else
 292         sim_io_eprintf (sd, "Printing of register `%s' not supported with `sim info'\n",
 293                         argv[2]);
 294     }
 295   else
 296     {
 297       if (sim_args_command (sd, cmd) != SIM_RC_OK)
 298         sim_io_eprintf (sd, "Unknown sim command `%s'\n", cmd);
 299     }
 300
 301   freeargv (argv);
 302 }