Line 260... |
Line 260... |
my($version) = $comp->findnodes('./spirit:version/text()')->to_literal ;
|
my($version) = $comp->findnodes('./spirit:version/text()')->to_literal ;
|
my $variant = "";
|
my $variant = "";
|
if($version) {$variant = "${name}_${version}"}
|
if($version) {$variant = "${name}_${version}"}
|
else {$variant = "${name}"}
|
else {$variant = "${name}"}
|
print "rtl/gen directories for $project - $component VLNV $vendor - $library - $name - $variant \n";
|
print "rtl/gen directories for $project - $component VLNV $vendor - $library - $name - $variant \n";
|
|
$module_name = yp::lib::get_module_name($vendor,$library,$name,$version);
|
}
|
}
|
|
|
|
|
|
|
|
|
Line 310... |
Line 311... |
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/cov/${variant}/TestBench";
|
my $outfile ="${home}${work_site}/${vendor}__${project}${library_path}/cov/${variant}/TestBench";
|
open DUTFILE,">$outfile" or die "unable to open $outfile";
|
open DUTFILE,">$outfile" or die "unable to open $outfile";
|
print DUTFILE "`define SYNTHESIS \n";
|
print DUTFILE "`define SYNTHESIS \n";
|
print DUTFILE "`timescale 1ns/1ns \n";
|
print DUTFILE "`timescale 1ns/1ns \n";
|
print DUTFILE " module TB(); \n";
|
print DUTFILE " module TB(); \n";
|
print DUTFILE " $variant test ( ); \n";
|
print DUTFILE " $module_name test ( ); \n";
|
print DUTFILE " endmodule \n";
|
print DUTFILE " endmodule \n";
|
}
|
}
|
|
|
|
|
|
|
Line 482... |
Line 483... |
|
|
print SIM_PARM_FILE "always \n";
|
print SIM_PARM_FILE "always \n";
|
print SIM_PARM_FILE " #($local_parameters{\"PERIOD\"}/2) clk = !clk; \n";
|
print SIM_PARM_FILE " #($local_parameters{\"PERIOD\"}/2) clk = !clk; \n";
|
print SIM_PARM_FILE "`include \"./test_define\" \n";
|
print SIM_PARM_FILE "`include \"./test_define\" \n";
|
|
|
my $module_name = yp::lib::get_module_name($vendor,$project,$component,$version);
|
|
|
|
print SIM_PARM_FILE " $module_name \n";
|
print SIM_PARM_FILE " $module_name \n";
|
my $first =1;
|
my $first =1;
|
foreach my $parameter_name (@local_order)
|
foreach my $parameter_name (@local_order)
|
{
|
{
|