Subversion Repositories or1k

/* emulos.c -- Small OS emulation

   Copyright 1999, 2000 Free Software Foundation, Inc.

   Written by Stephane Carrez (stcarrez@worldnet.fr)

This file is part of GDB, GAS, and the GNU binutils.

GDB, GAS, and the GNU binutils are free software; you can redistribute

them and/or modify them under the terms of the GNU General Public

License as published by the Free Software Foundation; either version

1, or (at your option) any later version.

GDB, GAS, and the GNU binutils are distributed in the hope that they

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 file; see the file COPYING.  If not, write to the Free

Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#include "sim-main.h"

#ifdef HAVE_UNISTD_H

#include <unistd.h>

#endif

#ifndef WIN32

#include <sys/types.h>

#include <sys/time.h>

/* This file emulates some OS system calls.

   It's basically used to give access to the host OS facilities

   like: stdin, stdout, files, time of day.  */

static int bench_mode = -1;

static struct timeval bench_start;

static struct timeval bench_stop;

void

emul_bench (struct _sim_cpu* cpu)

{

  int op;

  op = cpu_get_d (cpu);

  switch (op)

    {

    case 0:

      bench_mode = 0;

      gettimeofday (&bench_start, 0);

      break;

    case 1:

      gettimeofday (&bench_stop, 0);

      if (bench_mode != 0)

        printf ("bench start not called...\n");

      bench_mode = 1;

      break;

    case 2:

      {

        int sz = 0;

        int addr = cpu_get_x (cpu);

        double t_start, t_stop, t;

        char buf[1024];

        op = cpu_get_y (cpu);

        t_start = (double) (bench_start.tv_sec) * 1.0e6;

        t_start += (double) (bench_start.tv_usec);

        t_stop  = (double) (bench_stop.tv_sec) * 1.0e6;

        t_stop  += (double) (bench_stop.tv_usec);

        while (sz < 1024)

          {

            buf[sz] = memory_read8 (cpu, addr);

            if (buf[sz] == 0)

              break;

            sz ++;

            addr++;

          }

        buf[1023] = 0;

        if (bench_mode != 1)

          printf ("bench_stop not called");

        bench_mode = -1;

        t = t_stop - t_start;

        printf ("%-40.40s [%6d] %3.3f us\n", buf,

                op, t / (double) (op));

        break;

      }

    }

}

#endif

void

emul_write(struct _sim_cpu* state)

{

  int addr = cpu_get_x (state) & 0x0FFFF;

  int size = cpu_get_d (state) & 0x0FFFF;

  if (addr + size > 0x0FFFF) {

    size = 0x0FFFF - addr;

  }

  state->cpu_running = 0;

  while (size)

    {

      uint8 val = memory_read8 (state, addr);

      write(0, &val, 1);

      addr ++;

      size--;

    }

}

/* emul_exit () is used by the default startup code of GCC to implement

   the exit ().  For a real target, this will create an ILLEGAL fault.

   But doing an exit () on a real target is really a non-sense.

   exit () is important for the validation of GCC.  The exit status

   is passed in 'D' register.  */

void

emul_exit (sim_cpu *cpu)

{

  sim_engine_halt (CPU_STATE (cpu), cpu,

                   NULL, NULL_CIA, sim_exited,

                   cpu_get_d (cpu));

}

void

emul_os (int code, sim_cpu *proc)

{

  proc->cpu_current_cycle = 8;

  switch (code)

    {

    case 0x0:

      break;

      /* 0xCD 0x01 */

    case 0x01:

      emul_write (proc);

      break;

      /* 0xCD 0x02 */

    case 0x02:

      break;

      /* 0xCD 0x03 */

    case 0x03:

      emul_exit (proc);

      break;

      /* 0xCD 0x04 */

    case 0x04:

#ifndef WIN32

      emul_bench (proc);

#endif

      break;

    default:

      break;

    }

}