325 lines
6.5 KiB
C
325 lines
6.5 KiB
C
/* This file is part of the program psim.
|
|
|
|
Copyright (C) 1994-1997, Andrew Cagney <cagney@highland.com.au>
|
|
|
|
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 of the License, 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 <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <fcntl.h>
|
|
|
|
#include <signal.h>
|
|
|
|
#include "psim.h"
|
|
#include "options.h"
|
|
#include "device.h" /* FIXME: psim should provide the interface */
|
|
#include "events.h" /* FIXME: psim should provide the interface */
|
|
|
|
#ifdef HAVE_STDLIB_H
|
|
#include <stdlib.h>
|
|
#endif
|
|
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
#ifdef HAVE_STRING_H
|
|
#include <string.h>
|
|
#else
|
|
#ifdef HAVE_STRINGS_H
|
|
#include <strings.h>
|
|
#endif
|
|
#endif
|
|
|
|
#include <errno.h>
|
|
|
|
#if !defined(O_NDELAY) || !defined(F_GETFL) || !defined(F_SETFL)
|
|
#undef WITH_STDIO
|
|
#define WITH_STDIO DO_USE_STDIO
|
|
#endif
|
|
|
|
|
|
extern char **environ;
|
|
|
|
static psim *simulation = NULL;
|
|
|
|
|
|
void
|
|
sim_io_printf_filtered(const char *msg, ...)
|
|
{
|
|
va_list ap;
|
|
va_start(ap, msg);
|
|
vprintf(msg, ap);
|
|
va_end(ap);
|
|
}
|
|
|
|
void
|
|
error (char *msg, ...)
|
|
{
|
|
va_list ap;
|
|
va_start(ap, msg);
|
|
vprintf(msg, ap);
|
|
printf("\n");
|
|
va_end(ap);
|
|
|
|
/* any final clean up */
|
|
if (ppc_trace[trace_print_info] && simulation != NULL)
|
|
psim_print_info (simulation, ppc_trace[trace_print_info]);
|
|
|
|
exit (1);
|
|
}
|
|
|
|
int
|
|
sim_io_write_stdout(const char *buf,
|
|
int sizeof_buf)
|
|
{
|
|
switch (CURRENT_STDIO) {
|
|
case DO_USE_STDIO:
|
|
{
|
|
int i;
|
|
for (i = 0; i < sizeof_buf; i++) {
|
|
putchar(buf[i]);
|
|
}
|
|
return i;
|
|
}
|
|
break;
|
|
case DONT_USE_STDIO:
|
|
return write(1, buf, sizeof_buf);
|
|
break;
|
|
default:
|
|
error("sim_io_write_stdout: invalid switch\n");
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
sim_io_write_stderr(const char *buf,
|
|
int sizeof_buf)
|
|
{
|
|
switch (CURRENT_STDIO) {
|
|
case DO_USE_STDIO:
|
|
{
|
|
int i;
|
|
for (i = 0; i < sizeof_buf; i++) {
|
|
fputc(buf[i], stderr);
|
|
}
|
|
return i;
|
|
}
|
|
break;
|
|
case DONT_USE_STDIO:
|
|
return write(2, buf, sizeof_buf);
|
|
break;
|
|
default:
|
|
error("sim_io_write_stdout: invalid switch\n");
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
sim_io_read_stdin(char *buf,
|
|
int sizeof_buf)
|
|
{
|
|
switch (CURRENT_STDIO) {
|
|
case DO_USE_STDIO:
|
|
if (sizeof_buf > 1) {
|
|
if (fgets(buf, sizeof_buf, stdin) != NULL)
|
|
return strlen(buf);
|
|
}
|
|
else if (sizeof_buf == 1) {
|
|
char b[2];
|
|
if (fgets(b, sizeof(b), stdin) != NULL) {
|
|
memcpy(buf, b, strlen(b));
|
|
return strlen(b);
|
|
}
|
|
}
|
|
else if (sizeof_buf == 0)
|
|
return 0;
|
|
return sim_io_eof;
|
|
break;
|
|
case DONT_USE_STDIO:
|
|
#if defined(O_NDELAY) && defined(F_GETFL) && defined(F_SETFL)
|
|
{
|
|
/* check for input */
|
|
int flags;
|
|
int status;
|
|
int nr_read;
|
|
int result;
|
|
/* get the old status */
|
|
flags = fcntl(0, F_GETFL, 0);
|
|
if (flags == -1) {
|
|
perror("sim_io_read_stdin");
|
|
return sim_io_eof;
|
|
}
|
|
/* temp, disable blocking IO */
|
|
status = fcntl(0, F_SETFL, flags | O_NDELAY);
|
|
if (status == -1) {
|
|
perror("sim_io_read_stdin");
|
|
return sim_io_eof;
|
|
}
|
|
/* try for input */
|
|
nr_read = read(0, buf, sizeof_buf);
|
|
if (nr_read > 0
|
|
|| (nr_read == 0 && sizeof_buf == 0))
|
|
result = nr_read;
|
|
else if (nr_read == 0)
|
|
result = sim_io_eof;
|
|
else { /* nr_read < 0 */
|
|
if (errno == EAGAIN)
|
|
result = sim_io_not_ready;
|
|
else
|
|
result = sim_io_eof;
|
|
}
|
|
/* return to regular vewing */
|
|
status = fcntl(0, F_SETFL, flags);
|
|
if (status == -1) {
|
|
perror("sim_io_read_stdin");
|
|
return sim_io_eof;
|
|
}
|
|
return result;
|
|
}
|
|
break;
|
|
#endif
|
|
default:
|
|
error("sim_io_read_stdin: invalid switch\n");
|
|
break;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
void
|
|
sim_io_flush_stdoutput(void)
|
|
{
|
|
switch (CURRENT_STDIO) {
|
|
case DO_USE_STDIO:
|
|
fflush (stdout);
|
|
break;
|
|
case DONT_USE_STDIO:
|
|
break;
|
|
default:
|
|
error("sim_io_flush_stdoutput: invalid switch\n");
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
void *
|
|
zalloc(long size)
|
|
{
|
|
void *memory = malloc(size);
|
|
if (memory == NULL)
|
|
error("zmalloc failed\n");
|
|
memset(memory, 0, size);
|
|
return memory;
|
|
}
|
|
|
|
void
|
|
zfree(void *chunk)
|
|
{
|
|
free(chunk);
|
|
}
|
|
|
|
/* When a CNTRL-C occures, queue an event to shut down the simulation */
|
|
|
|
static void
|
|
cntrl_c_simulation(void *data)
|
|
{
|
|
psim_halt(simulation,
|
|
psim_nr_cpus(simulation),
|
|
was_signalled,
|
|
SIGINT);
|
|
}
|
|
|
|
static RETSIGTYPE
|
|
cntrl_c(int sig)
|
|
{
|
|
event_queue_schedule_after_signal(psim_event_queue(simulation),
|
|
0 /*NOW*/,
|
|
cntrl_c_simulation,
|
|
NULL);
|
|
}
|
|
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
const char *name_of_file;
|
|
char *arg_;
|
|
psim_status status;
|
|
device *root = psim_tree();
|
|
|
|
/* parse the arguments */
|
|
argv = psim_options(root, argv + 1);
|
|
if (argv[0] == NULL) {
|
|
if (ppc_trace[trace_opts]) {
|
|
print_options ();
|
|
return 0;
|
|
} else {
|
|
psim_usage(0);
|
|
}
|
|
}
|
|
name_of_file = argv[0];
|
|
|
|
if (ppc_trace[trace_opts])
|
|
print_options ();
|
|
|
|
/* create the simulator */
|
|
simulation = psim_create(name_of_file, root);
|
|
|
|
/* fudge the environment so that _=prog-name */
|
|
arg_ = (char*)zalloc(strlen(argv[0]) + strlen("_=") + 1);
|
|
strcpy(arg_, "_=");
|
|
strcat(arg_, argv[0]);
|
|
putenv(arg_);
|
|
|
|
/* initialize it */
|
|
psim_init(simulation);
|
|
psim_stack(simulation, argv, environ);
|
|
|
|
{
|
|
RETSIGTYPE (*prev) ();
|
|
prev = signal(SIGINT, cntrl_c);
|
|
psim_run(simulation);
|
|
signal(SIGINT, prev);
|
|
}
|
|
|
|
/* any final clean up */
|
|
if (ppc_trace[trace_print_info])
|
|
psim_print_info (simulation, ppc_trace[trace_print_info]);
|
|
|
|
/* why did we stop */
|
|
status = psim_get_status(simulation);
|
|
switch (status.reason) {
|
|
case was_continuing:
|
|
error("psim: continuing while stoped!\n");
|
|
return 0;
|
|
case was_trap:
|
|
error("psim: no trap insn\n");
|
|
return 0;
|
|
case was_exited:
|
|
return status.signal;
|
|
case was_signalled:
|
|
printf ("%s: Caught signal %d at address 0x%lx\n",
|
|
name_of_file, (int)status.signal,
|
|
(long)status.program_counter);
|
|
return status.signal;
|
|
default:
|
|
error("unknown halt condition\n");
|
|
return 0;
|
|
}
|
|
}
|