URL
https://opencores.org/ocsvn/tv80/tv80/trunk
[/] [tv80/] [trunk/] [env/] [env_tasks.v] - Diff between revs 84 and 89
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 84 |
Rev 89 |
reg dumping;
|
reg dumping;
|
|
|
initial
|
initial
|
dumping = 0;
|
dumping = 0;
|
|
|
task test_pass;
|
task test_pass;
|
begin
|
begin
|
$display ("%t: --- TEST PASSED ---", $time);
|
$display ("%t: --- TEST PASSED ---", $time);
|
#100;
|
#100;
|
$finish;
|
$finish;
|
end
|
end
|
endtask // test_pass
|
endtask // test_pass
|
|
|
task test_fail;
|
task test_fail;
|
begin
|
begin
|
$display ("%t: !!! TEST FAILED !!!", $time);
|
$display ("%t: !!! TEST FAILED !!!", $time);
|
#100;
|
#100;
|
$finish;
|
$finish;
|
end
|
end
|
endtask // test_fail
|
endtask // test_fail
|
|
|
task dumpon;
|
task dumpon;
|
begin
|
begin
|
if (!dumping)
|
if (!dumping)
|
begin
|
begin
|
|
`ifdef VCS
|
|
$vcdpluson;
|
|
$vcdplusmemon;
|
|
`else
|
$dumpfile (`DUMPFILE_NAME);
|
$dumpfile (`DUMPFILE_NAME);
|
$dumpvars;
|
$dumpvars;
|
|
`endif
|
dumping = 1;
|
dumping = 1;
|
end
|
end
|
end
|
end
|
endtask // dumpon
|
endtask // dumpon
|
|
|
task dumpoff;
|
task dumpoff;
|
begin
|
begin
|
|
`ifdef VCS
|
|
$vcdplusoff;
|
|
$vcdplusmemoff;
|
|
`else
|
// ???
|
// ???
|
|
`endif
|
end
|
end
|
endtask // dumpoff
|
endtask // dumpoff
|
|
|
task clear_ram;
|
task clear_ram;
|
integer i;
|
integer i;
|
begin
|
begin
|
for (i=0; i<32768; i=i+1)
|
for (i=0; i<32768; i=i+1)
|
tb_top.ram.mem[i] = 0;
|
tb_top.ram.mem[i] = 0;
|
end
|
end
|
endtask
|
endtask
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.