509 lines
11 KiB
C
509 lines
11 KiB
C
/* Simulator hardware option handling.
|
||
Copyright (C) 1998 Free Software Foundation, Inc.
|
||
Contributed by Cygnus Support and Andrew Cagney.
|
||
|
||
This file is part of GDB, the GNU debugger.
|
||
|
||
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. */
|
||
|
||
#include "sim-main.h"
|
||
#include "sim-assert.h"
|
||
#include "sim-options.h"
|
||
|
||
#include "sim-hw.h"
|
||
|
||
#include "hw-tree.h"
|
||
#include "hw-device.h"
|
||
#include "hw-main.h"
|
||
#include "hw-base.h"
|
||
|
||
|
||
#ifdef HAVE_STRING_H
|
||
#include <string.h>
|
||
#else
|
||
#ifdef HAVE_STRINGS_H
|
||
#include <strings.h>
|
||
#endif
|
||
#endif
|
||
#ifdef HAVE_STDLIB_H
|
||
#include <stdlib.h>
|
||
#endif
|
||
#include <ctype.h>
|
||
#include <sys/errno.h>
|
||
|
||
|
||
struct sim_hw {
|
||
struct hw *tree;
|
||
int trace_p;
|
||
int info_p;
|
||
/* if called from a processor */
|
||
sim_cpu *cpu;
|
||
sim_cia cia;
|
||
};
|
||
|
||
|
||
struct hw *
|
||
sim_hw_parse (struct sim_state *sd,
|
||
const char *fmt,
|
||
...)
|
||
{
|
||
struct hw *current;
|
||
va_list ap;
|
||
va_start (ap, fmt);
|
||
current = hw_tree_vparse (STATE_HW (sd)->tree, fmt, ap);
|
||
va_end (ap);
|
||
return current;
|
||
}
|
||
|
||
struct printer {
|
||
struct sim_state *file;
|
||
void (*print) (struct sim_state *, const char *, va_list ap);
|
||
};
|
||
|
||
static void
|
||
do_print (void *file, const char *fmt, ...)
|
||
{
|
||
struct printer *p = file;
|
||
va_list ap;
|
||
va_start (ap, fmt);
|
||
p->print (p->file, fmt, ap);
|
||
va_end (ap);
|
||
}
|
||
|
||
void
|
||
sim_hw_print (struct sim_state *sd,
|
||
void (*print) (struct sim_state *, const char *, va_list ap))
|
||
{
|
||
struct printer p;
|
||
p.file = sd;
|
||
p.print = print;
|
||
hw_tree_print (STATE_HW (sd)->tree, do_print, &p);
|
||
}
|
||
|
||
|
||
|
||
|
||
/* command line options. */
|
||
|
||
enum {
|
||
OPTION_HW_INFO = OPTION_START,
|
||
OPTION_HW_TRACE,
|
||
OPTION_HW_DEVICE,
|
||
OPTION_HW_FILE,
|
||
};
|
||
|
||
static DECLARE_OPTION_HANDLER (hw_option_handler);
|
||
|
||
static const OPTION hw_options[] =
|
||
{
|
||
{ {"hw-info", no_argument, NULL, OPTION_HW_INFO },
|
||
'\0', NULL, "List configurable hw regions",
|
||
hw_option_handler },
|
||
{ {"info-hw", no_argument, NULL, OPTION_HW_INFO },
|
||
'\0', NULL, NULL,
|
||
hw_option_handler },
|
||
|
||
{ {"hw-trace", optional_argument, NULL, OPTION_HW_TRACE },
|
||
'\0', "on|off", "Trace all hardware devices",
|
||
hw_option_handler },
|
||
{ {"trace-hw", optional_argument, NULL, OPTION_HW_TRACE },
|
||
'\0', NULL, NULL,
|
||
hw_option_handler },
|
||
|
||
{ {"hw-device", required_argument, NULL, OPTION_HW_DEVICE },
|
||
'\0', "DEVICE", "Add the specified device",
|
||
hw_option_handler },
|
||
|
||
{ {"hw-file", required_argument, NULL, OPTION_HW_FILE },
|
||
'\0', "FILE", "Add the devices listed in the file",
|
||
hw_option_handler },
|
||
|
||
{ {NULL, no_argument, NULL, 0}, '\0', NULL, NULL, NULL }
|
||
};
|
||
|
||
|
||
|
||
/* Copied from ../ppc/psim.c:psim_merge_device_file() */
|
||
|
||
static SIM_RC
|
||
merge_device_file (struct sim_state *sd,
|
||
const char *file_name)
|
||
{
|
||
FILE *description;
|
||
struct hw *current = STATE_HW (sd)->tree;
|
||
int line_nr;
|
||
char device_path[1000];
|
||
|
||
/* try opening the file */
|
||
description = fopen (file_name, "r");
|
||
if (description == NULL)
|
||
{
|
||
perror (file_name);
|
||
return SIM_RC_FAIL;
|
||
}
|
||
|
||
line_nr = 0;
|
||
while (fgets (device_path, sizeof(device_path), description))
|
||
{
|
||
char *device;
|
||
/* check that a complete line was read */
|
||
if (strchr (device_path, '\n') == NULL)
|
||
{
|
||
fclose (description);
|
||
sim_io_eprintf (sd, "%s:%d: line to long", file_name, line_nr);
|
||
return SIM_RC_FAIL;
|
||
}
|
||
*strchr (device_path, '\n') = '\0';
|
||
line_nr++;
|
||
/* skip comments ("#" or ";") and blank lines lines */
|
||
for (device = device_path;
|
||
*device != '\0' && isspace (*device);
|
||
device++);
|
||
if (device[0] == '#'
|
||
|| device[0] == ';'
|
||
|| device[0] == '\0')
|
||
continue;
|
||
/* merge any appended lines */
|
||
while (device_path[strlen (device_path) - 1] == '\\')
|
||
{
|
||
int curlen = strlen (device_path) - 1;
|
||
/* zap the `\' at the end of the line */
|
||
device_path[curlen] = '\0';
|
||
/* append the next line */
|
||
if (!fgets (device_path + curlen,
|
||
sizeof (device_path) - curlen,
|
||
description))
|
||
{
|
||
fclose (description);
|
||
sim_io_eprintf (sd, "%s:%d: unexpected eof", file_name, line_nr);
|
||
return SIM_RC_FAIL;
|
||
}
|
||
if (strchr(device_path, '\n') == NULL)
|
||
{
|
||
fclose(description);
|
||
sim_io_eprintf (sd, "%s:%d: line to long", file_name, line_nr);
|
||
return SIM_RC_FAIL;
|
||
}
|
||
*strchr(device_path, '\n') = '\0';
|
||
line_nr++;
|
||
}
|
||
/* parse this line */
|
||
current = hw_tree_parse (current, "%s", device);
|
||
}
|
||
fclose (description);
|
||
return SIM_RC_OK;
|
||
}
|
||
|
||
|
||
static SIM_RC
|
||
hw_option_handler (struct sim_state *sd, sim_cpu *cpu, int opt,
|
||
char *arg, int is_command)
|
||
{
|
||
switch (opt)
|
||
{
|
||
|
||
case OPTION_HW_INFO:
|
||
{
|
||
/* delay info until after the tree is finished */
|
||
STATE_HW (sd)->info_p = 1;
|
||
return SIM_RC_OK;
|
||
break;
|
||
}
|
||
|
||
case OPTION_HW_TRACE:
|
||
{
|
||
if (arg == NULL)
|
||
{
|
||
STATE_HW (sd)->trace_p = 1;
|
||
}
|
||
else if (strcmp (arg, "yes") == 0
|
||
|| strcmp (arg, "on") == 0)
|
||
{
|
||
STATE_HW (sd)->trace_p = 1;
|
||
}
|
||
else if (strcmp (arg, "no") == 0
|
||
|| strcmp (arg, "off") == 0)
|
||
{
|
||
STATE_HW (sd)->trace_p = 0;
|
||
}
|
||
else
|
||
{
|
||
sim_io_eprintf (sd, "Option --hw-trace ignored\n");
|
||
/* set tracing on all devices */
|
||
return SIM_RC_FAIL;
|
||
}
|
||
/* FIXME: Not very nice - see also hw-base.c */
|
||
if (STATE_HW (sd)->trace_p)
|
||
hw_tree_parse (STATE_HW (sd)->tree, "/global-trace? true");
|
||
return SIM_RC_OK;
|
||
break;
|
||
}
|
||
|
||
case OPTION_HW_DEVICE:
|
||
{
|
||
hw_tree_parse (STATE_HW (sd)->tree, arg);
|
||
return SIM_RC_OK;
|
||
}
|
||
|
||
case OPTION_HW_FILE:
|
||
{
|
||
return merge_device_file (sd, arg);
|
||
}
|
||
|
||
default:
|
||
sim_io_eprintf (sd, "Unknown hw option %d\n", opt);
|
||
return SIM_RC_FAIL;
|
||
|
||
}
|
||
|
||
return SIM_RC_FAIL;
|
||
}
|
||
|
||
|
||
/* "hw" module install handler.
|
||
|
||
This is called via sim_module_install to install the "hw" subsystem
|
||
into the simulator. */
|
||
|
||
static MODULE_INIT_FN sim_hw_init;
|
||
static MODULE_UNINSTALL_FN sim_hw_uninstall;
|
||
|
||
SIM_RC
|
||
sim_hw_install (struct sim_state *sd)
|
||
{
|
||
SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
|
||
sim_add_option_table (sd, NULL, hw_options);
|
||
sim_module_add_uninstall_fn (sd, sim_hw_uninstall);
|
||
sim_module_add_init_fn (sd, sim_hw_init);
|
||
STATE_HW (sd) = ZALLOC (struct sim_hw);
|
||
STATE_HW (sd)->tree = hw_tree_create (sd, "core");
|
||
return SIM_RC_OK;
|
||
}
|
||
|
||
|
||
static SIM_RC
|
||
sim_hw_init (struct sim_state *sd)
|
||
{
|
||
/* FIXME: anything needed? */
|
||
hw_tree_finish (STATE_HW (sd)->tree);
|
||
if (STATE_HW (sd)->info_p)
|
||
sim_hw_print (sd, sim_io_vprintf);
|
||
return SIM_RC_OK;
|
||
}
|
||
|
||
/* Uninstall the "hw" subsystem from the simulator. */
|
||
|
||
static void
|
||
sim_hw_uninstall (struct sim_state *sd)
|
||
{
|
||
/* hw_tree_delete (STATE_HW (sd)->tree); */
|
||
zfree (STATE_HW (sd));
|
||
STATE_HW (sd) = NULL;
|
||
}
|
||
|
||
|
||
|
||
/* Data transfers to/from the hardware device tree. There are several
|
||
cases. */
|
||
|
||
|
||
/* CPU: The simulation is running and the current CPU/CIA
|
||
initiates a data transfer. */
|
||
|
||
void
|
||
sim_cpu_hw_io_read_buffer (sim_cpu *cpu,
|
||
sim_cia cia,
|
||
struct hw *hw,
|
||
void *dest,
|
||
int space,
|
||
unsigned_word addr,
|
||
unsigned nr_bytes)
|
||
{
|
||
SIM_DESC sd = CPU_STATE (cpu);
|
||
STATE_HW (sd)->cpu = cpu;
|
||
STATE_HW (sd)->cia = cia;
|
||
if (hw_io_read_buffer (hw, dest, space, addr, nr_bytes) != nr_bytes)
|
||
sim_engine_abort (sd, cpu, cia, "broken CPU read");
|
||
}
|
||
|
||
void
|
||
sim_cpu_hw_io_write_buffer (sim_cpu *cpu,
|
||
sim_cia cia,
|
||
struct hw *hw,
|
||
const void *source,
|
||
int space,
|
||
unsigned_word addr,
|
||
unsigned nr_bytes)
|
||
{
|
||
SIM_DESC sd = CPU_STATE (cpu);
|
||
STATE_HW (sd)->cpu = cpu;
|
||
STATE_HW (sd)->cia = cia;
|
||
if (hw_io_write_buffer (hw, source, space, addr, nr_bytes) != nr_bytes)
|
||
sim_engine_abort (sd, cpu, cia, "broken CPU write");
|
||
}
|
||
|
||
|
||
|
||
|
||
/* SYSTEM: A data transfer is being initiated by the system. */
|
||
|
||
unsigned
|
||
sim_hw_io_read_buffer (struct sim_state *sd,
|
||
struct hw *hw,
|
||
void *dest,
|
||
int space,
|
||
unsigned_word addr,
|
||
unsigned nr_bytes)
|
||
{
|
||
STATE_HW (sd)->cpu = NULL;
|
||
return hw_io_read_buffer (hw, dest, space, addr, nr_bytes);
|
||
}
|
||
|
||
unsigned
|
||
sim_hw_io_write_buffer (struct sim_state *sd,
|
||
struct hw *hw,
|
||
const void *source,
|
||
int space,
|
||
unsigned_word addr,
|
||
unsigned nr_bytes)
|
||
{
|
||
STATE_HW (sd)->cpu = NULL;
|
||
return hw_io_write_buffer (hw, source, space, addr, nr_bytes);
|
||
}
|
||
|
||
|
||
|
||
/* Abort the simulation specifying HW as the reason */
|
||
|
||
void
|
||
hw_vabort (struct hw *me,
|
||
const char *fmt,
|
||
va_list ap)
|
||
{
|
||
const char *name;
|
||
char *msg;
|
||
/* find an identity */
|
||
if (me != NULL && hw_path (me) != NULL && hw_path (me) [0] != '\0')
|
||
name = hw_path (me);
|
||
else if (me != NULL && hw_name (me) != NULL && hw_name (me)[0] != '\0')
|
||
name = hw_name (me);
|
||
else if (me != NULL && hw_family (me) != NULL && hw_family (me)[0] != '\0')
|
||
name = hw_family (me);
|
||
else
|
||
name = "device";
|
||
/* construct an updated format string */
|
||
msg = alloca (strlen (name) + strlen (": ") + strlen (fmt) + 1);
|
||
strcpy (msg, name);
|
||
strcat (msg, ": ");
|
||
strcat (msg, fmt);
|
||
/* report the problem */
|
||
sim_engine_vabort (hw_system (me),
|
||
STATE_HW (hw_system (me))->cpu,
|
||
STATE_HW (hw_system (me))->cia,
|
||
msg, ap);
|
||
}
|
||
|
||
void
|
||
hw_abort (struct hw *me,
|
||
const char *fmt,
|
||
...)
|
||
{
|
||
va_list ap;
|
||
/* report the problem */
|
||
va_start (ap, fmt);
|
||
hw_vabort (me, fmt, ap);
|
||
va_end (ap);
|
||
}
|
||
|
||
void
|
||
sim_hw_abort (struct sim_state *sd,
|
||
struct hw *me,
|
||
const char *fmt,
|
||
...)
|
||
{
|
||
va_list ap;
|
||
va_start (ap, fmt);
|
||
if (me == NULL)
|
||
sim_engine_vabort (sd, NULL, NULL_CIA, fmt, ap);
|
||
else
|
||
hw_vabort (me, fmt, ap);
|
||
va_end (ap);
|
||
}
|
||
|
||
|
||
/* MISC routines to tie HW into the rest of the system */
|
||
|
||
void
|
||
hw_halt (struct hw *me,
|
||
int reason,
|
||
int status)
|
||
{
|
||
struct sim_state *sd = hw_system (me);
|
||
struct sim_hw *sim = STATE_HW (sd);
|
||
sim_engine_halt (sd, sim->cpu, NULL, sim->cia, reason, status);
|
||
}
|
||
|
||
struct _sim_cpu *
|
||
hw_system_cpu (struct hw *me)
|
||
{
|
||
return STATE_HW (hw_system (me))->cpu;
|
||
}
|
||
|
||
void
|
||
hw_trace (struct hw *me,
|
||
const char *fmt,
|
||
...)
|
||
{
|
||
if (hw_trace_p (me)) /* to be sure, to be sure */
|
||
{
|
||
va_list ap;
|
||
va_start (ap, fmt);
|
||
sim_io_eprintf (hw_system (me), "%s: ", hw_path (me));
|
||
sim_io_evprintf (hw_system (me), fmt, ap);
|
||
sim_io_eprintf (hw_system (me), "\n");
|
||
va_end (ap);
|
||
}
|
||
}
|
||
|
||
|
||
/* Based on gdb-4.17/sim/ppc/main.c:sim_io_read_stdin() */
|
||
|
||
int
|
||
do_hw_poll_read (struct hw *me,
|
||
do_hw_poll_read_method *read,
|
||
int sim_io_fd,
|
||
void *buf,
|
||
unsigned sizeof_buf)
|
||
{
|
||
int status = read (hw_system (me), sim_io_fd, buf, sizeof_buf);
|
||
if (status > 0)
|
||
return status;
|
||
else if (status == 0 && sizeof_buf == 0)
|
||
return 0;
|
||
else if (status == 0)
|
||
return HW_IO_EOF;
|
||
else /* status < 0 */
|
||
{
|
||
#ifdef EAGAIN
|
||
if (STATE_CALLBACK (hw_system (me))->last_errno == EAGAIN)
|
||
return HW_IO_NOT_READY;
|
||
else
|
||
return HW_IO_EOF;
|
||
#else
|
||
return HW_IO_EOF;
|
||
#endif
|
||
}
|
||
}
|