| /* Main simulator entry points specific to the CRIS. |
| Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. |
| Contributed by Axis Communications. |
| |
| This file is part of the GNU simulators. |
| |
| 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. |
| |
| 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. */ |
| |
| /* Based on the fr30 file, mixing in bits from the i960 and pruning of |
| dead code. */ |
| |
| #include "libiberty.h" |
| #include "bfd.h" |
| |
| #include "sim-main.h" |
| #ifdef HAVE_STDLIB_H |
| #include <stdlib.h> |
| #endif |
| #include "sim-options.h" |
| #include "dis-asm.h" |
| |
| /* Apparently the autoconf bits are missing (though HAVE_ENVIRON is used |
| in other dirs; also lacking there). Patch around it for major systems. */ |
| #if defined (HAVE_ENVIRON) || defined (__GLIBC__) |
| extern char **environ; |
| #define GET_ENVIRON() environ |
| #else |
| char *missing_environ[] = { "SHELL=/bin/sh", "PATH=/bin:/usr/bin", NULL }; |
| #define GET_ENVIRON() missing_environ |
| #endif |
| |
| /* AUX vector entries. */ |
| #define TARGET_AT_NULL 0 |
| #define TARGET_AT_PHDR 3 |
| #define TARGET_AT_PHENT 4 |
| #define TARGET_AT_PHNUM 5 |
| #define TARGET_AT_PAGESZ 6 |
| #define TARGET_AT_BASE 7 |
| #define TARGET_AT_FLAGS 8 |
| #define TARGET_AT_ENTRY 9 |
| #define TARGET_AT_UID 11 |
| #define TARGET_AT_EUID 12 |
| #define TARGET_AT_GID 13 |
| #define TARGET_AT_EGID 14 |
| #define TARGET_AT_HWCAP 16 |
| #define TARGET_AT_CLKTCK 17 |
| |
| /* Used with get_progbounds to find out how much memory is needed for the |
| program. We don't want to allocate more, since that could mask |
| invalid memory accesses program bugs. */ |
| struct progbounds { |
| USI startmem; |
| USI endmem; |
| }; |
| |
| static void free_state (SIM_DESC); |
| static void get_progbounds (bfd *, asection *, void *); |
| static SIM_RC cris_option_handler (SIM_DESC, sim_cpu *, int, char *, int); |
| |
| /* Since we don't build the cgen-opcode table, we use the old |
| disassembler. */ |
| static CGEN_DISASSEMBLER cris_disassemble_insn; |
| |
| /* By default, we set up stack and environment variables like the Linux |
| kernel. */ |
| static char cris_bare_iron = 0; |
| |
| /* Whether 0x9000000xx have simulator-specific meanings. */ |
| char cris_have_900000xxif = 0; |
| |
| /* What to do when we face a more or less unknown syscall. */ |
| enum cris_unknown_syscall_action_type cris_unknown_syscall_action |
| = CRIS_USYSC_MSG_STOP; |
| |
| /* Records simulator descriptor so utilities like cris_dump_regs can be |
| called from gdb. */ |
| SIM_DESC current_state; |
| |
| /* CRIS-specific options. */ |
| typedef enum { |
| OPTION_CRIS_STATS = OPTION_START, |
| OPTION_CRIS_TRACE, |
| OPTION_CRIS_NAKED, |
| OPTION_CRIS_900000XXIF, |
| OPTION_CRIS_UNKNOWN_SYSCALL |
| } CRIS_OPTIONS; |
| |
| static const OPTION cris_options[] = |
| { |
| { {"cris-cycles", required_argument, NULL, OPTION_CRIS_STATS}, |
| '\0', "basic|unaligned|schedulable|all", |
| "Dump execution statistics", |
| cris_option_handler, NULL }, |
| { {"cris-trace", required_argument, NULL, OPTION_CRIS_TRACE}, |
| '\0', "basic", |
| "Emit trace information while running", |
| cris_option_handler, NULL }, |
| { {"cris-naked", no_argument, NULL, OPTION_CRIS_NAKED}, |
| '\0', NULL, "Don't set up stack and environment", |
| cris_option_handler, NULL }, |
| { {"cris-900000xx", no_argument, NULL, OPTION_CRIS_900000XXIF}, |
| '\0', NULL, "Define addresses at 0x900000xx with simulator semantics", |
| cris_option_handler, NULL }, |
| { {"cris-unknown-syscall", required_argument, NULL, |
| OPTION_CRIS_UNKNOWN_SYSCALL}, |
| '\0', "stop|enosys|enosys-quiet", "Action at an unknown system call", |
| cris_option_handler, NULL }, |
| { {NULL, no_argument, NULL, 0}, '\0', NULL, NULL, NULL, NULL } |
| }; |
| |
| /* Add the CRIS-specific option list to the simulator. */ |
| |
| SIM_RC |
| cris_option_install (SIM_DESC sd) |
| { |
| SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER); |
| if (sim_add_option_table (sd, NULL, cris_options) != SIM_RC_OK) |
| return SIM_RC_FAIL; |
| return SIM_RC_OK; |
| } |
| |
| /* Handle CRIS-specific options. */ |
| |
| static SIM_RC |
| cris_option_handler (SIM_DESC sd, sim_cpu *cpu ATTRIBUTE_UNUSED, int opt, |
| char *arg, int is_command ATTRIBUTE_UNUSED) |
| { |
| /* The options are CRIS-specific, but cpu-specific option-handling is |
| broken; required to being with "--cpu0-". We store the flags in an |
| unused field in the global state structure and move the flags over |
| to the module-specific CPU data when we store things in the |
| cpu-specific structure. */ |
| char *tracefp = STATE_TRACE_FLAGS (sd); |
| |
| switch ((CRIS_OPTIONS) opt) |
| { |
| case OPTION_CRIS_STATS: |
| if (strcmp (arg, "basic") == 0) |
| *tracefp = FLAG_CRIS_MISC_PROFILE_SIMPLE; |
| else if (strcmp (arg, "unaligned") == 0) |
| *tracefp |
| = (FLAG_CRIS_MISC_PROFILE_UNALIGNED |
| | FLAG_CRIS_MISC_PROFILE_SIMPLE); |
| else if (strcmp (arg, "schedulable") == 0) |
| *tracefp |
| = (FLAG_CRIS_MISC_PROFILE_SCHEDULABLE |
| | FLAG_CRIS_MISC_PROFILE_SIMPLE); |
| else if (strcmp (arg, "all") == 0) |
| *tracefp = FLAG_CRIS_MISC_PROFILE_ALL; |
| else |
| { |
| /* Beware; the framework does not handle the error case; |
| we have to do it ourselves. */ |
| sim_io_eprintf (sd, "Unknown option `--cris-cycles=%s'\n", arg); |
| return SIM_RC_FAIL; |
| } |
| break; |
| |
| case OPTION_CRIS_TRACE: |
| if (strcmp (arg, "basic") == 0) |
| *tracefp |= FLAG_CRIS_MISC_PROFILE_XSIM_TRACE; |
| else |
| { |
| sim_io_eprintf (sd, "Unknown option `--cris-trace=%s'\n", arg); |
| return SIM_RC_FAIL; |
| } |
| break; |
| |
| case OPTION_CRIS_NAKED: |
| cris_bare_iron = 1; |
| break; |
| |
| case OPTION_CRIS_900000XXIF: |
| cris_have_900000xxif = 1; |
| break; |
| |
| case OPTION_CRIS_UNKNOWN_SYSCALL: |
| if (strcmp (arg, "enosys") == 0) |
| cris_unknown_syscall_action = CRIS_USYSC_MSG_ENOSYS; |
| else if (strcmp (arg, "enosys-quiet") == 0) |
| cris_unknown_syscall_action = CRIS_USYSC_QUIET_ENOSYS; |
| else if (strcmp (arg, "stop") == 0) |
| cris_unknown_syscall_action = CRIS_USYSC_MSG_STOP; |
| else |
| { |
| sim_io_eprintf (sd, "Unknown option `--cris-unknown-syscall=%s'\n", |
| arg); |
| return SIM_RC_FAIL; |
| } |
| break; |
| |
| default: |
| /* We'll actually never get here; the caller handles the error |
| case. */ |
| sim_io_eprintf (sd, "Unknown option `%s'\n", arg); |
| return SIM_RC_FAIL; |
| } |
| |
| /* Imply --profile-model=on. */ |
| return sim_profile_set_option (sd, "-model", PROFILE_MODEL_IDX, "on"); |
| } |
| |
| /* Cover function of sim_state_free to free the cpu buffers as well. */ |
| |
| static void |
| free_state (SIM_DESC sd) |
| { |
| if (STATE_MODULES (sd) != NULL) |
| sim_module_uninstall (sd); |
| sim_cpu_free_all (sd); |
| sim_state_free (sd); |
| } |
| |
| /* BFD section iterator to find the highest allocated section address |
| (plus one). If we could, we should use the program header table |
| instead, but we can't get to that using bfd. */ |
| |
| void |
| get_progbounds (bfd *abfd ATTRIBUTE_UNUSED, asection *s, void *vp) |
| { |
| struct progbounds *pbp = (struct progbounds *) vp; |
| |
| if ((bfd_get_section_flags (abfd, s) & SEC_ALLOC)) |
| { |
| bfd_size_type sec_size = bfd_get_section_size (s); |
| bfd_size_type sec_start = bfd_get_section_vma (abfd, s); |
| bfd_size_type sec_end = sec_start + sec_size; |
| |
| if (sec_end > pbp->endmem) |
| pbp->endmem = sec_end; |
| |
| if (sec_start < pbp->startmem) |
| pbp->startmem = sec_start; |
| } |
| } |
| |
| /* Create an instance of the simulator. */ |
| |
| SIM_DESC |
| sim_open (SIM_OPEN_KIND kind, host_callback *callback, struct bfd *abfd, |
| char **argv) |
| { |
| char c; |
| int i; |
| USI startmem = 0; |
| USI endmem = CRIS_DEFAULT_MEM_SIZE; |
| USI endbrk = endmem; |
| USI stack_low = 0; |
| SIM_DESC sd = sim_state_alloc (kind, callback); |
| |
| /* Can't initialize to "" below. It's either a GCC bug in old |
| releases (up to and including 2.95.3 (.4 in debian) or a bug in the |
| standard ;-) that the rest of the elements won't be initialized. */ |
| bfd_byte sp_init[4] = {0, 0, 0, 0}; |
| |
| /* The cpu data is kept in a separately allocated chunk of memory. */ |
| if (sim_cpu_alloc_all (sd, 1, cgen_cpu_max_extra_bytes ()) != SIM_RC_OK) |
| { |
| free_state (sd); |
| return 0; |
| } |
| |
| if (sim_pre_argv_init (sd, argv[0]) != SIM_RC_OK) |
| { |
| free_state (sd); |
| return 0; |
| } |
| |
| /* getopt will print the error message so we just have to exit if this fails. |
| FIXME: Hmmm... in the case of gdb we need getopt to call |
| print_filtered. */ |
| if (sim_parse_args (sd, argv) != SIM_RC_OK) |
| { |
| free_state (sd); |
| return 0; |
| } |
| |
| /* If we have a binary program, endianness-setting would not be taken |
| from elsewhere unfortunately, so set it here. At the time of this |
| writing, it isn't used until sim_config, but that might change so |
| set it here before memory is defined or touched. */ |
| current_target_byte_order = LITTLE_ENDIAN; |
| |
| /* check for/establish the reference program image */ |
| if (sim_analyze_program (sd, |
| (STATE_PROG_ARGV (sd) != NULL |
| ? *STATE_PROG_ARGV (sd) |
| : NULL), |
| abfd) != SIM_RC_OK) |
| { |
| free_state (sd); |
| return 0; |
| } |
| |
| /* For CRIS simulator-specific use, we need to find out the bounds of |
| the program as well, which is not done by sim_analyze_program |
| above. */ |
| if (STATE_PROG_BFD (sd)) |
| { |
| struct progbounds pb; |
| |
| /* The sections should now be accessible using bfd functions. */ |
| pb.startmem = 0x7fffffff; |
| pb.endmem = 0; |
| bfd_map_over_sections (STATE_PROG_BFD (sd), get_progbounds, &pb); |
| |
| /* We align the area that the program uses to page boundaries. */ |
| startmem = pb.startmem & ~8191; |
| endbrk = pb.endmem; |
| endmem = (endbrk + 8191) & ~8191; |
| } |
| |
| /* Find out how much room is needed for the environment and argv, create |
| that memory and fill it. Only do this when there's a program |
| specified. */ |
| if (STATE_PROG_BFD (sd) && !cris_bare_iron) |
| { |
| char *name = bfd_get_filename (STATE_PROG_BFD (sd)); |
| char **my_environ = GET_ENVIRON (); |
| /* We use these maps to give the same behavior as the old xsim |
| simulator. */ |
| USI envtop = 0x40000000; |
| USI stacktop = 0x3e000000; |
| USI envstart; |
| int envc; |
| int len = strlen (name) + 1; |
| USI epp, epp0; |
| USI stacklen; |
| int i; |
| char **prog_argv = STATE_PROG_ARGV (sd); |
| int my_argc = 0; |
| /* All CPU:s have the same memory map, apparently. */ |
| SIM_CPU *cpu = STATE_CPU (sd, 0); |
| USI csp; |
| bfd_byte buf[4]; |
| |
| /* Count in the environment as well. */ |
| for (envc = 0; my_environ[envc] != NULL; envc++) |
| len += strlen (my_environ[envc]) + 1; |
| |
| for (i = 0; prog_argv[i] != NULL; my_argc++, i++) |
| len += strlen (prog_argv[i]) + 1; |
| |
| envstart = (envtop - len) & ~8191; |
| |
| /* Create read-only block for the environment strings. */ |
| sim_core_attach (sd, NULL, 0, access_read, 0, |
| envstart, (len + 8191) & ~8191, |
| 0, NULL, NULL); |
| |
| /* This shouldn't happen. */ |
| if (envstart < stacktop) |
| stacktop = envstart - 64 * 8192; |
| |
| csp = stacktop; |
| |
| /* Note that the linux kernel does not correctly compute the storage |
| needs for the static-exe AUX vector. */ |
| csp -= 4 * 4 * 2; |
| |
| csp -= (envc + 1) * 4; |
| csp -= (my_argc + 1) * 4; |
| csp -= 4; |
| |
| /* Write the target representation of the start-up-value for the |
| stack-pointer suitable for register initialization below. */ |
| bfd_putl32 (csp, sp_init); |
| |
| /* If we make this 1M higher; say 8192*1024, we have to take |
| special precautions for pthreads, because pthreads assumes that |
| the memory that low isn't mmapped, and that it can mmap it |
| without fallback in case of failure (and we fail ungracefully |
| long before *that*: the memory isn't accounted for in our mmap |
| list). */ |
| stack_low = (csp - (7168*1024)) & ~8191; |
| |
| stacklen = stacktop - stack_low; |
| |
| /* Tee hee, we have an executable stack. Well, it's necessary to |
| test GCC trampolines... */ |
| sim_core_attach (sd, NULL, 0, access_read_write_exec, 0, |
| stack_low, stacklen, |
| 0, NULL, NULL); |
| |
| epp = epp0 = envstart; |
| |
| /* Can't use sim_core_write_unaligned_4 without everything |
| initialized when tracing, and then these writes would get into |
| the trace. */ |
| #define write_dword(addr, data) \ |
| do \ |
| { \ |
| USI data_ = data; \ |
| USI addr_ = addr; \ |
| bfd_putl32 (data_, buf); \ |
| if (sim_core_write_buffer (sd, cpu, 0, buf, addr_, 4) != 4) \ |
| goto abandon_chip; \ |
| } \ |
| while (0) |
| |
| write_dword (csp, my_argc); |
| csp += 4; |
| |
| for (i = 0; i < my_argc; i++, csp += 4) |
| { |
| size_t strln = strlen (prog_argv[i]) + 1; |
| |
| if (sim_core_write_buffer (sd, cpu, 0, prog_argv[i], epp, strln) |
| != strln) |
| goto abandon_chip; |
| |
| write_dword (csp, envstart + epp - epp0); |
| epp += strln; |
| } |
| |
| write_dword (csp, 0); |
| csp += 4; |
| |
| for (i = 0; i < envc; i++, csp += 4) |
| { |
| unsigned int strln = strlen (my_environ[i]) + 1; |
| |
| if (sim_core_write_buffer (sd, cpu, 0, my_environ[i], epp, strln) |
| != strln) |
| goto abandon_chip; |
| |
| write_dword (csp, envstart + epp - epp0); |
| epp += strln; |
| } |
| |
| write_dword (csp, 0); |
| csp += 4; |
| |
| #define NEW_AUX_ENT(nr, id, val) \ |
| do \ |
| { \ |
| write_dword (csp + (nr) * 4 * 2, (id)); \ |
| write_dword (csp + (nr) * 4 * 2 + 4, (val)); \ |
| } \ |
| while (0) |
| |
| /* Note that there are some extra AUX entries for a dynlinked |
| program loaded image. */ |
| |
| /* AUX entries always present. */ |
| NEW_AUX_ENT (0, TARGET_AT_HWCAP, 0); |
| NEW_AUX_ENT (1, TARGET_AT_PAGESZ, 8192); |
| NEW_AUX_ENT (2, TARGET_AT_CLKTCK, 100); |
| |
| csp += 4 * 2 * 3; |
| NEW_AUX_ENT (0, TARGET_AT_NULL, 0); |
| #undef NEW_AUX_ENT |
| |
| /* Register R10 should hold 0 at static start (no initfunc), but |
| that's the default, so don't bother. */ |
| } |
| |
| /* Allocate core managed memory if none specified by user. */ |
| if (sim_core_read_buffer (sd, NULL, read_map, &c, startmem, 1) == 0) |
| sim_do_commandf (sd, "memory region 0x%lx,0x%lx", startmem, |
| endmem - startmem); |
| |
| /* Allocate simulator I/O managed memory if none specified by user. */ |
| if (cris_have_900000xxif) |
| { |
| if (sim_core_read_buffer (sd, NULL, read_map, &c, 0x90000000, 1) == 0) |
| sim_core_attach (sd, NULL, 0, access_write, 0, 0x90000000, 0x100, |
| 0, &cris_devices, NULL); |
| else |
| { |
| (*callback-> |
| printf_filtered) (callback, |
| "Seeing --cris-900000xx with memory defined there\n"); |
| goto abandon_chip; |
| } |
| } |
| |
| /* Establish any remaining configuration options. */ |
| if (sim_config (sd) != SIM_RC_OK) |
| { |
| abandon_chip: |
| free_state (sd); |
| return 0; |
| } |
| |
| if (sim_post_argv_init (sd) != SIM_RC_OK) |
| { |
| free_state (sd); |
| return 0; |
| } |
| |
| /* Open a copy of the cpu descriptor table. */ |
| { |
| CGEN_CPU_DESC cd = cris_cgen_cpu_open_1 (STATE_ARCHITECTURE (sd)->printable_name, |
| CGEN_ENDIAN_LITTLE); |
| for (i = 0; i < MAX_NR_PROCESSORS; ++i) |
| { |
| SIM_CPU *cpu = STATE_CPU (sd, i); |
| CPU_CPU_DESC (cpu) = cd; |
| CPU_DISASSEMBLER (cpu) = cris_disassemble_insn; |
| |
| /* See cris_option_handler for the reason why this is needed. */ |
| CPU_CRIS_MISC_PROFILE (cpu)->flags = STATE_TRACE_FLAGS (sd)[0]; |
| |
| /* Set SP to the stack we allocated above. */ |
| (* CPU_REG_STORE (cpu)) (cpu, H_GR_SP, (char *) sp_init, 4); |
| |
| /* Set the simulator environment data. */ |
| cpu->highest_mmapped_page = NULL; |
| cpu->endmem = endmem; |
| cpu->endbrk = endbrk; |
| cpu->stack_low = stack_low; |
| cpu->syscalls = 0; |
| cpu->m1threads = 0; |
| cpu->threadno = 0; |
| cpu->max_threadid = 0; |
| cpu->thread_data = NULL; |
| memset (cpu->sighandler, 0, sizeof (cpu->sighandler)); |
| cpu->make_thread_cpu_data = NULL; |
| cpu->thread_cpu_data_size = 0; |
| #if WITH_HW |
| cpu->deliver_interrupt = NULL; |
| #endif |
| } |
| #if WITH_HW |
| /* Always be cycle-accurate and call before/after functions if |
| with-hardware. */ |
| sim_profile_set_option (sd, "-model", PROFILE_MODEL_IDX, "on"); |
| #endif |
| } |
| |
| /* Initialize various cgen things not done by common framework. |
| Must be done after cris_cgen_cpu_open. */ |
| cgen_init (sd); |
| |
| /* Store in a global so things like cris_dump_regs can be invoked |
| from the gdb command line. */ |
| current_state = sd; |
| |
| cris_set_callbacks (callback); |
| |
| return sd; |
| } |
| |
| void |
| sim_close (SIM_DESC sd, int quitting ATTRIBUTE_UNUSED) |
| { |
| cris_cgen_cpu_close (CPU_CPU_DESC (STATE_CPU (sd, 0))); |
| sim_module_uninstall (sd); |
| } |
| |
| SIM_RC |
| sim_create_inferior (SIM_DESC sd, struct bfd *abfd, |
| char **argv ATTRIBUTE_UNUSED, |
| char **envp ATTRIBUTE_UNUSED) |
| { |
| SIM_CPU *current_cpu = STATE_CPU (sd, 0); |
| SIM_ADDR addr; |
| |
| if (abfd != NULL) |
| addr = bfd_get_start_address (abfd); |
| else |
| addr = 0; |
| sim_pc_set (current_cpu, addr); |
| |
| /* Other simulators have #if 0:d code that says |
| STATE_ARGV (sd) = sim_copy_argv (argv); |
| STATE_ENVP (sd) = sim_copy_argv (envp); |
| Enabling that gives you not-found link-errors for sim_copy_argv. |
| FIXME: Do archaeology to find out more. */ |
| |
| return SIM_RC_OK; |
| } |
| |
| void |
| sim_do_command (SIM_DESC sd, char *cmd) |
| { |
| if (sim_args_command (sd, cmd) != SIM_RC_OK) |
| sim_io_eprintf (sd, "Unknown command `%s'\n", cmd); |
| } |
| |
| /* Disassemble an instruction. */ |
| |
| static void |
| cris_disassemble_insn (SIM_CPU *cpu, |
| const CGEN_INSN *insn ATTRIBUTE_UNUSED, |
| const ARGBUF *abuf ATTRIBUTE_UNUSED, |
| IADDR pc, char *buf) |
| { |
| disassembler_ftype pinsn; |
| struct disassemble_info disasm_info; |
| SFILE sfile; |
| SIM_DESC sd = CPU_STATE (cpu); |
| |
| sfile.buffer = sfile.current = buf; |
| INIT_DISASSEMBLE_INFO (disasm_info, (FILE *) &sfile, |
| (fprintf_ftype) sim_disasm_sprintf); |
| disasm_info.endian = |
| (bfd_big_endian (STATE_PROG_BFD (sd)) ? BFD_ENDIAN_BIG |
| : bfd_little_endian (STATE_PROG_BFD (sd)) ? BFD_ENDIAN_LITTLE |
| : BFD_ENDIAN_UNKNOWN); |
| /* We live with the cast until the prototype is fixed, or else we get a |
| warning because the functions differ in the signedness of one parameter. */ |
| disasm_info.read_memory_func = |
| sim_disasm_read_memory; |
| disasm_info.memory_error_func = sim_disasm_perror_memory; |
| disasm_info.application_data = (PTR) cpu; |
| pinsn = cris_get_disassembler (STATE_PROG_BFD (sd)); |
| (*pinsn) (pc, &disasm_info); |
| } |