| Line 39... |
Line 39... |
|
|
//! @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, int argc, char *argv[]):
|
Vorpsoc_top *_traceTarget,
|
|
int argc,
|
|
char *argv[]) :
|
|
sc_module (name),
|
sc_module (name),
|
traceTarget (_traceTarget)
|
traceTarget (_traceTarget)
|
{
|
{
|
#if VM_TRACE
|
#if VM_TRACE
|
|
|
| Line 58... |
Line 55... |
// Search through the command line parameters for VCD dump options
|
// Search through the command line parameters for VCD dump options
|
dump_start_delay = 0;
|
dump_start_delay = 0;
|
dump_stop_set = 0;
|
dump_stop_set = 0;
|
int time_val;
|
int time_val;
|
int cmdline_name_found=0;
|
int cmdline_name_found=0;
|
if (argc > 1)
|
if (argc > 1) {
|
{
|
for (int i = 1; i < argc; i++) {
|
for(int i=1; i<argc; i++)
|
|
{
|
|
if ((strcmp(argv[i], "-vcd")==0) ||
|
if ((strcmp(argv[i], "-vcd")==0) ||
|
(strcmp(argv[i], "--vcd")==0))
|
(strcmp(argv[i], "--vcd") == 0)) {
|
{
|
|
testNameString = (argv[i+1]);
|
testNameString = (argv[i+1]);
|
vcdDumpFile = testNameString;
|
vcdDumpFile = testNameString;
|
cmdline_name_found=1;
|
cmdline_name_found=1;
|
}
|
} else if ((strcmp(argv[i], "-vcdstart") == 0) ||
|
else if ( (strcmp(argv[i], "-vcdstart")==0) ||
|
(strcmp(argv[i], "--vcdstart") == 0)) {
|
(strcmp(argv[i], "--vcdstart")==0) )
|
|
{
|
|
time_val = atoi(argv[i+1]);
|
time_val = atoi(argv[i+1]);
|
sc_time dump_start_time(time_val,SC_NS);
|
sc_time dump_start_time(time_val,SC_NS);
|
dump_start = dump_start_time;
|
dump_start = dump_start_time;
|
if (DEBUG_TRACESC) cout << "TraceSC(): Dump start time set at " << dump_start.to_string() << endl;
|
if (DEBUG_TRACESC)
|
|
cout <<
|
|
"TraceSC(): Dump start time set at "
|
|
<< dump_start.to_string() << endl;
|
dump_start_delay = 1;
|
dump_start_delay = 1;
|
break;
|
break;
|
}
|
} else if ((strcmp(argv[i], "-vcdstop") == 0) ||
|
else if ( (strcmp(argv[i], "-vcdstop")==0) ||
|
(strcmp(argv[i], "--vcdstop") == 0)) {
|
(strcmp(argv[i], "--vcdstop")==0) )
|
|
{
|
|
time_val = atoi(argv[i+1]);
|
time_val = atoi(argv[i+1]);
|
sc_time dump_stop_time(time_val,SC_NS);
|
sc_time dump_stop_time(time_val,SC_NS);
|
dump_stop = dump_stop_time;
|
dump_stop = dump_stop_time;
|
if (DEBUG_TRACESC) cout << "TraceSC(): Dump stop time set at " << dump_stop.to_string() << endl;
|
if (DEBUG_TRACESC)
|
|
cout <<
|
|
"TraceSC(): Dump stop time set at "
|
|
<< dump_stop.to_string() << endl;
|
dump_stop_set = 1;
|
dump_stop_set = 1;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
}
|
}
|
| Line 106... |
Line 102... |
if (dump_stop_set)
|
if (dump_stop_set)
|
cout << ", off at time " << dump_stop.to_string();
|
cout << ", off at time " << dump_stop.to_string();
|
|
|
cout << endl;
|
cout << 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 ();
|
| Line 121... |
Line 116... |
if (dump_start_delay == 1)
|
if (dump_start_delay == 1)
|
dumping_now = 0; // We'll wait for the time to dump
|
dumping_now = 0; // We'll wait for the time to dump
|
else
|
else
|
dumping_now = 1; // Begin with dumping turned on
|
dumping_now = 1; // Begin with dumping turned on
|
|
|
|
|
// 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 ()
|
| Line 143... |
Line 136... |
spTraceFile->close ();
|
spTraceFile->close ();
|
#endif
|
#endif
|
|
|
} // ~TraceSC ()
|
} // ~TraceSC ()
|
|
|
|
|
//! Method to drive the trace. We're called on every clock edge, and also at
|
//! Method to drive the trace. We're called on every 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
|
|
|
if (DEBUG_TRACESC) cout << "TraceSC(): " << endl;
|
if (DEBUG_TRACESC)
|
if (dumping_now == 0)
|
cout << "TraceSC(): " << endl;
|
{
|
if (dumping_now == 0) {
|
// Check the time, see if we should enable dumping
|
// Check the time, see if we should enable dumping
|
if (sc_time_stamp() >= dump_start)
|
if (sc_time_stamp() >= dump_start) {
|
{
|
|
// Give a message
|
// Give a message
|
cout << "* VCD tracing turned on at time " << dump_start.to_string() << endl;
|
cout << "* VCD tracing turned on at time " <<
|
|
dump_start.to_string() << endl;
|
dumping_now = 1;
|
dumping_now = 1;
|
}
|
}
|
}
|
}
|
|
|
if (dumping_now == 1)
|
if (dumping_now == 1)
|
spTraceFile->dump (sc_time_stamp().to_double());
|
spTraceFile->dump (sc_time_stamp().to_double());
|
|
|
|
|
// Should we turn off tracing?
|
// Should we turn off tracing?
|
if ((dumping_now == 1) && (dump_stop_set == 1))
|
if ((dumping_now == 1) && (dump_stop_set == 1)) {
|
{
|
if (sc_time_stamp() >= dump_stop) {
|
if (sc_time_stamp() >= dump_stop)
|
|
{
|
|
// Give a message
|
// Give a message
|
cout << "* VCD tracing turned off at time " << dump_stop.to_string() << endl;
|
cout << "* VCD tracing turned off at time " <<
|
|
dump_stop.to_string() << endl;
|
dumping_now = 0; // Turn off the dump
|
dumping_now = 0; // Turn off the dump
|
}
|
}
|
}
|
}
|
|
|
#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 <<
|
cerr << "* VCD time resolution " << secs << " too small: ignored" << endl;
|
" 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:
|
| Line 251... |
Line 225... |
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 <<
|
<< endl;
|
" not power of 10: ignored" << 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];
|
| Line 265... |
Line 239... |
|
|
#endif
|
#endif
|
|
|
} // setSpTimeResolution()
|
} // setSpTimeResolution()
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
