File: vsetval2.v

package info (click to toggle)
gplcver 2.12a-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 7,604 kB
  • ctags: 9,129
  • sloc: ansic: 126,201; sh: 1,539; makefile: 86; perl: 22
file content (33 lines) | stat: -rw-r--r-- 527 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
//
// test of strdelputp - copy from input system task to output then
// compare results to make same
//

module top;
 xx i1();
endmodule

module xx;
 integer i;
 reg [31:0] rwa; 
 reg rw;
 reg [15:0] a, b;
 wire w;
 wire [31:0] wa; 
 parameter d = 500; 

 assign wa = rwa;
 assign w = rw;

 initial
  begin
   $monitor($stime,, "a=%b", a); 
   a = 0; rwa = 0;
   for (i = 0; i < 1000; i = i + 100) 
    begin
     $vsetval(a[5], rwa, i + 25, "vpiPureTransportDelay");
     rwa[0] = ~rwa[0];
    end
   #2000; 
  end
endmodule