// ----------------------------------------------------------------------------
|
// ----------------------------------------------------------------------------
|
|
|
// SystemC trace
|
// SystemC trace
|
|
|
// Copyright (C) 2008 Embecosm Limited <info@embecosm.com>
|
// Copyright (C) 2008 Embecosm Limited <info@embecosm.com>
|
|
|
// Contributor Jeremy Bennett <jeremy.bennett@embecosm.com>
|
// Contributor Jeremy Bennett <jeremy.bennett@embecosm.com>
|
|
|
// This file is part of the cycle accurate model of the OpenRISC 1000 based
|
// This file is part of the cycle accurate model of the OpenRISC 1000 based
|
// system-on-chip, ORPSoC, built using Verilator.
|
// system-on-chip, ORPSoC, built using Verilator.
|
|
|
// This program is free software: you can redistribute it and/or modify it
|
// 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
|
// 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
|
// the Free Software Foundation, either version 3 of the License, or (at your
|
// option) any later version.
|
// option) any later version.
|
|
|
// This program is distributed in the hope that it will be useful, but WITHOUT
|
// This program is distributed in the hope that it will be useful, but WITHOUT
|
// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
// FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
|
// FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
|
// License for more details.
|
// License for more details.
|
|
|
// You should have received a copy of the GNU Lesser General Public License
|
// 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/>.
|
// along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
// ----------------------------------------------------------------------------
|
// ----------------------------------------------------------------------------
|
|
|
// $Id: TraceSC.cpp 302 2009-02-13 17:22:07Z jeremy $
|
// $Id: TraceSC.cpp 302 2009-02-13 17:22:07Z jeremy $
|
|
|
#include "TraceSC.h"
|
#include "TraceSC.h"
|
|
|
using namespace std;
|
using namespace std;
|
|
|
SC_HAS_PROCESS( TraceSC );
|
SC_HAS_PROCESS( TraceSC );
|
|
|
//! Constructor for the trace module
|
//! Constructor for the trace module
|
|
|
//! @param name Name of this module, passed to the parent
|
//! @param name Name of this module, passed to the parent
|
//! constructor.
|
//! constructor.
|
//! @param _trace_target ORPSoC module to trace
|
//! @param _trace_target ORPSoC module to trace
|
|
|
TraceSC::TraceSC (sc_core::sc_module_name name,
|
TraceSC::TraceSC (sc_core::sc_module_name name,
|
Vorpsoc_top *_traceTarget,
|
Vorpsoc_top *_traceTarget,
|
int argc,
|
int argc,
|
char *argv[]) :
|
char *argv[]) :
|
sc_module (name),
|
sc_module (name),
|
traceTarget (_traceTarget)
|
traceTarget (_traceTarget)
|
{
|
{
|
#if VM_TRACE
|
#if VM_TRACE
|
|
|
// Setup the name of the VCD dump file
|
// Setup the name of the VCD dump file
|
string dumpNameDefault("vlt-dump.vcd");
|
string dumpNameDefault("vlt-dump.vcd");
|
string dumpSuffix("-vlt.vcd");
|
|
string dumpDir("../results/"); // Note: hardcoded to store all VCDs in the ../results dir
|
|
string testNameString;
|
string testNameString;
|
string vcdDumpFile;
|
string vcdDumpFile;
|
|
|
if (argc > 1) // If we were passed a name on the command line, use it
|
// Search through the command line parameters for the "-vcd" option
|
|
int cmdline_name_found=0;
|
|
if (argc > 1)
|
{
|
{
|
testNameString = (argv[1]);
|
for(int i=1; i<argc; i++)
|
vcdDumpFile = dumpDir + testNameString + dumpSuffix;
|
{
|
|
if (strcmp(argv[i], "-vcd")==0)
|
|
{
|
|
testNameString = (argv[i+1]);
|
|
vcdDumpFile = testNameString;
|
|
cmdline_name_found=1;
|
|
break;
|
|
}
|
}
|
}
|
else // otherwise use our default VCD dump file name
|
}
|
vcdDumpFile = dumpDir + dumpNameDefault;
|
|
|
if(cmdline_name_found==0) // otherwise use our default VCD dump file name
|
|
vcdDumpFile = dumpNameDefault;
|
|
|
Verilated::traceEverOn (true);
|
Verilated::traceEverOn (true);
|
|
|
cout << "Enabling VCD trace" << endl;
|
cout << "Enabling VCD trace" << endl;
|
|
|
printf("VCD dumpfile: %s\n", vcdDumpFile.c_str());
|
printf("VCD dumpfile: %s\n", vcdDumpFile.c_str());
|
|
|
// Establish a new trace with its correct time resolution, and trace to
|
// Establish a new trace with its correct time resolution, and trace to
|
// great depth.
|
// great depth.
|
spTraceFile = new SpTraceVcdCFile ();
|
spTraceFile = new SpTraceVcdCFile ();
|
setSpTimeResolution (sc_get_time_resolution ());
|
setSpTimeResolution (sc_get_time_resolution ());
|
traceTarget->trace (spTraceFile, 99);
|
traceTarget->trace (spTraceFile, 99);
|
spTraceFile->open (vcdDumpFile.c_str());
|
spTraceFile->open (vcdDumpFile.c_str());
|
|
|
// Method to drive the dump on each clock edge
|
// Method to drive the dump on each clock edge
|
SC_METHOD (driveTrace);
|
SC_METHOD (driveTrace);
|
sensitive << clk;
|
sensitive << clk;
|
|
|
#endif
|
#endif
|
|
|
} // TraceSC ()
|
} // TraceSC ()
|
|
|
|
|
//! Destructor for the trace module.
|
//! Destructor for the trace module.
|
|
|
//! Used to close the tracefile
|
//! Used to close the tracefile
|
|
|
TraceSC::~TraceSC ()
|
TraceSC::~TraceSC ()
|
{
|
{
|
#if VM_TRACE
|
#if VM_TRACE
|
spTraceFile->close ();
|
spTraceFile->close ();
|
#endif
|
#endif
|
|
|
} // ~TraceSC ()
|
} // ~TraceSC ()
|
|
|
|
|
//! Method to drive the trace. We're called on ever clock edge, and also at
|
//! Method to drive the trace. We're called on ever clock edge, and also at
|
//! initialization (to get initial values into the dump).
|
//! initialization (to get initial values into the dump).
|
void
|
void
|
TraceSC::driveTrace()
|
TraceSC::driveTrace()
|
{
|
{
|
#if VM_TRACE
|
#if VM_TRACE
|
spTraceFile->dump (sc_time_stamp().to_double());
|
spTraceFile->dump (sc_time_stamp().to_double());
|
#endif
|
#endif
|
|
|
} // driveTrace()
|
} // driveTrace()
|
|
|
|
|
//! Utility method to set the SystemPerl trace time resolution.
|
//! Utility method to set the SystemPerl trace time resolution.
|
|
|
//! This should be automatic, but is missed in Verilator 3.700.
|
//! This should be automatic, but is missed in Verilator 3.700.
|
|
|
//! @param t The desired time resolution (as a SC time)
|
//! @param t The desired time resolution (as a SC time)
|
|
|
void
|
void
|
TraceSC::setSpTimeResolution (sc_time t)
|
TraceSC::setSpTimeResolution (sc_time t)
|
{
|
{
|
#if VM_TRACE
|
#if VM_TRACE
|
|
|
double secs = t.to_seconds();
|
double secs = t.to_seconds();
|
int val; // Integral value of the precision
|
int val; // Integral value of the precision
|
const char *units; // Units as text
|
const char *units; // Units as text
|
|
|
if (secs < 1.0e-15)
|
if (secs < 1.0e-15)
|
{
|
{
|
cerr << "VCD time resolution " << secs << " too small: ignored" << endl;
|
cerr << "VCD time resolution " << secs << " too small: ignored" << endl;
|
return;
|
return;
|
}
|
}
|
else if (secs < 1.0e-12)
|
else if (secs < 1.0e-12)
|
{
|
{
|
val = secs / 1.0e-15;
|
val = secs / 1.0e-15;
|
units = "f";
|
units = "f";
|
}
|
}
|
else if (secs < 1.0e-9)
|
else if (secs < 1.0e-9)
|
{
|
{
|
val = secs / 1.0e-12;
|
val = secs / 1.0e-12;
|
units = "p";
|
units = "p";
|
}
|
}
|
else if (secs < 1.0e-6)
|
else if (secs < 1.0e-6)
|
{
|
{
|
val = secs / 1.0e-9;
|
val = secs / 1.0e-9;
|
units = "n";
|
units = "n";
|
}
|
}
|
else if (secs < 1.0e-3)
|
else if (secs < 1.0e-3)
|
{
|
{
|
val = secs / 1.0e-6;
|
val = secs / 1.0e-6;
|
units = "u";
|
units = "u";
|
}
|
}
|
else if (secs < 1.0)
|
else if (secs < 1.0)
|
{
|
{
|
val = secs / 1.0e-3;
|
val = secs / 1.0e-3;
|
units = "m";
|
units = "m";
|
}
|
}
|
else
|
else
|
{
|
{
|
val = secs;
|
val = secs;
|
units = "s";
|
units = "s";
|
}
|
}
|
|
|
// Val must be a power of 10
|
// Val must be a power of 10
|
switch (val)
|
switch (val)
|
{
|
{
|
case 1:
|
case 1:
|
case 10:
|
case 10:
|
case 100:
|
case 100:
|
case 1000:
|
case 1000:
|
case 10000:
|
case 10000:
|
case 100000:
|
case 100000:
|
case 1000000:
|
case 1000000:
|
case 10000000:
|
case 10000000:
|
case 100000000:
|
case 100000000:
|
case 1000000000:
|
case 1000000000:
|
|
|
break; // OK
|
break; // OK
|
|
|
default:
|
default:
|
cerr << "VCD time resolution " << secs << " not power of 10: ignored"
|
cerr << "VCD time resolution " << secs << " not power of 10: ignored"
|
<< endl;
|
<< endl;
|
return;
|
return;
|
}
|
}
|
|
|
// Set the time resolution for the trace file
|
// Set the time resolution for the trace file
|
char str[32];
|
char str[32];
|
sprintf (str, "%d %s", val, units);
|
sprintf (str, "%d %s", val, units);
|
spTraceFile->spTrace()->set_time_resolution (str);
|
spTraceFile->spTrace()->set_time_resolution (str);
|
|
|
#endif
|
#endif
|
|
|
} // setSpTimeResolution()
|
} // setSpTimeResolution()
|
|
|
|
|
