/* Default profiling support.
- Copyright (C) 1996, 1997 Free Software Foundation, Inc.
+ Copyright (C) 1996, 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
Contributed by Cygnus Support.
This file is part of GDB, the GNU debugger.
#include "sim-main.h"
#include "sim-io.h"
#include "sim-options.h"
+#include "sim-assert.h"
+
+#ifdef HAVE_STDLIB_H
+#include <stdlib.h>
+#endif
+
+#ifdef HAVE_STRING_H
+#include <string.h>
+#else
+#ifdef HAVE_STRINGS_H
+#include <strings.h>
+#endif
+#endif
+#include <ctype.h>
#define COMMAS(n) sim_add_commas (comma_buf, sizeof (comma_buf), (n))
+static MODULE_INIT_FN profile_init;
static MODULE_UNINSTALL_FN profile_uninstall;
-static void print_bar (SIM_DESC, unsigned int, unsigned int, unsigned int);
-
static DECLARE_OPTION_HANDLER (profile_option_handler);
-#define OPTION_PROFILE_INSN (OPTION_START + 0)
-#define OPTION_PROFILE_MEMORY (OPTION_START + 1)
-#define OPTION_PROFILE_MODEL (OPTION_START + 2)
-#define OPTION_PROFILE_FILE (OPTION_START + 3)
-#define OPTION_PROFILE_RANGE (OPTION_START + 4)
+enum {
+ OPTION_PROFILE_INSN = OPTION_START,
+ OPTION_PROFILE_MEMORY,
+ OPTION_PROFILE_MODEL,
+ OPTION_PROFILE_FILE,
+ OPTION_PROFILE_CORE,
+ OPTION_PROFILE_CPU_FREQUENCY,
+ OPTION_PROFILE_PC,
+ OPTION_PROFILE_PC_RANGE,
+ OPTION_PROFILE_PC_GRANULARITY,
+ OPTION_PROFILE_RANGE,
+ OPTION_PROFILE_FUNCTION
+};
static const OPTION profile_options[] = {
- { {"profile", no_argument, NULL, 'p'},
- 'p', NULL, "Perform profiling",
+ { {"profile", optional_argument, NULL, 'p'},
+ 'p', "on|off", "Perform profiling",
+ profile_option_handler },
+ { {"profile-insn", optional_argument, NULL, OPTION_PROFILE_INSN},
+ '\0', "on|off", "Perform instruction profiling",
profile_option_handler },
- { {"profile-insn", no_argument, NULL, OPTION_PROFILE_INSN},
- '\0', NULL, "Perform instruction profiling",
+ { {"profile-memory", optional_argument, NULL, OPTION_PROFILE_MEMORY},
+ '\0', "on|off", "Perform memory profiling",
profile_option_handler },
- { {"profile-memory", no_argument, NULL, OPTION_PROFILE_MEMORY},
- '\0', NULL, "Perform memory profiling",
+ { {"profile-core", optional_argument, NULL, OPTION_PROFILE_CORE},
+ '\0', "on|off", "Perform CORE profiling",
profile_option_handler },
- { {"profile-model", no_argument, NULL, OPTION_PROFILE_MODEL},
- '\0', NULL, "Perform model profiling",
+ { {"profile-model", optional_argument, NULL, OPTION_PROFILE_MODEL},
+ '\0', "on|off", "Perform model profiling",
profile_option_handler },
+ { {"profile-cpu-frequency", required_argument, NULL,
+ OPTION_PROFILE_CPU_FREQUENCY},
+ '\0', "CPU FREQUENCY", "Specify the speed of the simulated cpu clock",
+ profile_option_handler },
+
{ {"profile-file", required_argument, NULL, OPTION_PROFILE_FILE},
'\0', "FILE NAME", "Specify profile output file",
profile_option_handler },
+
+ { {"profile-pc", optional_argument, NULL, OPTION_PROFILE_PC},
+ '\0', "on|off", "Perform PC profiling",
+ profile_option_handler },
{ {"profile-pc-frequency", required_argument, NULL, 'F'},
- 'F', "PC PROFILE FREQUENCY", "Turn on PC profiling at specified frequency",
+ 'F', "PC PROFILE FREQUENCY", "Specified PC profiling frequency",
profile_option_handler },
{ {"profile-pc-size", required_argument, NULL, 'S'},
'S', "PC PROFILE SIZE", "Specify PC profiling size",
profile_option_handler },
-#if 0 /*FIXME:wip*/
+ { {"profile-pc-granularity", required_argument, NULL, OPTION_PROFILE_PC_GRANULARITY},
+ '\0', "PC PROFILE GRANULARITY", "Specify PC profiling sample coverage",
+ profile_option_handler },
+ { {"profile-pc-range", required_argument, NULL, OPTION_PROFILE_PC_RANGE},
+ '\0', "BASE,BOUND", "Specify PC profiling address range",
+ profile_option_handler },
+
+#ifdef SIM_HAVE_ADDR_RANGE
{ {"profile-range", required_argument, NULL, OPTION_PROFILE_RANGE},
- 0, NULL, "Specify range of addresses to profile",
+ '\0', "START,END", "Specify range of addresses for instruction and model profiling",
+ profile_option_handler },
+#if 0 /*wip*/
+ { {"profile-function", required_argument, NULL, OPTION_PROFILE_FUNCTION},
+ '\0', "FUNCTION", "Specify function to profile",
profile_option_handler },
#endif
+#endif
+
{ {NULL, no_argument, NULL, 0}, '\0', NULL, NULL, NULL }
};
+/* Set/reset the profile options indicated in MASK. */
+
+SIM_RC
+set_profile_option_mask (SIM_DESC sd, const char *name, int mask, const char *arg)
+{
+ int profile_nr;
+ int cpu_nr;
+ int profile_val = 1;
+
+ if (arg != NULL)
+ {
+ if (strcmp (arg, "yes") == 0
+ || strcmp (arg, "on") == 0
+ || strcmp (arg, "1") == 0)
+ profile_val = 1;
+ else if (strcmp (arg, "no") == 0
+ || strcmp (arg, "off") == 0
+ || strcmp (arg, "0") == 0)
+ profile_val = 0;
+ else
+ {
+ sim_io_eprintf (sd, "Argument `%s' for `--profile%s' invalid, one of `on', `off', `yes', `no' expected\n", arg, name);
+ return SIM_RC_FAIL;
+ }
+ }
+
+ /* update applicable profile bits */
+ for (profile_nr = 0; profile_nr < MAX_PROFILE_VALUES; ++profile_nr)
+ {
+ if ((mask & (1 << profile_nr)) == 0)
+ continue;
+
+#if 0 /* see sim-trace.c, set flags in STATE here if/when there are any */
+ /* Set non-cpu specific values. */
+ switch (profile_nr)
+ {
+ case ??? :
+ break;
+ }
+#endif
+
+ /* Set cpu values. */
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
+ {
+ CPU_PROFILE_FLAGS (STATE_CPU (sd, cpu_nr))[profile_nr] = profile_val;
+ }
+ }
+
+ /* Re-compute the cpu profile summary. */
+ if (profile_val)
+ {
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
+ CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))->profile_any_p = 1;
+ }
+ else
+ {
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; cpu_nr++)
+ {
+ CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))->profile_any_p = 0;
+ for (profile_nr = 0; profile_nr < MAX_PROFILE_VALUES; ++profile_nr)
+ {
+ if (CPU_PROFILE_FLAGS (STATE_CPU (sd, cpu_nr))[profile_nr])
+ {
+ CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))->profile_any_p = 1;
+ break;
+ }
+ }
+ }
+ }
+
+ return SIM_RC_OK;
+}
+
+/* Set one profile option based on its IDX value.
+ Not static as cgen-scache.c uses it. */
+
+SIM_RC
+sim_profile_set_option (SIM_DESC sd, const char *name, int idx, const char *arg)
+{
+ return set_profile_option_mask (sd, name, 1 << idx, arg);
+}
+
static SIM_RC
-profile_option_handler (SIM_DESC sd, int opt, char *arg)
+parse_frequency (SIM_DESC sd, const char *arg, unsigned long *freq)
{
- int i,n;
+ const char *ch;
+ /* First, parse a decimal number. */
+ *freq = 0;
+ ch = arg;
+ if (isdigit (*arg))
+ {
+ for (/**/; *ch != '\0'; ++ch)
+ {
+ if (! isdigit (*ch))
+ break;
+ *freq = *freq * 10 + (*ch - '0');
+ }
+
+ /* Accept KHz, MHz or Hz as a suffix. */
+ if (tolower (*ch) == 'm')
+ {
+ *freq *= 1000000;
+ ++ch;
+ }
+ else if (tolower (*ch) == 'k')
+ {
+ *freq *= 1000;
+ ++ch;
+ }
+
+ if (tolower (*ch) == 'h')
+ {
+ ++ch;
+ if (tolower (*ch) == 'z')
+ ++ch;
+ }
+ }
+
+ if (*ch != '\0')
+ {
+ sim_io_eprintf (sd, "Invalid argument for --profile-cpu-frequency: %s\n",
+ arg);
+ *freq = 0;
+ return SIM_RC_FAIL;
+ }
+
+ return SIM_RC_OK;
+}
+
+static SIM_RC
+profile_option_handler (SIM_DESC sd,
+ sim_cpu *cpu,
+ int opt,
+ char *arg,
+ int is_command)
+{
+ int cpu_nr;
+
+ /* FIXME: Need to handle `cpu' arg. */
switch (opt)
{
case 'p' :
if (! WITH_PROFILE)
- sim_io_eprintf (sd, "Profiling not compiled in, -p option ignored\n");
+ sim_io_eprintf (sd, "Profiling not compiled in, `-p' ignored\n");
else
- {
- for (n = 0; n < MAX_NR_PROCESSORS; ++n)
- for (i = 0; i < MAX_PROFILE_VALUES; ++i)
- CPU_PROFILE_FLAGS (STATE_CPU (sd, n))[i] = 1;
- }
+ return set_profile_option_mask (sd, "profile", PROFILE_USEFUL_MASK,
+ arg);
break;
case OPTION_PROFILE_INSN :
-#if WITH_PROFILE_INSN_P
- for (n = 0; n < MAX_NR_PROCESSORS; ++n)
- CPU_PROFILE_FLAGS (STATE_CPU (sd, n))[PROFILE_INSN_IDX] = 1;
-#else
- sim_io_eprintf (sd, "Instruction profiling not compiled in, `--profile-insn' ignored\n");
-#endif
+ if (WITH_PROFILE_INSN_P)
+ return sim_profile_set_option (sd, "-insn", PROFILE_INSN_IDX, arg);
+ else
+ sim_io_eprintf (sd, "Instruction profiling not compiled in, `--profile-insn' ignored\n");
break;
case OPTION_PROFILE_MEMORY :
-#if WITH_PROFILE_MEMORY_P
- for (n = 0; n < MAX_NR_PROCESSORS; ++n)
- CPU_PROFILE_FLAGS (STATE_CPU (sd, n))[PROFILE_MEMORY_IDX] = 1;
-#else
- sim_io_eprintf (sd, "Memory profiling not compiled in, `--profile-memory' ignored\n");
-#endif
+ if (WITH_PROFILE_MEMORY_P)
+ return sim_profile_set_option (sd, "-memory", PROFILE_MEMORY_IDX, arg);
+ else
+ sim_io_eprintf (sd, "Memory profiling not compiled in, `--profile-memory' ignored\n");
+ break;
+
+ case OPTION_PROFILE_CORE :
+ if (WITH_PROFILE_CORE_P)
+ return sim_profile_set_option (sd, "-core", PROFILE_CORE_IDX, arg);
+ else
+ sim_io_eprintf (sd, "CORE profiling not compiled in, `--profile-core' ignored\n");
break;
case OPTION_PROFILE_MODEL :
-#if WITH_PROFILE_MODEL_P
- for (n = 0; n < MAX_NR_PROCESSORS; ++n)
- CPU_PROFILE_FLAGS (STATE_CPU (sd, n))[PROFILE_MODEL_IDX] = 1;
-#else
- sim_io_eprintf (sd, "Model profiling not compiled in, `--profile-model' ignored\n");
-#endif
+ if (WITH_PROFILE_MODEL_P)
+ return sim_profile_set_option (sd, "-model", PROFILE_MODEL_IDX, arg);
+ else
+ sim_io_eprintf (sd, "Model profiling not compiled in, `--profile-model' ignored\n");
break;
+ case OPTION_PROFILE_CPU_FREQUENCY :
+ {
+ unsigned long val;
+ SIM_RC rc = parse_frequency (sd, arg, &val);
+ if (rc == SIM_RC_OK)
+ {
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ PROFILE_CPU_FREQ (CPU_PROFILE_DATA (STATE_CPU (sd,cpu_nr))) = val;
+ }
+ return rc;
+ }
+
case OPTION_PROFILE_FILE :
/* FIXME: Might want this to apply to pc profiling only,
or have two profile file options. */
sim_io_eprintf (sd, "Unable to open profile output file `%s'\n", arg);
return SIM_RC_FAIL;
}
- for (n = 0; n < MAX_NR_PROCESSORS; ++n)
- PROFILE_FILE (CPU_PROFILE_DATA (STATE_CPU (sd, n))) = f;
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ PROFILE_FILE (CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))) = f;
}
break;
+ case OPTION_PROFILE_PC:
+ if (WITH_PROFILE_PC_P)
+ return sim_profile_set_option (sd, "-pc", PROFILE_PC_IDX, arg);
+ else
+ sim_io_eprintf (sd, "PC profiling not compiled in, `--profile-pc' ignored\n");
+ break;
+
case 'F' :
-#if WITH_PROFILE_PC_P
- /* FIXME: Validate arg. */
- i = atoi (arg);
- for (n = 0; n < MAX_NR_PROCESSORS; ++n)
- PROFILE_PC_FREQ (CPU_PROFILE_DATA (STATE_CPU (sd, n))) = i;
-#else
- sim_io_eprintf (sd, "PC profiling not compiled in, `--profile-pc-frequency' ignored\n");
-#endif
+ if (WITH_PROFILE_PC_P)
+ {
+ /* FIXME: Validate arg. */
+ int val = atoi (arg);
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ PROFILE_PC_FREQ (CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))) = val;
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ CPU_PROFILE_FLAGS (STATE_CPU (sd, cpu_nr))[PROFILE_PC_IDX] = 1;
+ }
+ else
+ sim_io_eprintf (sd, "PC profiling not compiled in, `--profile-pc-frequency' ignored\n");
break;
case 'S' :
-#if WITH_PROFILE_PC_P
- /* FIXME: Validate arg. */
- i = atoi (arg);
- for (n = 0; n < MAX_NR_PROCESSORS; ++n)
- PROFILE_PC_SIZE (CPU_PROFILE_DATA (STATE_CPU (sd, n))) = i;
-#else
- sim_io_eprintf (sd, "PC profiling not compiled in, `--profile-pc-size' ignored\n");
-#endif
+ if (WITH_PROFILE_PC_P)
+ {
+ /* FIXME: Validate arg. */
+ int val = atoi (arg);
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ PROFILE_PC_NR_BUCKETS (CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))) = val;
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ CPU_PROFILE_FLAGS (STATE_CPU (sd, cpu_nr))[PROFILE_PC_IDX] = 1;
+ }
+ else
+ sim_io_eprintf (sd, "PC profiling not compiled in, `--profile-pc-size' ignored\n");
+ break;
+
+ case OPTION_PROFILE_PC_GRANULARITY:
+ if (WITH_PROFILE_PC_P)
+ {
+ int shift;
+ int val = atoi (arg);
+ /* check that the granularity is a power of two */
+ shift = 0;
+ while (val > (1 << shift))
+ {
+ shift += 1;
+ }
+ if (val != (1 << shift))
+ {
+ sim_io_eprintf (sd, "PC profiling granularity not a power of two\n");
+ return SIM_RC_FAIL;
+ }
+ if (shift == 0)
+ {
+ sim_io_eprintf (sd, "PC profiling granularity too small");
+ return SIM_RC_FAIL;
+ }
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ PROFILE_PC_SHIFT (CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))) = shift;
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ CPU_PROFILE_FLAGS (STATE_CPU (sd, cpu_nr))[PROFILE_PC_IDX] = 1;
+ }
+ else
+ sim_io_eprintf (sd, "PC profiling not compiled in, `--profile-pc-granularity' ignored\n");
break;
-#if 0 /* FIXME:wip */
+ case OPTION_PROFILE_PC_RANGE:
+ if (WITH_PROFILE_PC_P)
+ {
+ /* FIXME: Validate args */
+ char *chp = arg;
+ unsigned long base;
+ unsigned long bound;
+ base = strtoul (chp, &chp, 0);
+ if (*chp != ',')
+ {
+ sim_io_eprintf (sd, "--profile-pc-range missing BOUND argument\n");
+ return SIM_RC_FAIL;
+ }
+ bound = strtoul (chp + 1, NULL, 0);
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ {
+ PROFILE_PC_START (CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))) = base;
+ PROFILE_PC_END (CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))) = bound;
+ }
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ CPU_PROFILE_FLAGS (STATE_CPU (sd, cpu_nr))[PROFILE_PC_IDX] = 1;
+ }
+ else
+ sim_io_eprintf (sd, "PC profiling not compiled in, `--profile-pc-range' ignored\n");
+ break;
+
+#ifdef SIM_HAVE_ADDR_RANGE
case OPTION_PROFILE_RANGE :
+ if (WITH_PROFILE)
+ {
+ char *chp = arg;
+ unsigned long start,end;
+ start = strtoul (chp, &chp, 0);
+ if (*chp != ',')
+ {
+ sim_io_eprintf (sd, "--profile-range missing END argument\n");
+ return SIM_RC_FAIL;
+ }
+ end = strtoul (chp + 1, NULL, 0);
+ /* FIXME: Argument validation. */
+ if (cpu != NULL)
+ sim_addr_range_add (PROFILE_RANGE (CPU_PROFILE_DATA (cpu)),
+ start, end);
+ else
+ for (cpu_nr = 0; cpu_nr < MAX_NR_PROCESSORS; ++cpu_nr)
+ sim_addr_range_add (PROFILE_RANGE (CPU_PROFILE_DATA (STATE_CPU (sd, cpu_nr))),
+ start, end);
+ }
+ else
+ sim_io_eprintf (sd, "Profiling not compiled in, `--profile-range' ignored\n");
break;
-#endif
+
+ case OPTION_PROFILE_FUNCTION :
+ if (WITH_PROFILE)
+ {
+ /*wip: need to compute function range given name*/
+ }
+ else
+ sim_io_eprintf (sd, "Profiling not compiled in, `--profile-function' ignored\n");
+ break;
+#endif /* SIM_HAVE_ADDR_RANGE */
}
return SIM_RC_OK;
}
\f
-/* Install profiling support in the simulator. */
+/* PC profiling support */
-SIM_RC
-profile_install (SIM_DESC sd)
+#if WITH_PROFILE_PC_P
+
+static void
+profile_pc_cleanup (SIM_DESC sd)
{
- int i;
+ int n;
+ for (n = 0; n < MAX_NR_PROCESSORS; n++)
+ {
+ sim_cpu *cpu = STATE_CPU (sd, n);
+ PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
+ if (PROFILE_PC_COUNT (data) != NULL)
+ zfree (PROFILE_PC_COUNT (data));
+ PROFILE_PC_COUNT (data) = NULL;
+ if (PROFILE_PC_EVENT (data) != NULL)
+ sim_events_deschedule (sd, PROFILE_PC_EVENT (data));
+ PROFILE_PC_EVENT (data) = NULL;
+ }
+}
- sim_add_option_table (sd, profile_options);
- for (i = 0; i < MAX_NR_PROCESSORS; ++i)
- memset (CPU_PROFILE_DATA (STATE_CPU (sd, i)), 0,
- sizeof (* CPU_PROFILE_DATA (STATE_CPU (sd, i))));
- sim_module_add_uninstall_fn (sd, profile_uninstall);
+
+static void
+profile_pc_uninstall (SIM_DESC sd)
+{
+ profile_pc_cleanup (sd);
+}
+
+static void
+profile_pc_event (SIM_DESC sd,
+ void *data)
+{
+ sim_cpu *cpu = (sim_cpu*) data;
+ PROFILE_DATA *profile = CPU_PROFILE_DATA (cpu);
+ address_word pc;
+ unsigned i;
+ switch (STATE_WATCHPOINTS (sd)->sizeof_pc)
+ {
+ case 2: pc = *(unsigned_2*)(STATE_WATCHPOINTS (sd)->pc) ; break;
+ case 4: pc = *(unsigned_4*)(STATE_WATCHPOINTS (sd)->pc) ; break;
+ case 8: pc = *(unsigned_8*)(STATE_WATCHPOINTS (sd)->pc) ; break;
+ default: pc = 0;
+ }
+ i = (pc - PROFILE_PC_START (profile)) >> PROFILE_PC_SHIFT (profile);
+ if (i < PROFILE_PC_NR_BUCKETS (profile))
+ PROFILE_PC_COUNT (profile) [i] += 1; /* Overflow? */
+ else
+ PROFILE_PC_COUNT (profile) [PROFILE_PC_NR_BUCKETS (profile)] += 1;
+ PROFILE_PC_EVENT (profile) =
+ sim_events_schedule (sd, PROFILE_PC_FREQ (profile), profile_pc_event, cpu);
+}
+
+static SIM_RC
+profile_pc_init (SIM_DESC sd)
+{
+ int n;
+ profile_pc_cleanup (sd);
+ for (n = 0; n < MAX_NR_PROCESSORS; n++)
+ {
+ sim_cpu *cpu = STATE_CPU (sd, n);
+ PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
+ if (CPU_PROFILE_FLAGS (STATE_CPU (sd, n))[PROFILE_PC_IDX]
+ && STATE_WATCHPOINTS (sd)->pc != NULL)
+ {
+ int bucket_size;
+ /* fill in the frequency if not specified */
+ if (PROFILE_PC_FREQ (data) == 0)
+ PROFILE_PC_FREQ (data) = 256;
+ /* fill in the start/end if not specified */
+ if (PROFILE_PC_END (data) == 0)
+ {
+ PROFILE_PC_START (data) = STATE_TEXT_START (sd);
+ PROFILE_PC_END (data) = STATE_TEXT_END (sd);
+ }
+ /* Compute the number of buckets if not specified. */
+ if (PROFILE_PC_NR_BUCKETS (data) == 0)
+ {
+ if (PROFILE_PC_BUCKET_SIZE (data) == 0)
+ PROFILE_PC_NR_BUCKETS (data) = 16;
+ else
+ {
+ if (PROFILE_PC_END (data) == 0)
+ {
+ /* nr_buckets = (full-address-range / 2) / (bucket_size / 2) */
+ PROFILE_PC_NR_BUCKETS (data) =
+ ((1 << (STATE_WATCHPOINTS (sd)->sizeof_pc) * (8 - 1))
+ / (PROFILE_PC_BUCKET_SIZE (data) / 2));
+ }
+ else
+ {
+ PROFILE_PC_NR_BUCKETS (data) =
+ ((PROFILE_PC_END (data)
+ - PROFILE_PC_START (data)
+ + PROFILE_PC_BUCKET_SIZE (data) - 1)
+ / PROFILE_PC_BUCKET_SIZE (data));
+ }
+ }
+ }
+ /* Compute the bucket size if not specified. Ensure that it
+ is rounded up to the next power of two */
+ if (PROFILE_PC_BUCKET_SIZE (data) == 0)
+ {
+ if (PROFILE_PC_END (data) == 0)
+ /* bucket_size = (full-address-range / 2) / (nr_buckets / 2) */
+ bucket_size = ((1 << ((STATE_WATCHPOINTS (sd)->sizeof_pc * 8) - 1))
+ / (PROFILE_PC_NR_BUCKETS (data) / 2));
+ else
+ bucket_size = ((PROFILE_PC_END (data)
+ - PROFILE_PC_START (data)
+ + PROFILE_PC_NR_BUCKETS (data) - 1)
+ / PROFILE_PC_NR_BUCKETS (data));
+ PROFILE_PC_SHIFT (data) = 0;
+ while (bucket_size > PROFILE_PC_BUCKET_SIZE (data))
+ {
+ PROFILE_PC_SHIFT (data) += 1;
+ }
+ }
+ /* Align the end address with bucket size */
+ if (PROFILE_PC_END (data) != 0)
+ PROFILE_PC_END (data) = (PROFILE_PC_START (data)
+ + (PROFILE_PC_BUCKET_SIZE (data)
+ * PROFILE_PC_NR_BUCKETS (data)));
+ /* create the relevant buffers */
+ PROFILE_PC_COUNT (data) =
+ NZALLOC (unsigned, PROFILE_PC_NR_BUCKETS (data) + 1);
+ PROFILE_PC_EVENT (data) =
+ sim_events_schedule (sd,
+ PROFILE_PC_FREQ (data),
+ profile_pc_event,
+ cpu);
+ }
+ }
return SIM_RC_OK;
}
static void
-profile_uninstall (SIM_DESC sd)
+profile_print_pc (sim_cpu *cpu, int verbose)
{
- int i;
+ SIM_DESC sd = CPU_STATE (cpu);
+ PROFILE_DATA *profile = CPU_PROFILE_DATA (cpu);
+ char comma_buf[20];
+ unsigned max_val;
+ unsigned total;
+ unsigned i;
- for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+ if (PROFILE_PC_COUNT (profile) == 0)
+ return;
+
+ sim_io_printf (sd, "Program Counter Statistics:\n\n");
+
+ /* First pass over data computes various things. */
+ max_val = 0;
+ total = 0;
+ for (i = 0; i <= PROFILE_PC_NR_BUCKETS (profile); ++i)
{
- PROFILE_DATA *data = CPU_PROFILE_DATA (STATE_CPU (sd, i));
- if (PROFILE_FILE (data) != NULL)
- fclose (PROFILE_FILE (data));
+ total += PROFILE_PC_COUNT (profile) [i];
+ if (PROFILE_PC_COUNT (profile) [i] > max_val)
+ max_val = PROFILE_PC_COUNT (profile) [i];
+ }
+
+ sim_io_printf (sd, " Total samples: %s\n",
+ COMMAS (total));
+ sim_io_printf (sd, " Granularity: %s bytes per bucket\n",
+ COMMAS (PROFILE_PC_BUCKET_SIZE (profile)));
+ sim_io_printf (sd, " Size: %s buckets\n",
+ COMMAS (PROFILE_PC_NR_BUCKETS (profile)));
+ sim_io_printf (sd, " Frequency: %s cycles per sample\n",
+ COMMAS (PROFILE_PC_FREQ (profile)));
+
+ if (PROFILE_PC_END (profile) != 0)
+ sim_io_printf (sd, " Range: 0x%lx 0x%lx\n",
+ (long) PROFILE_PC_START (profile),
+ (long) PROFILE_PC_END (profile));
+
+ if (verbose && max_val != 0)
+ {
+ /* Now we can print the histogram. */
+ sim_io_printf (sd, "\n");
+ for (i = 0; i <= PROFILE_PC_NR_BUCKETS (profile); ++i)
+ {
+ if (PROFILE_PC_COUNT (profile) [i] != 0)
+ {
+ sim_io_printf (sd, " ");
+ if (i == PROFILE_PC_NR_BUCKETS (profile))
+ sim_io_printf (sd, "%10s:", "overflow");
+ else
+ sim_io_printf (sd, "0x%08lx:",
+ (long) (PROFILE_PC_START (profile)
+ + (i * PROFILE_PC_BUCKET_SIZE (profile))));
+ sim_io_printf (sd, " %*s",
+ max_val < 10000 ? 5 : 10,
+ COMMAS (PROFILE_PC_COUNT (profile) [i]));
+ sim_io_printf (sd, " %4.1f",
+ (PROFILE_PC_COUNT (profile) [i] * 100.0) / total);
+ sim_io_printf (sd, ": ");
+ sim_profile_print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
+ PROFILE_PC_COUNT (profile) [i],
+ max_val);
+ sim_io_printf (sd, "\n");
+ }
+ }
}
+
+ /* dump the histogram to the file "gmon.out" using BSD's gprof file
+ format */
+ /* Since a profile data file is in the native format of the host on
+ which the profile is being, endian issues are not considered in
+ the code below. */
+ /* FIXME: Is this the best place for this code? */
+ {
+ FILE *pf = fopen ("gmon.out", "wb");
+
+ if (pf == NULL)
+ sim_io_eprintf (sd, "Failed to open \"gmon.out\" profile file\n");
+ else
+ {
+ int ok;
+ /* FIXME: what if the target has a 64 bit PC? */
+ unsigned32 header[3];
+ unsigned loop;
+ if (PROFILE_PC_END (profile) != 0)
+ {
+ header[0] = PROFILE_PC_START (profile);
+ header[1] = PROFILE_PC_END (profile);
+ }
+ else
+ {
+ header[0] = 0;
+ header[1] = 0;
+ }
+ /* size of sample buffer (+ header) */
+ header[2] = PROFILE_PC_NR_BUCKETS (profile) * 2 + sizeof (header);
+
+ /* Header must be written out in target byte order. */
+ H2T (header[0]);
+ H2T (header[1]);
+ H2T (header[2]);
+
+ ok = fwrite (&header, sizeof (header), 1, pf);
+ for (loop = 0;
+ ok && (loop < PROFILE_PC_NR_BUCKETS (profile));
+ loop++)
+ {
+ signed16 sample;
+ if (PROFILE_PC_COUNT (profile) [loop] >= 0xffff)
+ sample = 0xffff;
+ else
+ sample = PROFILE_PC_COUNT (profile) [loop];
+ ok = fwrite (&sample, sizeof (sample), 1, pf);
+ }
+ if (ok == 0)
+ sim_io_eprintf (sd, "Failed to write to \"gmon.out\" profile file\n");
+ fclose(pf);
+ }
+ }
+
+ sim_io_printf (sd, "\n");
}
+
+#endif
\f
/* Summary printing support. */
#if WITH_PROFILE_INSN_P
+static SIM_RC
+profile_insn_init (SIM_DESC sd)
+{
+ int c;
+
+ for (c = 0; c < MAX_NR_PROCESSORS; ++c)
+ {
+ sim_cpu *cpu = STATE_CPU (sd, c);
+
+ if (CPU_MAX_INSNS (cpu) > 0)
+ PROFILE_INSN_COUNT (CPU_PROFILE_DATA (cpu)) = NZALLOC (unsigned int, CPU_MAX_INSNS (cpu));
+ }
+
+ return SIM_RC_OK;
+}
+
static void
profile_print_insn (sim_cpu *cpu, int verbose)
{
PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
char comma_buf[20];
- sim_io_printf (sd, "Instruction Statistics\n\n");
+ /* If MAX_INSNS not set, insn profiling isn't supported. */
+ if (CPU_MAX_INSNS (cpu) == 0)
+ return;
+
+ sim_io_printf (sd, "Instruction Statistics");
+#ifdef SIM_HAVE_ADDR_RANGE
+ if (PROFILE_RANGE (data)->ranges)
+ sim_io_printf (sd, " (for selected address range(s))");
+#endif
+ sim_io_printf (sd, "\n\n");
/* First pass over data computes various things. */
- max_val = total = max_name_len = 0;
- for (i = 1; i < MAX_INSNS; ++i)
+ max_val = 0;
+ total = 0;
+ max_name_len = 0;
+ for (i = 0; i < CPU_MAX_INSNS (cpu); ++i)
{
+ const char *name = (*CPU_INSN_NAME (cpu)) (cpu, i);
+
+ if (name == NULL)
+ continue;
total += PROFILE_INSN_COUNT (data) [i];
if (PROFILE_INSN_COUNT (data) [i] > max_val)
max_val = PROFILE_INSN_COUNT (data) [i];
- n = strlen (INSN_NAME (i));
+ n = strlen (name);
if (n > max_name_len)
max_name_len = n;
}
+ /* set the total insn count, in case client is being lazy */
+ if (! PROFILE_TOTAL_INSN_COUNT (data))
+ PROFILE_TOTAL_INSN_COUNT (data) = total;
sim_io_printf (sd, " Total: %s insns\n", COMMAS (total));
{
/* Now we can print the histogram. */
sim_io_printf (sd, "\n");
- for (i = 1; i < MAX_INSNS; ++i)
+ for (i = 0; i < CPU_MAX_INSNS (cpu); ++i)
{
+ const char *name = (*CPU_INSN_NAME (cpu)) (cpu, i);
+
+ if (name == NULL)
+ continue;
if (PROFILE_INSN_COUNT (data) [i] != 0)
{
sim_io_printf (sd, " %*s: %*s: ",
- max_name_len, INSN_NAME (i),
+ max_name_len, name,
max_val < 10000 ? 5 : 10,
COMMAS (PROFILE_INSN_COUNT (data) [i]));
- print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
- PROFILE_INSN_COUNT (data) [i],
- max_val);
+ sim_profile_print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
+ PROFILE_INSN_COUNT (data) [i],
+ max_val);
sim_io_printf (sd, "\n");
}
}
/* First pass over data computes various things. */
max_val = total_read = total_write = max_name_len = 0;
- for (i = 0; i < MAX_MODES; ++i)
+ for (i = 0; i < MODE_TARGET_MAX; ++i)
{
total_read += PROFILE_READ_COUNT (data) [i];
total_write += PROFILE_WRITE_COUNT (data) [i];
as the former swamps the latter. */
/* Now we can print the histogram. */
sim_io_printf (sd, "\n");
- for (i = 0; i < MAX_MODES; ++i)
+ for (i = 0; i < MODE_TARGET_MAX; ++i)
{
if (PROFILE_READ_COUNT (data) [i] != 0)
{
max_name_len, MODE_NAME (i),
max_val < 10000 ? 5 : 10,
COMMAS (PROFILE_READ_COUNT (data) [i]));
- print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
- PROFILE_READ_COUNT (data) [i],
- max_val);
+ sim_profile_print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
+ PROFILE_READ_COUNT (data) [i],
+ max_val);
sim_io_printf (sd, "\n");
}
if (PROFILE_WRITE_COUNT (data) [i] != 0)
max_name_len, MODE_NAME (i),
max_val < 10000 ? 5 : 10,
COMMAS (PROFILE_WRITE_COUNT (data) [i]));
- print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
- PROFILE_WRITE_COUNT (data) [i],
- max_val);
+ sim_profile_print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
+ PROFILE_WRITE_COUNT (data) [i],
+ max_val);
+ sim_io_printf (sd, "\n");
+ }
+ }
+ }
+
+ sim_io_printf (sd, "\n");
+}
+
+#endif
+
+#if WITH_PROFILE_CORE_P
+
+static void
+profile_print_core (sim_cpu *cpu, int verbose)
+{
+ unsigned int total;
+ unsigned int max_val;
+ /* FIXME: Need to add smp support. */
+ SIM_DESC sd = CPU_STATE (cpu);
+ PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
+ char comma_buf[20];
+
+ sim_io_printf (sd, "CORE Statistics\n\n");
+
+ /* First pass over data computes various things. */
+ {
+ unsigned map;
+ total = 0;
+ max_val = 0;
+ for (map = 0; map < nr_maps; map++)
+ {
+ total += PROFILE_CORE_COUNT (data) [map];
+ if (PROFILE_CORE_COUNT (data) [map] > max_val)
+ max_val = PROFILE_CORE_COUNT (data) [map];
+ }
+ }
+
+ /* One could use PROFILE_LABEL_WIDTH here. I chose not to. */
+ sim_io_printf (sd, " Total: %s accesses\n",
+ COMMAS (total));
+
+ if (verbose && max_val != 0)
+ {
+ unsigned map;
+ /* Now we can print the histogram. */
+ sim_io_printf (sd, "\n");
+ for (map = 0; map < nr_maps; map++)
+ {
+ if (PROFILE_CORE_COUNT (data) [map] != 0)
+ {
+ sim_io_printf (sd, "%10s:", map_to_str (map));
+ sim_io_printf (sd, "%*s: ",
+ max_val < 10000 ? 5 : 10,
+ COMMAS (PROFILE_CORE_COUNT (data) [map]));
+ sim_profile_print_bar (sd, PROFILE_HISTOGRAM_WIDTH,
+ PROFILE_CORE_COUNT (data) [map],
+ max_val);
sim_io_printf (sd, "\n");
}
}
{
SIM_DESC sd = CPU_STATE (cpu);
PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
- unsigned long cti_stalls = PROFILE_MODEL_CTI_STALL_COUNT (data);
- unsigned long load_stalls = PROFILE_MODEL_LOAD_STALL_COUNT (data);
- unsigned long total = PROFILE_MODEL_CYCLE_COUNT (data)
- + cti_stalls + load_stalls;
+ unsigned long cti_stall_cycles = PROFILE_MODEL_CTI_STALL_CYCLES (data);
+ unsigned long load_stall_cycles = PROFILE_MODEL_LOAD_STALL_CYCLES (data);
+ unsigned long total_cycles = PROFILE_MODEL_TOTAL_CYCLES (data);
char comma_buf[20];
- sim_io_printf (sd, "Model %s Timing Information\n\n",
- MODEL_NAME (STATE_MODEL (sd)));
+ sim_io_printf (sd, "Model %s Timing Information",
+ MODEL_NAME (CPU_MODEL (cpu)));
+#ifdef SIM_HAVE_ADDR_RANGE
+ if (PROFILE_RANGE (data)->ranges)
+ sim_io_printf (sd, " (for selected address range(s))");
+#endif
+ sim_io_printf (sd, "\n\n");
sim_io_printf (sd, " %-*s %s\n",
PROFILE_LABEL_WIDTH, "Taken branches:",
COMMAS (PROFILE_MODEL_TAKEN_COUNT (data)));
COMMAS (PROFILE_MODEL_UNTAKEN_COUNT (data)));
sim_io_printf (sd, " %-*s %s\n",
PROFILE_LABEL_WIDTH, "Cycles stalled due to branches:",
- COMMAS (cti_stalls));
+ COMMAS (cti_stall_cycles));
sim_io_printf (sd, " %-*s %s\n",
PROFILE_LABEL_WIDTH, "Cycles stalled due to loads:",
- COMMAS (load_stalls));
+ COMMAS (load_stall_cycles));
sim_io_printf (sd, " %-*s %s\n",
PROFILE_LABEL_WIDTH, "Total cycles (*approximate*):",
- COMMAS (total));
+ COMMAS (total_cycles));
sim_io_printf (sd, "\n");
}
#endif
-static void
-print_bar (SIM_DESC sd, unsigned int width,
- unsigned int val, unsigned int max_val)
+void
+sim_profile_print_bar (SIM_DESC sd, unsigned int width,
+ unsigned int val, unsigned int max_val)
{
unsigned int i, count;
{
SIM_DESC sd = CPU_STATE (cpu);
PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
- unsigned long milliseconds = PROFILE_EXEC_TIME (data);
+ unsigned long milliseconds = sim_events_elapsed_time (sd);
unsigned long total = PROFILE_TOTAL_INSN_COUNT (data);
+ double clock;
+ double secs;
char comma_buf[20];
sim_io_printf (sd, "Simulator Execution Speed\n\n");
if (total != 0)
- sim_io_printf (sd, " Total instructions: %s\n", COMMAS (total));
+ sim_io_printf (sd, " Total instructions: %s\n", COMMAS (total));
if (milliseconds < 1000)
- sim_io_printf (sd, " Total Execution Time: < 1 second\n\n");
+ sim_io_printf (sd, " Total execution time: < 1 second\n\n");
else
{
/* The printing of the time rounded to 2 decimal places makes the speed
calculation seem incorrect [even though it is correct]. So round
MILLISECONDS first. This can marginally affect the result, but it's
better that the user not perceive there's a math error. */
- double secs = (double) milliseconds / 1000;
+ secs = (double) milliseconds / 1000;
secs = ((double) (unsigned long) (secs * 100 + .5)) / 100;
- sim_io_printf (sd, " Total Execution Time: %.2f seconds\n", secs);
+ sim_io_printf (sd, " Total execution time : %.2f seconds\n", secs);
/* Don't confuse things with data that isn't useful.
If we ran for less than 2 seconds, only use the data if we
executed more than 100,000 insns. */
if (secs >= 2 || total >= 100000)
- sim_io_printf (sd, " Simulator Speed: %s insns/second\n\n",
+ sim_io_printf (sd, " Simulator speed: %s insns/second\n",
COMMAS ((unsigned long) ((double) total / secs)));
}
+
+ /* Print simulated execution time if the cpu frequency has been specified. */
+ clock = PROFILE_CPU_FREQ (data);
+ if (clock != 0)
+ {
+ if (clock >= 1000000)
+ sim_io_printf (sd, " Simulated cpu frequency: %.2f MHz\n",
+ clock / 1000000);
+ else
+ sim_io_printf (sd, " Simulated cpu frequency: %.2f Hz\n", clock);
+
+#if WITH_PROFILE_MODEL_P
+ if (PROFILE_FLAGS (data) [PROFILE_MODEL_IDX])
+ {
+ /* The printing of the time rounded to 2 decimal places makes the
+ speed calculation seem incorrect [even though it is correct].
+ So round SECS first. This can marginally affect the result,
+ but it's better that the user not perceive there's a math
+ error. */
+ secs = PROFILE_MODEL_TOTAL_CYCLES (data) / clock;
+ secs = ((double) (unsigned long) (secs * 100 + .5)) / 100;
+ sim_io_printf (sd, " Simulated execution time: %.2f seconds\n",
+ secs);
+ }
+#endif /* WITH_PROFILE_MODEL_P */
+ }
+}
+
+/* Print selected address ranges. */
+
+static void
+profile_print_addr_ranges (sim_cpu *cpu)
+{
+ ADDR_SUBRANGE *asr = PROFILE_RANGE (CPU_PROFILE_DATA (cpu))->ranges;
+ SIM_DESC sd = CPU_STATE (cpu);
+
+ if (asr)
+ {
+ sim_io_printf (sd, "Selected address ranges\n\n");
+ while (asr != NULL)
+ {
+ sim_io_printf (sd, " 0x%lx - 0x%lx\n",
+ (long) asr->start, (long) asr->end);
+ asr = asr->next;
+ }
+ sim_io_printf (sd, "\n");
+ }
}
/* Top level function to print all summary profile information.
Note that results are indented two spaces to distinguish them from
section titles. */
-void
-profile_print (SIM_DESC sd, int verbose,
- PROFILE_CALLBACK *misc, PROFILE_CPU_CALLBACK *misc_cpu)
+static void
+profile_info (SIM_DESC sd, int verbose)
{
int i,c;
int print_title_p = 0;
/* Only print the title if some data has been collected. */
+ /* ??? Why don't we just exit if no data collected? */
/* FIXME: If the number of processors can be selected on the command line,
then MAX_NR_PROCESSORS will need to take an argument of `sd'. */
sim_cpu *cpu = STATE_CPU (sd, c);
PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
- if (MAX_NR_PROCESSORS > 1)
- sim_io_printf (sd, "CPU %d\n\n", c);
+ if (MAX_NR_PROCESSORS > 1
+ && (0
+#if WITH_PROFILE_INSN_P
+ || PROFILE_FLAGS (data) [PROFILE_INSN_IDX]
+#endif
+#if WITH_PROFILE_MEMORY_P
+ || PROFILE_FLAGS (data) [PROFILE_MEMORY_IDX]
+#endif
+#if WITH_PROFILE_CORE_P
+ || PROFILE_FLAGS (data) [PROFILE_CORE_IDX]
+#endif
+#if WITH_PROFILE_MODEL_P
+ || PROFILE_FLAGS (data) [PROFILE_MODEL_IDX]
+#endif
+#if WITH_PROFILE_SCACHE_P && WITH_SCACHE
+ || PROFILE_FLAGS (data) [PROFILE_SCACHE_IDX]
+#endif
+#if WITH_PROFILE_PC_P
+ || PROFILE_FLAGS (data) [PROFILE_PC_IDX]
+#endif
+ ))
+ {
+ sim_io_printf (sd, "CPU %d\n\n", c);
+ }
+
+#ifdef SIM_HAVE_ADDR_RANGE
+ if (print_title_p
+ && (PROFILE_INSN_P (cpu)
+ || PROFILE_MODEL_P (cpu)))
+ profile_print_addr_ranges (cpu);
+#endif
#if WITH_PROFILE_INSN_P
if (PROFILE_FLAGS (data) [PROFILE_INSN_IDX])
profile_print_memory (cpu, verbose);
#endif
+#if WITH_PROFILE_CORE_P
+ if (PROFILE_FLAGS (data) [PROFILE_CORE_IDX])
+ profile_print_core (cpu, verbose);
+#endif
+
#if WITH_PROFILE_MODEL_P
if (PROFILE_FLAGS (data) [PROFILE_MODEL_IDX])
profile_print_model (cpu, verbose);
scache_print_profile (cpu, verbose);
#endif
+#if WITH_PROFILE_PC_P
+ if (PROFILE_FLAGS (data) [PROFILE_PC_IDX])
+ profile_print_pc (cpu, verbose);
+#endif
+
/* Print cpu-specific data before the execution speed. */
- if (misc_cpu != NULL)
- (*misc_cpu) (cpu, verbose);
+ if (PROFILE_INFO_CPU_CALLBACK (data) != NULL)
+ PROFILE_INFO_CPU_CALLBACK (data) (cpu, verbose);
/* Always try to print execution time and speed. */
if (verbose
}
/* Finally print non-cpu specific miscellaneous data. */
+ if (STATE_PROFILE_INFO_CALLBACK (sd))
+ STATE_PROFILE_INFO_CALLBACK (sd) (sd, verbose);
+
+}
+\f
+/* Install profiling support in the simulator. */
+
+SIM_RC
+profile_install (SIM_DESC sd)
+{
+ int i;
- if (misc != NULL)
- (*misc) (sd, verbose);
+ SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
+ sim_add_option_table (sd, NULL, profile_options);
+ for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+ memset (CPU_PROFILE_DATA (STATE_CPU (sd, i)), 0,
+ sizeof (* CPU_PROFILE_DATA (STATE_CPU (sd, i))));
+#if WITH_PROFILE_INSN_P
+ sim_module_add_init_fn (sd, profile_insn_init);
+#endif
+#if WITH_PROFILE_PC_P
+ sim_module_add_uninstall_fn (sd, profile_pc_uninstall);
+ sim_module_add_init_fn (sd, profile_pc_init);
+#endif
+ sim_module_add_init_fn (sd, profile_init);
+ sim_module_add_uninstall_fn (sd, profile_uninstall);
+ sim_module_add_info_fn (sd, profile_info);
+ return SIM_RC_OK;
+}
+
+static SIM_RC
+profile_init (SIM_DESC sd)
+{
+#ifdef SIM_HAVE_ADDR_RANGE
+ /* Check if a range has been specified without specifying what to
+ collect. */
+ {
+ int i;
+
+ for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+ {
+ sim_cpu *cpu = STATE_CPU (sd, i);
+
+ if (ADDR_RANGE_RANGES (PROFILE_RANGE (CPU_PROFILE_DATA (cpu)))
+ && ! (PROFILE_INSN_P (cpu)
+ || PROFILE_MODEL_P (cpu)))
+ {
+ sim_io_eprintf_cpu (cpu, "Profiling address range specified without --profile-insn or --profile-model.\n");
+ sim_io_eprintf_cpu (cpu, "Address range ignored.\n");
+ sim_addr_range_delete (PROFILE_RANGE (CPU_PROFILE_DATA (cpu)),
+ 0, ~ (address_word) 0);
+ }
+ }
+ }
+#endif
+
+ return SIM_RC_OK;
+}
+
+static void
+profile_uninstall (SIM_DESC sd)
+{
+ int i,j;
+
+ for (i = 0; i < MAX_NR_PROCESSORS; ++i)
+ {
+ sim_cpu *cpu = STATE_CPU (sd, i);
+ PROFILE_DATA *data = CPU_PROFILE_DATA (cpu);
+
+ if (PROFILE_FILE (data) != NULL)
+ {
+ /* If output from different cpus is going to the same file,
+ avoid closing the file twice. */
+ for (j = 0; j < i; ++j)
+ if (PROFILE_FILE (CPU_PROFILE_DATA (STATE_CPU (sd, j)))
+ == PROFILE_FILE (data))
+ break;
+ if (i == j)
+ fclose (PROFILE_FILE (data));
+ }
+
+ if (PROFILE_INSN_COUNT (data) != NULL)
+ zfree (PROFILE_INSN_COUNT (data));
+ }
}