168 lines
3.4 KiB
C
168 lines
3.4 KiB
C
/* This file is part of the program psim.
|
|
|
|
Copyright (C) 1994-1995, 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 "psim.h"
|
|
#include "function_unit.h"
|
|
|
|
#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
|
|
|
|
extern char **environ;
|
|
extern char *optarg;
|
|
extern int optind;
|
|
extern int optopt;
|
|
extern int opterr;
|
|
|
|
void
|
|
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);
|
|
va_end(ap);
|
|
exit (1);
|
|
}
|
|
|
|
void *
|
|
zalloc(long size)
|
|
{
|
|
void *memory = malloc(size);
|
|
if (memory == NULL)
|
|
error("zmalloc failed\n");
|
|
bzero(memory, size);
|
|
return memory;
|
|
}
|
|
|
|
void
|
|
zfree(void *chunk)
|
|
{
|
|
free(chunk);
|
|
}
|
|
|
|
static void
|
|
usage(void)
|
|
{
|
|
printf_filtered("Usage:\n\tpsim [ -t <trace-option> ] [-m model] [-i] [-I] <image> [ <image-args> ... ]\n");
|
|
trace_usage();
|
|
error("");
|
|
}
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
psim *system;
|
|
const char *name_of_file;
|
|
char *arg_;
|
|
psim_status status;
|
|
int letter;
|
|
int print_info = 0;
|
|
|
|
/* check for arguments -- note sim_calls.c also contains argument processing
|
|
code for the simulator linked within gdb. */
|
|
while ((letter = getopt (argc, argv, "Iim:t:")) != EOF)
|
|
{
|
|
switch (letter) {
|
|
case 't':
|
|
trace_option(optarg);
|
|
break;
|
|
case 'm':
|
|
function_unit_model(optarg);
|
|
break;
|
|
case 'i':
|
|
print_info = 1;
|
|
break;
|
|
case 'I':
|
|
print_info = 2;
|
|
break;
|
|
default:
|
|
usage();
|
|
}
|
|
}
|
|
if (optind >= argc)
|
|
usage();
|
|
name_of_file = argv[optind];
|
|
|
|
/* create the simulator */
|
|
system = psim_create(name_of_file);
|
|
|
|
/* fudge the environment so that _=prog-name */
|
|
arg_ = (char*)zalloc(strlen(argv[optind]) + strlen("_=") + 1);
|
|
strcpy(arg_, "_=");
|
|
strcat(arg_, argv[optind]);
|
|
putenv(arg_);
|
|
|
|
/* initialize it */
|
|
psim_init(system);
|
|
psim_stack(system, &argv[optind], environ);
|
|
|
|
psim_run(system);
|
|
|
|
/* any final clean up */
|
|
if (print_info)
|
|
psim_print_info (system, print_info);
|
|
|
|
/* why did we stop */
|
|
status = psim_get_status(system);
|
|
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;
|
|
}
|
|
}
|