Subversion Repositories or1k

/* config.c -- Simulator configuration

   Copyright (C) 1999 Damjan Lampret, lampret@opencores.org

This file is part of OpenRISC 1000 Architectural Simulator.

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., 675 Mass Ave, Cambridge, MA 02139, USA. */

/* Simulator configuration. Eventually this one will be a lot bigger. */

#include <stdlib.h>

#include "sim-config.h"

#include "abstract.h"

#include "spr_defs.h"

#include "pic.h"

#define WARNING(s) fprintf (stderr, "WARNING: config.%s: %s\n", sections[section], s)

#define ERROR(s) {fprintf (stderr, "ERROR: %s\n", s); if (runtime.sim.init) exit (1);}

struct config config;

struct runtime runtime;

int section = 0;

extern struct section {

  char *name;

  int flags;

} sections[];

void init_defconfig()

{

  unsigned long val;

  memset(&config, 0, sizeof(config));

  memset(&runtime, 0, sizeof(runtime));

  /* Sim */

  config.sim.exe_log = 0;

  runtime.sim.fexe_log = NULL;

  strcpy (config.sim.exe_log_fn, "executed.log");

  config.sim.debug = 0;

  config.sim.verbose = 1;

  config.sim.iprompt = 0;

  config.sim.profile = 0;

  runtime.sim.fprof = NULL;

  strcpy (config.sim.prof_fn, "sim.profile");

  runtime.sim.init = 1;

  runtime.sim.script_file_specified = 0;

  /* Memory */

  config.memory.type = MT_PATTERN;

  config.memory.pattern = 0;

  config.memory.random_seed = -1;  /* Generate new seed */

  strcpy(config.memory.memory_table_file, "simmem.cfg");

  /* Memory Controller */

  config.mc.enabled = 0;

  /* Uarts */

  config.nuarts = 0;

  config.uarts_enabled = 0;

  /* DMAs */

  config.ndmas = 0;

  config.dmas_enabled = 0;

  /* CPU */

  config.cpu.superscalar = 0;

  config.sim.history = 0;

  config.cpu.hazards = 0;

  config.cpu.dependstats = 0;

  config.cpu.slp = 0;

  config.cpu.upr = SPR_UPR_UP | SPR_UPR_DCP | SPR_UPR_ICP | SPR_UPR_DMP

                 | SPR_UPR_IMP | SPR_UPR_OB32P | SPR_UPR_DUP | SPR_UPR_PICP

                 | SPR_UPR_PMP | SPR_UPR_TTP;

  /* Debug */

  config.debug.enabled = 0;

  config.debug.gdb_enabled = 0;

  config.debug.server_port = 0;

  /* VAPI */

  config.vapi.enabled = 0;

  strcpy (config.vapi.vapi_fn, "vapi.log");

  runtime.vapi.vapi_file = NULL;

  /* Ethernet */

  config.ethernets_enabled = 0;

  /* Tick timer */

  config.tick.enabled = 0;

  /* Old */

  config.dc.tagtype = PHYSICAL/*VIRTUAL*/;

  config.ic.tagtype = PHYSICAL/*VIRTUAL*/;

  config.clkcycle_ns = 4; /* 4 for 4ns (250MHz) */

}

int parse_args(int argc, char *argv[])

{

  unsigned long val;

  argv++; argc--;

  while (argc) {

    if (argc && (*argv[0] != '-')) {

      runtime.sim.filename = argv[0];

      argc--;

      argv++;

    } else

    if (strcmp(*argv, "-f") == 0 || strcmp(*argv, "--file") == 0) {

      argv++; argc--;

      read_script_file(argv[0]);

      argv++; argc--;

    } else

    if (strcmp(*argv, "--nosrv") == 0) {  /* (CZ) */

      config.debug.gdb_enabled = 0;

      argv++; argc--;

    } else

    if (strcmp(*argv, "--srv") == 0) {  /* (CZ) */

      char *s;

      if(!--argc)

        return 1;

      config.debug.enabled = 1;

      config.debug.gdb_enabled = 0;

      config.debug.server_port = strtol(*(++argv),&s,10);

      if(*s)

        return 1;

      argv++; argc--;

    } else

    if (strcmp(*argv, "-i") == 0) {

      config.sim.iprompt = 1;

      argv++; argc--;

    } else

    if (strcmp(*argv, "-v") == 0) {

      version();

      exit(0);

    } else

    if (strcmp(*argv, "--profile") == 0) {

      config.sim.profile = 1;

      argv++; argc--;

    } else {

      printf("Unknown option: %s\n", *argv);

      return 1;

    }

  }

  if (!argc)

    return 0;

  return 0;

}

#define CNV(x) ((isblank(x) || (x) == 0) ? ' ' : (x))

/* Substitute for less powerful fscanf */

int fscanf_ex (FILE *f, char *fmt, void *buf, char *str) {

  char tmp[STR_SIZE];

  char ch;

  int i = 0;

  while (*fmt) {

    switch (*fmt) {

      case '%':

        while(*fmt != 0 && !isalpha (*fmt))

          tmp[i++] = *(fmt++);

        tmp[i++] = *(fmt++);

        if (tmp[i - 1] == 's') {

          char *cbuf = (char *)buf;

          i = 0;

          while (ch = (f ? fgetc (f) : *str++), isblank(ch))

            if (f ? feof (f) : *str) return 1;

          if (f)

            ungetc (ch, f);

          else

            str--;

          while ((*(cbuf++) = ch = (f ? fgetc (f) : *str++), CNV(ch) ) != *fmt) {

            if ((f ? feof (f) : *str)) return 1;

            if (++i >= STR_SIZE) {

              fprintf (stderr, "ERROR: string too long.\n");

              return 1;

            }

          }

          *(--cbuf) = 0;

          fmt++;

        } else {

          tmp[i++] = 0;

          if (f)

            fscanf (f, tmp, buf);

          else

            sscanf (str, tmp, buf);

        }

        break;

      default:

        while ((ch = (f ? fgetc (f) : *str++)) != *fmt) {

          if (!isblank (ch)) {

            char tmp[200];

            sprintf (tmp, "unexpected char '%c' (expecting '%c')\n", ch, *fmt);

            WARNING(tmp);

          }

          if ((f ? feof (f) : *str)) return 1;

        }

        fmt++;

        break;

    }

  }

  return 0;

}

void print_config()

{

  if (config.sim.verbose) {

    printf("Verbose on, ");

    if (config.sim.debug)

      printf("simdebug on, ");

    else

      printf("simdebug off, ");

    if (config.sim.iprompt)

      printf("interactive prompt on\n");

    else

      printf("interactive prompt off\n");

    printf("Machine initialization...\n");

    printf("Clock cycle: %d ns\n", config.clkcycle_ns);

    if (testsprbits(SPR_UPR, SPR_UPR_DCP))

      printf("Data cache tag: %s\n", config.dc.tagtype == VIRTUAL ? "virtual" : "physical");

    else

      printf("No data cache.\n");

    if (testsprbits(SPR_UPR, SPR_UPR_ICP))

      printf("Insn cache tag: %s\n", config.ic.tagtype == VIRTUAL ? "virtual" : "physical");

    else

      printf("No instruction cache.\n");

    if (config.cpu.bpb)

      printf("BPB simulation on.\n");

    else

      printf("BPB simulation off.\n");

    if (config.cpu.btic)

      printf("BTIC simulation on.\n");

    else

      printf("BTIC simulation off.\n");

  }

}

void change_device ();

void end_device ();

void uart_baseaddr ();

void uart_rxfile ();

void uart_txfile ();

void uart_jitter ();

void uart_irq ();

void uart_16550 ();

void uart_vapi_id ();

void dma_baseaddr ();

void dma_irq ();

void dma_vapi_id ();

void memory_type ();

void eth_baseaddr ();

void eth_dma ();

void eth_rx_channel ();

void eth_tx_channel ();

void eth_rxfile ();

void eth_txfile ();

void eth_vapi_id ();

unsigned long tempL;

unsigned long tempUL;

char tempS[STR_SIZE];

#define CPF_SUBSECTION 1

#define CPF_SUBFIELD   2

struct section sections[] = {

  {"?",      0},  /* 0  */

  {"mc",     0},

  {"uart",   0},

  {"dma",    0},

  {"memory", 0},

  {"cpu",    0},

  {"sim",    0},

  {"debug",  0},

  {"VAPI",   0},

  {"ethernet",0},

  {"tick",   0}   /* 10 */

};

/* *INDENT-OFF* */

/* Parameter definitions */

struct config_params {

  int section;

  int attr;

  char *name;

  char *type;

  void (*func)();

  void *addr;

} config_params[] = {

{1, 0, "enabled",            "=%i",         NULL,          (void *)(&config.mc.enabled)},

{1, 0, "baseaddr",           "=0x%x",       NULL,          (void *)(&config.mc.baseaddr)},

{1, 0, "POC",                "=0x%x",       NULL,          (void *)(&config.mc.POC)},

{2, 0, "enabled",            "=%i",         NULL,          (void *)(&config.uarts_enabled)},

{2, 0, "nuarts",             "=%i",         NULL,          (void *)(&config.nuarts)},

{2, 0, "device",             "%i",          change_device, (void *)(&tempL)},

{2, 0, "enddevice",          "",            end_device,    NULL},

{2, 0, "baseaddr",           "=0x%x",       uart_baseaddr, (void *)(&tempUL)},

{2, 0, "irq",                "=%i",         uart_irq,      (void *)(&tempL)},

{2, 0, "16550",              "=%i",         uart_16550,    (void *)(&tempL)},

{2, 0, "jitter",             "=%i",         uart_jitter,   (void *)(&tempL)},

{2, 0, "rxfile",             "=\"%s\"",     uart_rxfile,   (void *)(&tempS[0])},

{2, 0, "txfile",             "=\"%s\"",     uart_txfile,   (void *)(&tempS[0])},

{2, 0, "vapi_id",            "=0x%x",       uart_vapi_id,  (void *)(&tempUL)},

{3, 0, "enabled",            "=%i",         NULL,          (void *)(&config.dmas_enabled)},

{3, 0, "ndmas",              "=%i",         NULL,          (void *)(&config.ndmas)},

{3, 0, "device",             "%i",          change_device, (void *)(&tempL)},

{3, 0, "enddevice",          "",            end_device,    NULL},

{3, 0, "baseaddr",           "=0x%x",       dma_baseaddr,  (void *)(&tempUL)},

{3, 0, "irq",                "=%i",         dma_baseaddr,  (void *)(&tempL)},

{3, 0, "vapi_id",            "=0x%x",       dma_vapi_id,   (void *)(&tempUL)},

{4, 0, "memory_table_file",  "=\"%s\"",     NULL,          (void *)(&config.memory.memory_table_file[0])},

{4, 0, "random_seed",        "=%i",         NULL,          (void *)(&config.memory.random_seed)},

{4, 0, "pattern",            "=%i",         NULL,          (void *)(&config.memory.pattern)},

{4, 0, "type",               "=%s ",        memory_type,   (void *)(&tempS[0])},

{5, 0, "ver",                "=0x%x",       NULL,          (void *)(&config.cpu.ver)},

{5, 0, "rev",                "=0x%x",       NULL,          (void *)(&config.cpu.rev)},

{5, 0, "upr",                "=0x%x",       NULL,          (void *)(&config.cpu.upr)},

{5, 0, "hazards",            "=%i",         NULL,          (void *)(&config.cpu.hazards)},

{5, 0, "superscalar",        "=%i",         NULL,          (void *)(&config.cpu.superscalar)},

{5, 0, "dependstats",        "=%i",         NULL,          (void *)(&config.cpu.dependstats)},

{5, 0, "slp",                "=%i",         NULL,          (void *)(&config.cpu.slp)},

{5, 0, "bpb",                "=%i",         NULL,          (void *)(&config.cpu.bpb)},

{5, 0, "btic",               "=%i",         NULL,          (void *)(&config.cpu.btic)},

{6, 0, "debug",              "=%i",         NULL,          (void *)(&config.sim.debug)},

{6, 0, "iprompt",            "=%i",         NULL,          (void *)(&config.sim.iprompt)},

{6, 0, "verbose",            "=%i",         NULL,          (void *)(&config.sim.verbose)},

{6, 0, "profile",            "=%i",         NULL,          (void *)(&config.sim.profile)},

{6, 0, "prof_fn",            "=\"%s\"",     NULL,          (void *)(&config.sim.prof_fn[0])},

{6, 0, "history",            "=%i",         NULL,          (void *)(&config.sim.history)},

{6, 0, "exe_log",            "=%i",         NULL,          (void *)(&config.sim.exe_log)},

{6, 0, "exe_log_fn",         "=\"%s\"",     NULL,          (void *)(&config.sim.exe_log_fn[0])},

{7, 0, "enabled",            "=%i",         NULL,          (void *)(&config.debug.enabled)},

{7, 0, "gdb_enabled",        "=%i",         NULL,          (void *)(&config.debug.gdb_enabled)},

{7, 0, "server_port",        "=%i",         NULL,          (void *)(&config.debug.server_port)},

{8, 0, "enabled",            "=%i",         NULL,          (void *)(&config.vapi.enabled)},

{8, 0, "server_port",        "=%i",         NULL,          (void *)(&config.vapi.server_port)},

{8, 0, "log_enabled",        "=%i",         NULL,          (void *)(&config.vapi.log_enabled)},

{8, 0, "vapi_log_fn",        "=\"%s\"",     NULL,          (void *)(&config.vapi.vapi_fn[0])},

{9, 0, "enabled",            "=%i",         NULL,          (void *)(&config.ethernets_enabled)},

{9, 0, "nethernets",         "=%i",         NULL,          (void *)(&config.nethernets)},

{9, 0, "device",             "%i",          change_device, (void *)(&tempL)},

{9, 0, "enddevice",          "",            end_device,    NULL},

{9, 0, "baseaddr",           "=0x%x",       eth_baseaddr,  (void *)(&tempUL)},

{9, 0, "dma",                "=%i",         eth_dma,       (void *)(&tempL)},

{9, 0, "rx_channel",         "=%i",         eth_rx_channel,(void *)(&tempL)},

{9, 0, "tx_channel",         "=%i",         eth_tx_channel,(void *)(&tempL)},

{9, 0, "rxfile",             "=\"%s\"",     eth_rxfile,    (void *)(&tempS[0])},

{9, 0, "txfile",             "=\"%s\"",     eth_txfile,    (void *)(&tempS[0])},

{9, 0, "vapi_id",            "=0x%x",       eth_vapi_id,   (void *)(&tempUL)},

{10,0, "enabled",            "=%i",         NULL,          (void *)(&config.tick.enabled)},

{10,0, "irq",                "=%i",         NULL,          (void *)(&config.tick.irq)},

};

/* *INDENT-ON* */

int current_device = -1;

void change_device () {

  current_device = tempL;

}

void end_device () {

  current_device = -1;

}

void uart_baseaddr () {

  if (current_device >= 0 && current_device < config.nuarts)

    config.uarts[current_device].baseaddr = tempUL;

  else

    ERROR("invalid device number.");

}

void uart_jitter () {

  if (current_device >= 0 && current_device < config.nuarts)

    config.uarts[current_device].jitter = tempL;

  else

    ERROR("invalid device number.");

}

void uart_irq () {

  if (current_device >= 0 && current_device < config.nuarts)

    config.uarts[current_device].irq = tempL;

  else

    ERROR("invalid device number.");

}

void uart_16550 () {

  if (current_device >= 0 && current_device < config.nuarts)

    config.uarts[current_device].uart16550 = tempL;

  else

    ERROR("invalid device number.");

}

void uart_rxfile () {

  if (current_device >= 0 && current_device < config.nuarts)

    strcpy (config.uarts[current_device].rxfile, tempS);

  else

    ERROR("invalid device number.");

}

void uart_txfile () {

  if (current_device >= 0 && current_device < config.nuarts)

    strcpy (config.uarts[current_device].txfile, tempS);

  else

    ERROR("invalid device number.");

}

void uart_vapi_id () {

  if (current_device >= 0 && current_device < config.nuarts)

    config.uarts[current_device].vapi_id = tempUL;

  else

    ERROR("invalid device number.");

}

void dma_baseaddr () {

  if (current_device >= 0 && current_device < config.ndmas)

    config.dmas[current_device].baseaddr = tempUL;

  else

    ERROR("invalid device number.");

}

void dma_irq () {

  if (current_device >= 0 && current_device < config.ndmas)

    config.dmas[current_device].irq = tempL;

  else

    ERROR("invalid device number.");

}

void dma_vapi_id () {

  if (current_device >= 0 && current_device < config.ndmas)

    config.dmas[current_device].vapi_id = tempUL;

  else

    ERROR("invalid device number.");

}

void memory_type () {

  if (strcmp (tempS, "unknown") == 0)

    config.memory.type = MT_UNKNOWN;

  else if (strcmp (tempS, "random") == 0)

    config.memory.type = MT_RANDOM;

  else if (strcmp (tempS, "pattern") == 0)

    config.memory.type = MT_PATTERN;

  else if (strcmp (tempS, "zero") == 0) {

    config.memory.type = MT_PATTERN;

    config.memory.pattern = 0;

  } else {

    char tmp[200];

    sprintf (tmp, "invalid memory type '%s'.\n", tempS);

    ERROR(tmp);

  }

}

void eth_baseaddr () {

  if (current_device >= 0 && current_device < config.nethernets)

    config.ethernets[current_device].baseaddr = tempUL;

  else

    ERROR("invalid device number.");

}

void eth_dma () {

  if (current_device >= 0 && current_device < config.nethernets)

    config.ethernets[current_device].dma = tempL;

  else

    ERROR("invalid device number.");

}

void eth_rx_channel () {

  if (current_device >= 0 && current_device < config.nethernets)

    config.ethernets[current_device].rx_channel = tempL;

  else

    ERROR("invalid device number.");

}

void eth_tx_channel () {

  if (current_device >= 0 && current_device < config.nethernets)

    config.ethernets[current_device].rx_channel = tempL;

  else