Subversion Repositories or1k

/* dumpverilog.c -- Dumps memory region as Verilog representation
   or as hex code
   Copyright (C) 2000 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. */
 
/* Verilog dump can be used for stimulating OpenRISC Verilog RTL models. */
 
#include <stdio.h>
#include <ctype.h>
#include <string.h>
 
#include "config.h"
 
#ifdef HAVE_INTTYPES_H
#include <inttypes.h>
#endif
 
#include "port.h"
#include "arch.h"
#include "sim-config.h"
#include "parse.h"
#include "abstract.h"
#include "opcode/or32.h"
#include "spr_defs.h"
#include "labels.h"
#include "execute.h"
#include "sprs.h"
#include "stats.h"
#include "except.h"
#include "dumpverilog.h"
 
extern char *or1ksim_ver;
extern char *disassembled;
 
void dumpverilog(char *verilog_modname, oraddr_t from, oraddr_t to)
{
  unsigned int i, done = 0;
  struct label_entry *tmp;
  char dis[DISWIDTH + 100];  
  uint32_t insn;
  int index;
  PRINTF("// This file was generated by or1ksim version %s\n", or1ksim_ver);
  PRINTF(OR1K_MEM_VERILOG_HEADER(verilog_modname, from/DWQ, to/DWQ, (DISWIDTH*8)));
 
  for(i = from; i < to; i++) {      
    if(!(i & 3)) {
      insn = eval_direct32(i, 0, 0);
      index = insn_decode(insn);
      if (index >= 0) {
          if (verify_memoryarea(i) && (tmp = get_label(i)))
          if (tmp)
            PRINTF("\n//\t%s%s", tmp->name, LABELEND_CHAR);
 
          PRINTF("\n\tmem['h%x] = %d'h%.8"PRIx32";", i/DWQ, DW,
                 eval_direct32(i, 0, 0));
 
          disassemble_insn (insn);
          strcpy (dis, disassembled);
 
          if (strlen(dis) < DISWIDTH)
            memset(dis + strlen(dis), ' ', DISWIDTH);
          dis[DISWIDTH] = '\0';
          PRINTF("\n\tdis['h%x] = {\"%s\"};", i/DWQ, dis);
          dis[0] = '\0';
          i += insn_len(index) - 1;
          done = 1;
          continue;
      }
    }
 
    if (i % 64 == 0)
      PRINTF("\n");
 
    PRINTF("\n\tmem['h%x] = 'h%.2x;", i/DWQ, eval_direct8(i, 0, 0));
    done = 1;
  }
 
  if (done)
    {
      PRINTF(OR1K_MEM_VERILOG_FOOTER);
      return;
    }
 
  /* this needs to be fixed */
 
  for(i = from; i < to; i++)
    {
      if (i % 8 == 0)
        PRINTF("\n%.8x:  ", i);
 
      /* don't print ascii chars below 0x20. */
      if (eval_direct32(i, 0, 0) < 0x20)
        PRINTF("0x%.2x     ", (uint8_t)eval_direct32(i, 0, 0));
      else
        PRINTF("0x%.2x'%c'  ", (uint8_t)eval_direct32(i, 0, 0),
               (char)eval_direct32(i, 0, 0)); 
    }
  PRINTF(OR1K_MEM_VERILOG_FOOTER);
}
 
void dumphex(oraddr_t from, oraddr_t to)
{
  oraddr_t i;
  uint32_t insn;
  int index;
 
  for(i = from; i < to; i++) {
    if(!(i & 3)) {
      insn = eval_direct32(i, 0, 0);
      index = insn_decode(insn);
      if(index >= 0) {	
        PRINTF("%.8"PRIx32"\n", eval_direct32(i, 0, 0));
        i += insn_len(index) - 1;
        continue;
      }
    }
    PRINTF("%.2x\n", eval_direct8(i, 0, 0));
  }
}