URL https://opencores.org/ocsvn/qaz_libs/qaz_libs/trunk

Subversion Repositories qaz_libs

[/] [qaz_libs/] [trunk/] [BFM/] [src/] [tb/] [legacy/] [tb_clk_pkg.sv] - Blame information for rev 50

Details | Compare with Previous | View Log


//////////////////////////////////////////////////////////////////////
////                                                              ////
//// Copyright (C) 2015 Authors and OPENCORES.ORG                 ////
////                                                              ////
//// This source file may be used and distributed without         ////
//// restriction provided that this copyright statement is not    ////
//// removed from the file and that any derivative work contains  ////
//// the original copyright notice and the associated disclaimer. ////
////                                                              ////
//// This source file is free software; you can redistribute it   ////
//// and/or modify it under the terms of the GNU Lesser General   ////
//// Public License as published by the Free Software Foundation; ////
//// either version 2.1 of the License, or (at your option) any   ////
//// later version.                                               ////
////                                                              ////
//// This source is distributed in the hope that it will be       ////
//// useful, but WITHOUT ANY WARRANTY; without even the implied   ////
//// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      ////
//// PURPOSE.  See the GNU Lesser General Public License for more ////
//// details.                                                     ////
////                                                              ////
//// You should have received a copy of the GNU Lesser General    ////
//// Public License along with this source; if not, download it   ////
//// from http://www.opencores.org/lgpl.shtml                     ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
 
`timescale 1ps/1ps
 
 
// --------------------------------------------------------------------
//
interface tb_clk_if;
  logic clk = 0;
  logic enable = 0;
  time period;
  event clk_rise;
  event clk_fall;
 
  modport tb_m
  (
    output clk
  );
endinterface: tb_clk_if
 
 
// --------------------------------------------------------------------
//
package tb_clk_pkg;
 
  // --------------------------------------------------------------------
  //
  class
    tb_clk_class;
 
    virtual tb_clk_if tb;
 
    // --------------------------------------------------------------------
    //
    function
      new
      (
        virtual tb_clk_if tb
      );
 
      this.tb = tb;
    endfunction: new
 
 
    // --------------------------------------------------------------------
    //
    task
      init_basic_clock
      (
        time period
      );
 
      tb.period = period;
      tb.enable = 1;
 
      $display( "^^^ %16.t | %m | Starting clock with period %t.", $time, period );
 
      fork
        forever
          if( tb.enable )
            begin
              #(period/2) tb.clk = 1;
              -> tb.clk_rise;
              #(period/2) tb.clk = 0;
              -> tb.clk_fall;
            end
      join_none
 
    endtask: init_basic_clock
 
 
    // --------------------------------------------------------------------
    //
    task
      enable_clock
      (
        logic enable
      );
 
      tb.enable = enable;
 
      $display( "^^^ %16.t | %m | Clock Enable =  %h.", $time, enable );
 
    endtask: enable_clock
 
  // --------------------------------------------------------------------
  //
  endclass: tb_clk_class
 
//--------------------------------------------------------------------
//
endpackage: tb_clk_pkg
 

Line No.	Rev	Author	Line
1	50	qaztronic	`//////////////////////////////////////////////////////////////////////`
2			`//// ////`
3			`//// Copyright (C) 2015 Authors and OPENCORES.ORG ////`
4			`//// ////`
5			`//// This source file may be used and distributed without ////`
6			`//// restriction provided that this copyright statement is not ////`
7			`//// removed from the file and that any derivative work contains ////`
8			`//// the original copyright notice and the associated disclaimer. ////`
9			`//// ////`
10			`//// This source file is free software; you can redistribute it ////`
11			`//// and/or modify it under the terms of the GNU Lesser General ////`
12			`//// Public License as published by the Free Software Foundation; ////`
13			`//// either version 2.1 of the License, or (at your option) any ////`
14			`//// later version. ////`
15			`//// ////`
16			`//// This source is distributed in the hope that it will be ////`
17			`//// useful, but WITHOUT ANY WARRANTY; without even the implied ////`
18			`//// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ////`
19			`//// PURPOSE. See the GNU Lesser General Public License for more ////`
20			`//// details. ////`
21			`//// ////`
22			`//// You should have received a copy of the GNU Lesser General ////`
23			`//// Public License along with this source; if not, download it ////`
24			`//// from http://www.opencores.org/lgpl.shtml ////`
25			`//// ////`
26			`//////////////////////////////////////////////////////////////////////`
27
28			`timescale 1ps/1ps
29
30
31			`// --------------------------------------------------------------------`
32			`//`
33			`interface tb_clk_if;`
34			`logic clk = 0;`
35			`logic enable = 0;`
36			`time period;`
37			`event clk_rise;`
38			`event clk_fall;`
39
40			`modport tb_m`
41			`(`
42			`output clk`
43			`);`
44			`endinterface: tb_clk_if`
45
46
47			`// --------------------------------------------------------------------`
48			`//`
49			`package tb_clk_pkg;`
50
51			`// --------------------------------------------------------------------`
52			`//`
53			`class`
54			`tb_clk_class;`
55
56			`virtual tb_clk_if tb;`
57
58			`// --------------------------------------------------------------------`
59			`//`
60			`function`
61			`new`
62			`(`
63			`virtual tb_clk_if tb`
64			`);`
65
66			`this.tb = tb;`
67			`endfunction: new`
68
69
70			`// --------------------------------------------------------------------`
71			`//`
72			`task`
73			`init_basic_clock`
74			`(`
75			`time period`
76			`);`
77
78			`tb.period = period;`
79			`tb.enable = 1;`
80
81			`$display( "^^^ %16.t \| %m \| Starting clock with period %t.", $time, period );`
82
83			`fork`
84			`forever`
85			`if( tb.enable )`
86			`begin`
87			`#(period/2) tb.clk = 1;`
88			`-> tb.clk_rise;`
89			`#(period/2) tb.clk = 0;`
90			`-> tb.clk_fall;`
91			`end`
92			`join_none`
93
94			`endtask: init_basic_clock`
95
96
97			`// --------------------------------------------------------------------`
98			`//`
99			`task`
100			`enable_clock`
101			`(`
102			`logic enable`
103			`);`
104
105			`tb.enable = enable;`
106
107			`$display( "^^^ %16.t \| %m \| Clock Enable = %h.", $time, enable );`
108
109			`endtask: enable_clock`
110
111			`// --------------------------------------------------------------------`
112			`//`
113			`endclass: tb_clk_class`
114
115			`//--------------------------------------------------------------------`
116			`//`
117			`endpackage: tb_clk_pkg`
118

Browse

Tools

Subversion Repositories qaz_libs

[/] [qaz_libs/] [trunk/] [BFM/] [src/] [tb/] [legacy/] [tb_clk_pkg.sv] - Blame information for rev 50