URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [orpsocv2/] [bench/] [sysc/] [src/] [TraceSC.cpp] - Rev 339
Go to most recent revision | Compare with Previous | Blame | View Log
// ---------------------------------------------------------------------------- // SystemC trace // Copyright (C) 2008 Embecosm Limited <info@embecosm.com> // Contributor Jeremy Bennett <jeremy.bennett@embecosm.com> // This file is part of the cycle accurate model of the OpenRISC 1000 based // system-on-chip, ORPSoC, built using Verilator. // This program is free software: you can redistribute it and/or modify it // under the terms of the GNU Lesser General Public License as published by // the Free Software Foundation, either version 3 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 Lesser General Public // License for more details. // You should have received a copy of the GNU Lesser General Public License // along with this program. If not, see <http://www.gnu.org/licenses/>. // ---------------------------------------------------------------------------- // $Id: TraceSC.cpp 302 2009-02-13 17:22:07Z jeremy $ #include "TraceSC.h" #include <systemc.h> using namespace std; #define DEBUG_TRACESC 1 SC_HAS_PROCESS( TraceSC ); //! Constructor for the trace module //! @param name Name of this module, passed to the parent //! constructor. //! @param _trace_target ORPSoC module to trace TraceSC::TraceSC (sc_core::sc_module_name name, Vorpsoc_top *_traceTarget, int argc, char *argv[]) : sc_module (name), traceTarget (_traceTarget) { #if VM_TRACE // Setup the name of the VCD dump file string dumpNameDefault("vlt-dump.vcd"); string testNameString; string vcdDumpFile; // Search through the command line parameters for VCD dump options dump_start_delay = 0; dump_stop_set = 0; int time_val; int cmdline_name_found=0; if (argc > 1) { for(int i=1; i<argc; i++) { if ((strcmp(argv[i], "-vcd")==0) || (strcmp(argv[i], "--vcd")==0)) { testNameString = (argv[i+1]); vcdDumpFile = testNameString; cmdline_name_found=1; } else if ( (strcmp(argv[i], "-vcdstart")==0) || (strcmp(argv[i], "--vcdstart")==0) ) { time_val = atoi(argv[i+1]); sc_time dump_start_time(time_val,SC_NS); dump_start = dump_start_time; if (DEBUG_TRACESC) cout << "TraceSC(): Dump start time set at " << dump_start.to_string() << endl; dump_start_delay = 1; break; } else if ( (strcmp(argv[i], "-vcdstop")==0) || (strcmp(argv[i], "--vcdstop")==0) ) { time_val = atoi(argv[i+1]); sc_time dump_stop_time(time_val,SC_NS); dump_stop = dump_stop_time; if (DEBUG_TRACESC) cout << "TraceSC(): Dump stop time set at " << dump_stop.to_string() << endl; dump_stop_set = 1; break; } } } if(cmdline_name_found==0) // otherwise use our default VCD dump file name vcdDumpFile = dumpNameDefault; Verilated::traceEverOn (true); cout << "* Enabling VCD trace"; if (dump_start_delay) cout << ", on at time " << dump_start.to_string(); if (dump_stop_set) cout << ", off at time " << dump_stop.to_string(); cout << endl; printf("* VCD dumpfile: %s\n", vcdDumpFile.c_str()); // Establish a new trace with its correct time resolution, and trace to // great depth. spTraceFile = new SpTraceVcdCFile (); setSpTimeResolution (sc_get_time_resolution ()); traceTarget->trace (spTraceFile, 99); spTraceFile->open (vcdDumpFile.c_str()); if (dump_start_delay == 1) dumping_now = 0; // We'll wait for the time to dump else dumping_now = 1; // Begin with dumping turned on // Method to drive the dump on each clock edge //SC_METHOD (driveTrace); //sensitive << clk; #endif } // TraceSC () //! Destructor for the trace module. //! Used to close the tracefile TraceSC::~TraceSC () { #if VM_TRACE spTraceFile->close (); #endif } // ~TraceSC () //! Method to drive the trace. We're called on every clock edge, and also at //! initialization (to get initial values into the dump). void TraceSC::driveTrace() { #if VM_TRACE if (DEBUG_TRACESC) cout << "TraceSC(): " << endl; if (dumping_now == 0) { // Check the time, see if we should enable dumping if (sc_time_stamp() >= dump_start) { // Give a message cout << "* VCD tracing turned on at time " << dump_start.to_string() << endl; dumping_now = 1; } } if (dumping_now == 1) spTraceFile->dump (sc_time_stamp().to_double()); // Should we turn off tracing? if ((dumping_now == 1) && (dump_stop_set == 1)) { if (sc_time_stamp() >= dump_stop) { // Give a message cout << "* VCD tracing turned off at time " << dump_stop.to_string() << endl; dumping_now = 0; // Turn off the dump } } #endif } // driveTrace() //! Utility method to set the SystemPerl trace time resolution. //! This should be automatic, but is missed in Verilator 3.700. //! @param t The desired time resolution (as a SC time) void TraceSC::setSpTimeResolution (sc_time t) { #if VM_TRACE double secs = t.to_seconds(); int val; // Integral value of the precision const char *units; // Units as text if (secs < 1.0e-15) { cerr << "* VCD time resolution " << secs << " too small: ignored" << endl; return; } else if (secs < 1.0e-12) { val = secs / 1.0e-15; units = "f"; } else if (secs < 1.0e-9) { val = secs / 1.0e-12; units = "p"; } else if (secs < 1.0e-6) { val = secs / 1.0e-9; units = "n"; } else if (secs < 1.0e-3) { val = secs / 1.0e-6; units = "u"; } else if (secs < 1.0) { val = secs / 1.0e-3; units = "m"; } else { val = secs; units = "s"; } // Val must be a power of 10 switch (val) { case 1: case 10: case 100: case 1000: case 10000: case 100000: case 1000000: case 10000000: case 100000000: case 1000000000: break; // OK default: cerr << "VCD time resolution " << secs << " not power of 10: ignored" << endl; return; } // Set the time resolution for the trace file char str[32]; sprintf (str, "%d %s", val, units); spTraceFile->spTrace()->set_time_resolution (str); #endif } // setSpTimeResolution()
Go to most recent revision | Compare with Previous | Blame | View Log