AlphaSim.cpp

Go to the documentation of this file.

/* ES40 emulator.
 * Copyright (C) 2007-2008 by the ES40 Emulator Project
 *
 * WWW    : http://es40.org
 * E-mail : camiel@camicom.com
 * 
 * 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 *
 * Although this is not required, the author would appreciate being notified of, 
 * and receiving any modifications you may make to the source code that might serve
 * the general public.
 */

#include "StdAfx.h"
#include "System.h"
#include "Flash.h"
#include "DPR.h"

#include "lockstep.h"

#if defined(HAVE_SDL)
#include "SDL.h"
#endif

const char* path[] ={
#if defined(_WIN32)
  ".\\es40.cfg",
  "c:\\es40.cfg",
  "c:\\windows\\es40.cfg",
#elif defined(__VMS)
  "[]ES40.CFG",
#else
  "./es40.cfg",
  "/etc/es40.cfg",
  "/usr/etc/es40.cfg",
  "/usr/local/etc/es40.cfg",
#endif
  0
};

#ifdef DEBUG_BACKTRACE
#ifdef __GNUG__
#include <execinfo.h>
#include <signal.h>
#define HAS_BACKTRACE

#define BTCOUNT 100
void*   btbuffer[BTCOUNT];

void segv_handler(int signum)
{
  int     nptrs = backtrace(btbuffer, BTCOUNT);
  char **  strings;

  printf("%%SYS-F-SEGFAULT: The Alpha Simulator has Segfaulted.\n");
  printf("-SYS-F-SEGFAULT: Backtrace follows.\n");

  printf("backtrace() returned %d addresses.\n", nptrs);
  strings = backtrace_symbols(btbuffer, nptrs);
  if(strings == NULL)
  {
    perror("backtrace_symbols");
    exit(1);
  }

  for(int i = 0; i < nptrs; i++)
  {
    printf("%3d %s\n", nptrs - i, strings[i]);
  }

  free(strings);
  if(signum == SIGSEGV)
    _exit(1);
}

#else
#warning "Your compiler isn't configured to support backtraces."
#endif // __GNUG__
#endif

int main (int argc, char*argv[])
{
  printf("\n\n");
  printf("   **======================================================================**\n");
  printf("   ||                             ES40  emulator                           ||\n");
  printf("   ||                              Version " VERSION "                            ||\n");
  printf("   ||                                                                      ||\n");
  printf("   ||  Copyright (C) 2007-2008 by the ES40 Emulator Project                ||\n");
  printf("   ||  Website: http://sourceforge.net/projects/es40                       ||\n");
  printf("   ||  E-mail : camiel@camicom.com                                         ||\n");
  printf("   ||                                                                      ||\n");
  printf("   ||  This program is free software; you can redistribute it and/or       ||\n");
  printf("   ||  modify it under the terms of the GNU General Public License         ||\n");
  printf("   ||  as published by the Free Software Foundation; either version 2      ||\n");
  printf("   ||  of the License, or (at your option) any later version.              ||\n");
  printf("   **======================================================================**\n");
  printf("\n\n");

  const char*   filename = 0;
  FILE*   f;

#ifdef HAS_BACKTRACE
  signal(SIGSEGV, &segv_handler);
  signal(SIGUSR1, &segv_handler);
#endif
  try
  {
#if defined(IDB) && (defined(LS_MASTER) || defined(LS_SLAVE))
    lockstep_init();
#endif
#if defined(IDB)
    if((argc == 2 || argc == 3) && argv[1][0] != '@')
#else
      if(argc == 2)
#endif
      {
        filename = argv[1];
      }
      else
      {
        for(int i = 0; path[i]; i++)
        {
          filename = path[i];
          f = fopen(path[i], "r");
          if(f != NULL)
          {
            fclose(f);
            filename = path[i];
            break;
          }
        }
        if(filename == NULL)
          FAILURE(FileNotFound, "configuration file");
      }
    char*   ch1;
    size_t  ll1;
    f = fopen(filename, "rb");
    fseek(f, 0, SEEK_END);
    ll1 = ftell(f);
    ch1 = (char*) calloc(ll1, 1);
    fseek(f, 0, SEEK_SET);
    ll1 = fread(ch1, 1, ll1, f);
    CConfigurator*  c = new CConfigurator(0, 0, 0, ch1, ll1);
    fclose(f);
    free(ch1);

    if(!theSystem)
      FAILURE(Configuration, "no system initialized");

#if defined(IDB)
    trc = new CTraceEngine(theSystem);
#endif
    theSystem->LoadROM();

#if defined(PROFILE)
    {
      u64 p_i;
      for(p_i = PROFILE_FROM; p_i < PROFILE_TO; p_i += (4 * PROFILE_BUCKSIZE))
        PROFILE_BUCKET(p_i) = 0;
      profiled_insts = 0;
    }
#endif
#if defined(IDB)
    if(argc > 1 && argc < 4 && argv[argc - 1][0] == '@')
      trc->run_script(argv[argc - 1] + 1);
    else
      trc->run_script(NULL);
#else
    theSystem->Run();
#endif
  }
  catch(CGracefulException & e)
  {
    printf("Exiting gracefully: %s\n", e.displayText().c_str());

    theSystem->stop_threads();

    // save flash and dpr rom only if not terminated with a fatal error
    theSROM->SaveStateF();
    theDPR->SaveStateF();

#if defined(PROFILE)
    {
      FILE*   p_fp;
      u64     p_max = 0;
      u64     p_i;
      int     p_j;

      printf("Writing profile to profile.txt");

      p_fp = fopen("profile.txt", "w");
      for(p_i = PROFILE_FROM; p_i < PROFILE_TO; p_i += (4 * PROFILE_BUCKSIZE))
      {
        if(PROFILE_BUCKET(p_i) > p_max)
          p_max = PROFILE_BUCKET(p_i);
      }
      fprintf
        (
          p_fp, "p_max = %10"LL "d; %10"LL "d profiled instructions.\n\n", p_max,
            profiled_insts
        );
      for(p_i = PROFILE_FROM; p_i < PROFILE_TO; p_i += (4 * PROFILE_BUCKSIZE))
      {
        if(PROFILE_BUCKET(p_i))
        {
          fprintf(p_fp, "%016"LL "x: %10"LL "d ", p_i, PROFILE_BUCKET(p_i));
          for(p_j = 0; p_j < (((float) PROFILE_BUCKET(p_i) / (float) p_max) * 100);
              p_j++)
            fprintf(p_fp, "*");
          fprintf(p_fp, "\n");
        }
      }
      fclose(p_fp);
    }
#endif
    delete theSystem;
  }
  catch(Poco::Exception & e)
  {
    printf("Emulator Failure: %s\n", e.displayText().c_str());
    if(theSystem)
    {
      theSystem->stop_threads();
      delete theSystem;
    }
  }
  return 0;
}

Project space on SourceForge.net