#include "sim-main.h"
#include "sim-io.h"
#include "sim-options.h"
#include "sim-assert.h"
#if WITH_HW
#include "sim-hw.h"
#endif
#include "libiberty.h"
static MODULE_INSTALL_FN * const modules[] = {
standard_install,
sim_events_install,
#ifdef SIM_HAVE_MODEL
sim_model_install,
#endif
#if WITH_ENGINE
sim_engine_install,
#endif
#if WITH_TRACE
trace_install,
#endif
#if WITH_PROFILE
profile_install,
#endif
sim_core_install,
#ifndef SIM_HAVE_FLATMEM
sim_memopt_install,
#endif
#if WITH_WATCHPOINTS
sim_watchpoint_install,
#endif
#if WITH_SCACHE
scache_install,
#endif
#ifdef SIM_HAVE_BREAKPOINTS
sim_break_install,
#endif
#if WITH_HW
sim_hw_install,
#endif
#ifdef MODULE_LIST
MODULE_LIST
#endif
0
};
SIM_RC
sim_pre_argv_init (SIM_DESC sd, const char *myname)
{
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) == NULL);
STATE_MY_NAME (sd) = myname + strlen (myname);
while (STATE_MY_NAME (sd) > myname && STATE_MY_NAME (sd)[-1] != '/')
--STATE_MY_NAME (sd);
{
int i;
for (i = 0; i < MAX_NR_PROCESSORS; ++i)
{
char *name;
asprintf (&name, "cpu%d", i);
CPU_NAME (STATE_CPU (sd, i)) = name;
}
}
sim_config_default (sd);
if (sim_module_install (sd) != SIM_RC_OK)
return SIM_RC_FAIL;
return SIM_RC_OK;
}
SIM_RC
sim_post_argv_init (SIM_DESC sd)
{
int i;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
for (i = 0; i < MAX_NR_PROCESSORS; ++i)
{
CPU_STATE (STATE_CPU (sd, i)) = sd;
CPU_INDEX (STATE_CPU (sd, i)) = i;
}
if (sim_module_init (sd) != SIM_RC_OK)
return SIM_RC_FAIL;
return SIM_RC_OK;
}
SIM_RC
sim_module_install (SIM_DESC sd)
{
MODULE_INSTALL_FN * const *modp;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) == NULL);
STATE_MODULES (sd) = ZALLOC (struct module_list);
for (modp = modules; *modp != NULL; ++modp)
{
if ((*modp) (sd) != SIM_RC_OK)
{
sim_module_uninstall (sd);
SIM_ASSERT (STATE_MODULES (sd) == NULL);
return SIM_RC_FAIL;
}
}
return SIM_RC_OK;
}
SIM_RC
sim_module_init (SIM_DESC sd)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_INIT_LIST *modp;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
for (modp = modules->init_list; modp != NULL; modp = modp->next)
{
if ((*modp->fn) (sd) != SIM_RC_OK)
return SIM_RC_FAIL;
}
return SIM_RC_OK;
}
SIM_RC
sim_module_resume (SIM_DESC sd)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_RESUME_LIST *modp;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
for (modp = modules->resume_list; modp != NULL; modp = modp->next)
{
if ((*modp->fn) (sd) != SIM_RC_OK)
return SIM_RC_FAIL;
}
return SIM_RC_OK;
}
SIM_RC
sim_module_suspend (SIM_DESC sd)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_SUSPEND_LIST *modp;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
for (modp = modules->suspend_list; modp != NULL; modp = modp->next)
{
if ((*modp->fn) (sd) != SIM_RC_OK)
return SIM_RC_FAIL;
}
return SIM_RC_OK;
}
void
sim_module_uninstall (SIM_DESC sd)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_UNINSTALL_LIST *modp;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
for (modp = modules->uninstall_list; modp != NULL; modp = modp->next)
(*modp->fn) (sd);
{
MODULE_INIT_LIST *n, *d;
for (d = modules->init_list; d != NULL; d = n)
{
n = d->next;
zfree (d);
}
}
{
MODULE_RESUME_LIST *n, *d;
for (d = modules->resume_list; d != NULL; d = n)
{
n = d->next;
zfree (d);
}
}
{
MODULE_SUSPEND_LIST *n, *d;
for (d = modules->suspend_list; d != NULL; d = n)
{
n = d->next;
zfree (d);
}
}
{
MODULE_UNINSTALL_LIST *n, *d;
for (d = modules->uninstall_list; d != NULL; d = n)
{
n = d->next;
zfree (d);
}
}
{
MODULE_INFO_LIST *n, *d;
for (d = modules->info_list; d != NULL; d = n)
{
n = d->next;
zfree (d);
}
}
zfree (modules);
STATE_MODULES (sd) = NULL;
}
void
sim_module_info (SIM_DESC sd, int verbose)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_INFO_LIST *modp;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
for (modp = modules->info_list; modp != NULL; modp = modp->next)
{
(*modp->fn) (sd, verbose);
}
}
void
sim_module_add_init_fn (SIM_DESC sd, MODULE_INIT_FN fn)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_INIT_LIST *l = ZALLOC (MODULE_INIT_LIST);
MODULE_INIT_LIST **last;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
last = &modules->init_list;
while (*last != NULL)
last = &((*last)->next);
l->fn = fn;
l->next = NULL;
*last = l;
}
void
sim_module_add_resume_fn (SIM_DESC sd, MODULE_RESUME_FN fn)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_RESUME_LIST *l = ZALLOC (MODULE_RESUME_LIST);
MODULE_RESUME_LIST **last;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
last = &modules->resume_list;
while (*last != NULL)
last = &((*last)->next);
l->fn = fn;
l->next = NULL;
*last = l;
}
void
sim_module_add_suspend_fn (SIM_DESC sd, MODULE_SUSPEND_FN fn)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_SUSPEND_LIST *l = ZALLOC (MODULE_SUSPEND_LIST);
MODULE_SUSPEND_LIST **last;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
last = &modules->suspend_list;
while (*last != NULL)
last = &((*last)->next);
l->fn = fn;
l->next = modules->suspend_list;
modules->suspend_list = l;
}
void
sim_module_add_uninstall_fn (SIM_DESC sd, MODULE_UNINSTALL_FN fn)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_UNINSTALL_LIST *l = ZALLOC (MODULE_UNINSTALL_LIST);
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
l->fn = fn;
l->next = modules->uninstall_list;
modules->uninstall_list = l;
}
void
sim_module_add_info_fn (SIM_DESC sd, MODULE_INFO_FN fn)
{
struct module_list *modules = STATE_MODULES (sd);
MODULE_INFO_LIST *l = ZALLOC (MODULE_INFO_LIST);
MODULE_INFO_LIST **last;
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
SIM_ASSERT (STATE_MODULES (sd) != NULL);
last = &modules->info_list;
while (*last != NULL)
last = &((*last)->next);
l->fn = fn;
l->next = NULL;
*last = l;
}