16ca2c52aSchristos /* main.c --- main function for stand-alone RL78 simulator.
26ca2c52aSchristos
3*184b2d41Schristos Copyright (C) 2011-2020 Free Software Foundation, Inc.
46ca2c52aSchristos Contributed by Red Hat, Inc.
56ca2c52aSchristos
66ca2c52aSchristos This file is part of the GNU simulators.
76ca2c52aSchristos
86ca2c52aSchristos This program is free software; you can redistribute it and/or modify
96ca2c52aSchristos it under the terms of the GNU General Public License as published by
106ca2c52aSchristos the Free Software Foundation; either version 3 of the License, or
116ca2c52aSchristos (at your option) any later version.
126ca2c52aSchristos
136ca2c52aSchristos This program is distributed in the hope that it will be useful,
146ca2c52aSchristos but WITHOUT ANY WARRANTY; without even the implied warranty of
156ca2c52aSchristos MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
166ca2c52aSchristos GNU General Public License for more details.
176ca2c52aSchristos
186ca2c52aSchristos You should have received a copy of the GNU General Public License
196ca2c52aSchristos along with this program. If not, see <http://www.gnu.org/licenses/>.
206ca2c52aSchristos */
216ca2c52aSchristos
226ca2c52aSchristos
236ca2c52aSchristos #include "config.h"
246ca2c52aSchristos #include <stdio.h>
256ca2c52aSchristos #include <string.h>
266ca2c52aSchristos #include <stdlib.h>
276ca2c52aSchristos #ifdef HAVE_UNISTD_H
286ca2c52aSchristos #include <unistd.h>
296ca2c52aSchristos #endif
306ca2c52aSchristos #include <assert.h>
316ca2c52aSchristos #include <setjmp.h>
326ca2c52aSchristos #include <signal.h>
336ca2c52aSchristos #ifdef HAVE_GETOPT_H
346ca2c52aSchristos #include <getopt.h>
356ca2c52aSchristos #endif
366ca2c52aSchristos
376ca2c52aSchristos #include "libiberty.h"
386ca2c52aSchristos #include "bfd.h"
396ca2c52aSchristos
406ca2c52aSchristos #include "cpu.h"
416ca2c52aSchristos #include "mem.h"
426ca2c52aSchristos #include "load.h"
436ca2c52aSchristos #include "trace.h"
446ca2c52aSchristos
456ca2c52aSchristos static int disassemble = 0;
466ca2c52aSchristos static const char * dump_counts_filename = NULL;
476ca2c52aSchristos
486ca2c52aSchristos static void
done(int exit_code)496ca2c52aSchristos done (int exit_code)
506ca2c52aSchristos {
516ca2c52aSchristos if (verbose)
526ca2c52aSchristos {
536ca2c52aSchristos printf ("Exit code: %d\n", exit_code);
546ca2c52aSchristos printf ("total clocks: %lld\n", total_clocks);
556ca2c52aSchristos }
566ca2c52aSchristos if (dump_counts_filename)
576ca2c52aSchristos dump_counts_per_insn (dump_counts_filename);
586ca2c52aSchristos exit (exit_code);
596ca2c52aSchristos }
606ca2c52aSchristos
616ca2c52aSchristos int
main(int argc,char ** argv)626ca2c52aSchristos main (int argc, char **argv)
636ca2c52aSchristos {
646ca2c52aSchristos int o;
656ca2c52aSchristos int save_trace;
666ca2c52aSchristos bfd *prog;
676ca2c52aSchristos int rc;
686ca2c52aSchristos
696ca2c52aSchristos xmalloc_set_program_name (argv[0]);
706ca2c52aSchristos
716ca2c52aSchristos while ((o = getopt (argc, argv, "tvdr:D:M:")) != -1)
726ca2c52aSchristos {
736ca2c52aSchristos switch (o)
746ca2c52aSchristos {
756ca2c52aSchristos case 't':
766ca2c52aSchristos trace ++;
776ca2c52aSchristos break;
786ca2c52aSchristos case 'v':
796ca2c52aSchristos verbose ++;
806ca2c52aSchristos break;
816ca2c52aSchristos case 'd':
826ca2c52aSchristos disassemble ++;
836ca2c52aSchristos break;
846ca2c52aSchristos case 'r':
856ca2c52aSchristos mem_ram_size (atoi (optarg));
866ca2c52aSchristos break;
876ca2c52aSchristos case 'D':
886ca2c52aSchristos dump_counts_filename = optarg;
896ca2c52aSchristos break;
906ca2c52aSchristos case 'M':
916ca2c52aSchristos if (strcmp (optarg, "g10") == 0)
926ca2c52aSchristos {
936ca2c52aSchristos rl78_g10_mode = 1;
946ca2c52aSchristos g13_multiply = 0;
956ca2c52aSchristos g14_multiply = 0;
966ca2c52aSchristos mem_set_mirror (0, 0xf8000, 4096);
976ca2c52aSchristos }
986ca2c52aSchristos if (strcmp (optarg, "g13") == 0)
996ca2c52aSchristos {
1006ca2c52aSchristos rl78_g10_mode = 0;
1016ca2c52aSchristos g13_multiply = 1;
1026ca2c52aSchristos g14_multiply = 0;
1036ca2c52aSchristos }
1046ca2c52aSchristos if (strcmp (optarg, "g14") == 0)
1056ca2c52aSchristos {
1066ca2c52aSchristos rl78_g10_mode = 0;
1076ca2c52aSchristos g13_multiply = 0;
1086ca2c52aSchristos g14_multiply = 1;
1096ca2c52aSchristos }
1106ca2c52aSchristos break;
1116ca2c52aSchristos case '?':
1126ca2c52aSchristos {
1136ca2c52aSchristos fprintf (stderr,
1146ca2c52aSchristos "usage: run [options] program [arguments]\n");
1156ca2c52aSchristos fprintf (stderr,
1166ca2c52aSchristos "\t-v\t\t- increase verbosity.\n"
1176ca2c52aSchristos "\t-t\t\t- trace.\n"
1186ca2c52aSchristos "\t-d\t\t- disassemble.\n"
1196ca2c52aSchristos "\t-r <bytes>\t- ram size.\n"
1206ca2c52aSchristos "\t-M <mcu>\t- mcu type, default none, allowed: g10,g13,g14\n"
1216ca2c52aSchristos "\t-D <filename>\t- dump cycle count histogram\n");
1226ca2c52aSchristos exit (1);
1236ca2c52aSchristos }
1246ca2c52aSchristos }
1256ca2c52aSchristos }
1266ca2c52aSchristos
1276ca2c52aSchristos prog = bfd_openr (argv[optind], 0);
1286ca2c52aSchristos if (!prog)
1296ca2c52aSchristos {
1306ca2c52aSchristos fprintf (stderr, "Can't read %s\n", argv[optind]);
1316ca2c52aSchristos exit (1);
1326ca2c52aSchristos }
1336ca2c52aSchristos
1346ca2c52aSchristos if (!bfd_check_format (prog, bfd_object))
1356ca2c52aSchristos {
1366ca2c52aSchristos fprintf (stderr, "%s not a rl78 program\n", argv[optind]);
1376ca2c52aSchristos exit (1);
1386ca2c52aSchristos }
1396ca2c52aSchristos
1406ca2c52aSchristos init_cpu ();
1416ca2c52aSchristos
1426ca2c52aSchristos rl78_in_gdb = 0;
1436ca2c52aSchristos save_trace = trace;
1446ca2c52aSchristos trace = 0;
1456ca2c52aSchristos rl78_load (prog, 0, argv[0]);
1466ca2c52aSchristos trace = save_trace;
1476ca2c52aSchristos
1486ca2c52aSchristos sim_disasm_init (prog);
1496ca2c52aSchristos
1506ca2c52aSchristos rc = setjmp (decode_jmp_buf);
1516ca2c52aSchristos
1526ca2c52aSchristos if (rc == 0)
1536ca2c52aSchristos {
1546ca2c52aSchristos if (!trace && !disassemble)
1556ca2c52aSchristos {
1566ca2c52aSchristos /* This will longjmp to the above if an exception
1576ca2c52aSchristos happens. */
1586ca2c52aSchristos for (;;)
1596ca2c52aSchristos decode_opcode ();
1606ca2c52aSchristos }
1616ca2c52aSchristos else
1626ca2c52aSchristos while (1)
1636ca2c52aSchristos {
1646ca2c52aSchristos
1656ca2c52aSchristos if (trace)
1666ca2c52aSchristos printf ("\n");
1676ca2c52aSchristos
1686ca2c52aSchristos if (disassemble)
1696ca2c52aSchristos sim_disasm_one ();
1706ca2c52aSchristos
1716ca2c52aSchristos rc = decode_opcode ();
1726ca2c52aSchristos
1736ca2c52aSchristos if (trace)
1746ca2c52aSchristos trace_register_changes ();
1756ca2c52aSchristos }
1766ca2c52aSchristos }
1776ca2c52aSchristos
1786ca2c52aSchristos if (RL78_HIT_BREAK (rc))
1796ca2c52aSchristos done (1);
1806ca2c52aSchristos else if (RL78_EXITED (rc))
1816ca2c52aSchristos done (RL78_EXIT_STATUS (rc));
1826ca2c52aSchristos else if (RL78_STOPPED (rc))
1836ca2c52aSchristos {
1846ca2c52aSchristos if (verbose)
1856ca2c52aSchristos printf ("Stopped on signal %d\n", RL78_STOP_SIG (rc));
1866ca2c52aSchristos exit (1);
1876ca2c52aSchristos }
1886ca2c52aSchristos done (0);
1896ca2c52aSchristos exit (0);
1906ca2c52aSchristos }
191