Subversion Repositories avalon-wishbone-bridge

//------------------------------------------------------------

//   Copyright 2010 Mentor Graphics Corporation

//   All Rights Reserved Worldwide

//

//   Licensed under the Apache License, Version 2.0 (the

//   "License"); you may not use this file except in

//   compliance with the License.  You may obtain a copy of

//   the License at

//

//       http://www.apache.org/licenses/LICENSE-2.0

//

//   Unless required by applicable law or agreed to in

//   writing, software distributed under the License is

//   distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR

//   CONDITIONS OF ANY KIND, either express or implied.  See

//   the License for the specific language governing

//   permissions and limitations under the License.

//------------------------------------------------------------

`ifndef wb_slave_driver

`define wb_slave_driver

//

// Class Description:

//

//

class wb_slave_driver #(AW =32, DW=64, TW= 2) extends uvm_driver #(wb_slave_seq_item #(AW, DW, TW),wb_slave_seq_item#(AW,DW,TW));

// UVM Factory Registration Macro

//

`uvm_component_utils(wb_slave_driver)

// Virtual Interface

virtual wb_if #(AW, DW, TW) WB;

//------------------------------------------

// Data Members

//------------------------------------------

wb_slave_agent_config m_cfg;

mailbox slave_mbox;

//------------------------------------------

// Methods

//------------------------------------------

// Standard UVM Methods:

extern function new(string name = "wb_slave_driver", uvm_component parent = null);

extern function void build_phase(uvm_phase phase);

extern task run_phase(uvm_phase phase);

extern task req_loop();

extern task resp_loop(uvm_phase phase);

//task handle_req(wb_slave_seq_item #(AW, DW, TW) req);

//endtask

//

//task handle_rsp(wb_slave_seq_item #(AW, DW, TW) rsp,wb_slave_seq_item #(AW, DW, TW) req);

//endtask

endclass: wb_slave_driver

function wb_slave_driver::new(string name = "wb_slave_driver", uvm_component parent = null);

  super.new(name, parent);

  slave_mbox=new(1);

endfunction

function void wb_slave_driver::build_phase(uvm_phase phase);

  m_cfg = wb_slave_agent_config::get_config(this);

  WB = m_cfg.WB;

endfunction: build_phase

task wb_slave_driver::run_phase(uvm_phase phase);

  //wb_slave_seq_item #(AW, DW, TW) req;

  //wb_slave_seq_item #(AW, DW, TW) rsp;

//phase.raise_objection(this);

        fork

                this.req_loop();

                this.resp_loop(phase);

        join

      `uvm_info("** WB SLAVE RUN PHASE EXITED **", "", UVM_LOW)

//phase.drop_objection(this);

endtask: run_phase

task wb_slave_driver::req_loop();

        wb_slave_seq_item #(this.AW, this.DW, this.TW) req=new();

        forever begin

        if (!this.WB.rst_n) begin

                this.WB.stall<=1'b0;

                @(posedge this.WB.clk);

        end else begin

                //@(posedge this.WB.clk);

                $strobe("waiting\n");

                //this.seq_item_port.get_next_item(req);

                while (!(this.WB.cyc === 1'b1 && this.WB.stb ===1'b1)) @(posedge this.WB.clk);

                //@((this.WB.clk ===1'b1 && this.WB.cyc === 1'b1));

                $strobe("got request %d\n",this.WB.adr);

                if(slave_mbox.try_put(req)) begin

                        this.WB.stall<=1'b0;

                        req.addr<= this.WB.adr;

                        req.rw<= this.WB.we;

                        if (req.rw) req.wdata<= this.WB.dat_o;

                        //this.seq_item_port.item_done();

                        slave_mbox.put(req);

                end else

                        this.WB.stall<=1'b1;

                @(posedge this.WB.clk);

        end

        end

endtask

task wb_slave_driver::resp_loop(uvm_phase phase);

        wb_slave_seq_item #(this.AW, this.DW, this.TW) req1;

        wb_slave_seq_item #(this.AW, this.DW, this.TW) req;

        wb_slave_seq_item #(this.AW, this.DW, this.TW) rsp;

        forever begin

        if (!this.WB.rst_n) begin

                this.WB.ack<= 1'b0;

                this.WB.err<= 1'b0;

                this.WB.rty<= 1'b0;

                this.WB.dat_i<='0;

                @(posedge this.WB.clk);

        end

        else begin

                this.WB.ack<=1'b0;

                this.WB.err<= 1'b0;

                this.WB.rty<= 1'b0;

                this.WB.dat_i<='0;

                if(slave_mbox.try_get(req)) //begin

                //@(slave_mbox.try_get(req));

                begin

                        $strobe("Processing req\n");

                        slave_mbox.get(req);

                        this.seq_item_port.get_next_item(req1);

                        req1.copy(req);

                        this.seq_item_port.item_done();

                        this.seq_item_port.get_next_item(rsp);

                                $strobe("wait cycle %d\n",rsp.delay);

                        //phase.raise_objection(this);

                        repeat (rsp.delay) begin

                                @(posedge this.WB.clk);

                                this.WB.ack<=1'b0;

                                this.WB.err<= 1'b0;

                                this.WB.rty<= 1'b0;

                                this.WB.dat_i<='0;

                        end

                        //phase.raise_objection(this);

                        if ( ! req.rw) this.WB.dat_i<= rsp.rdata;

                                $strobe("rsp %d\n",rsp.rdata);

                        this.WB.ack<=1'b1;

                        this.WB.err<= rsp.slv_err;

                        this.seq_item_port.item_done();

                end

                @(posedge this.WB.clk);

        end

        end

endtask

`endif // wb_slave_driver