3 Virtual Interfaces - basics +1

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
interface my_if();
   logic  [7:0] some_data;
endinterface


module dut(my_if mif);
   initial begin
      $monitor($time," mif.some_data=%2x", 
           mif.some_data);      
   end  
endmodule


class class_stimulus;
   virtual my_if port_vif;
   int     my_aaa, my_bbb;
   function new(input int aaa,bbb);
      my_aaa         = aaa;
      my_bbb         = bbb;      
   endfunction
   task run_t(virtual my_if ports);
      this.port_vif  = ports;
      repeat (1) begin
     port_vif.some_data  = my_aaa;
     #2;     
     port_vif.some_data  = my_bbb;
     #2;     
      end
      this.port_vif  = null;
   endtask
endclass 


program test(my_if this_if);
   initial begin
      class_stimulus class_stimulus_u  = new(.aaa(4), .bbb(7)); 
      class_stimulus class_stimulus_u2 = new(.aaa(3), .bbb(9));      
      class_stimulus_u.run_t(this_if);
      #33;      
      class_stimulus_u2.run_t(this_if);
      #122;
      $finish;   
   end
endprogram 


module mem_tb();
   my_if my_connection();
   dut my_dut(.mif(my_connection));
   test my_test(.this_if(my_connection));   
endmodule

1
irun -licqueue -sv class_stimulus.svh my_if.sv dut.sv test.sv tb_top.sv