projects / OpenSPARC-T2-DV / blob
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV] / verif / model / verilog / niu / niu_enet_models / bw_calc.v
// ========== Copyright Header Begin ==========================================
//
// OpenSPARC T2 Processor File: bw_calc.v
// Copyright (C) 1995-2007 Sun Microsystems, Inc. All Rights Reserved
// 4150 Network Circle, Santa Clara, California 95054, U.S.A.
//
// * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; version 2 of the License.
//
// This program 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 General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
// For the avoidance of doubt, and except that if any non-GPL license
// choice is available it will apply instead, Sun elects to use only
// the General Public License version 2 (GPLv2) at this time for any
// software where a choice of GPL license versions is made
// available with the language indicating that GPLv2 or any later version
// may be used, or where a choice of which version of the GPL is applied is
// otherwise unspecified.
//
// Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
// CA 95054 USA or visit www.sun.com if you need additional information or
// have any questions.
//
// ========== Copyright Header End ============================================
module bw_calc (/*AUTOARG*/
// Inputs
clk, data, enb, port_num, no_of_pkts, pkt_len, cal_enb,
speed_10G);
input clk;
input [7:0] data;
input enb;
input cal_enb;
input speed_10G;
input [1:0] port_num;
input [15:0] no_of_pkts;
input [15:0] pkt_len;
reg [1:0] bw_state;
reg [1:0] nxt_state;
integer data_byte_cnt;
integer ipg_byte_cnt;
real BW;
real BW_d;
real BW_in_pkts;
real avg_ipg_byte_cnt;
real bw_start_time;
real bw_end_time;
integer pkt_cnt;
integer no_of_txpkts;
integer packet_len;
real delta_time;
real delta_time1;
integer count;
reg [8*60:1] arg;
integer host_dly;
// initial for defaulting the values
initial
begin
bw_state = 2'b00;
end
// initial block for getting the latency number
initial
begin
arg = "SIU_REQ_DLY=";
if($test$plusargs("SIU_REQ_DLY=")) begin
`ifdef AXIS
`else
host_dly = $util_get_plus_args_num(arg);
`endif
$display("BW_CALC: Host_dly %0d\n",host_dly);
end
end
always @(nxt_state)
bw_state = nxt_state;
always @(posedge clk)
begin
if(cal_enb && speed_10G)
calc_BW(bw_state,data,enb,port_num,no_of_pkts,pkt_len,nxt_state);
else if(cal_enb && ~speed_10G)
calc_BW_1G(bw_state,data,enb,port_num,no_of_pkts,pkt_len,nxt_state);
end
task calc_BW;
input [1:0] bw_state;
input [7:0] data;
input enb;
input [1:0] port_num;
input [15:0] no_of_pkts;
input [15:0] pkt_len;
output [1:0] nxt_state;
case(bw_state)
2'b00 : begin
if((data == 8'hfb) && (enb == 1)) begin
nxt_state = 2'b01;
bw_start_time = $time;
$display("BW_CALC : START_TIME in BW %t for PORT %0d",bw_start_time,port_num);
end // if ((data == 8'hfb) && (enb == 1))
else begin
nxt_state = 2'b00;
pkt_cnt = 0;
data_byte_cnt = 0;
ipg_byte_cnt = 0;
avg_ipg_byte_cnt = 0;
bw_start_time = 0;
bw_end_time = 0;
no_of_txpkts = no_of_pkts;
packet_len = pkt_len;
delta_time = 0;
end // else: !if((data == 8'hfb) && (enb == 1))
end // case: 2'b00
2'b01 : begin
if((data == 8'hfd) && (enb == 1)) begin
pkt_cnt = pkt_cnt + 1;
if(pkt_cnt == no_of_txpkts) begin
nxt_state = 2'b00;
bw_end_time = $time;
delta_time = (bw_end_time - bw_start_time)/1000000;
delta_time1 = (bw_end_time - bw_start_time);
$display("BW_CALC : DELTA_TIME in BW %t for PORT %0d",delta_time1,port_num);
$display("BW_CALC : END_TIME in BW %t for PORT %0d",bw_end_time,port_num);
avg_ipg_byte_cnt = ipg_byte_cnt/no_of_pkts;
$display("BW_CALC : Avg_ipg_byte_cnt is %0f for PORT %0d",avg_ipg_byte_cnt,port_num);
// print the BW calculated
BW = 8*no_of_pkts*1000*(packet_len + 8 + avg_ipg_byte_cnt)/delta_time1;
$display("BW_CALC: BW_ON_WIRE is %0f Gigabits/sec for Port %0d",BW,port_num);
BW_d = 8*no_of_pkts*1000*packet_len/delta_time1;
$display("BW_CALC: BW_DATA is %0f Gigabits/sec for Port %0d",BW_d,port_num);
BW_in_pkts = no_of_pkts/delta_time;
$display("BW_CALC : BW_IN_PKTS for port %0d is %f Million_pkts/sec",port_num,BW_in_pkts);
if(packet_len == 64) begin
if(BW_in_pkts < 14.88) begin
if(host_dly < 140)
$display("BW_CALC : ERROR BW less than expected for port %0d",port_num);
else
$display("BW_CALC : Warning BW less than expected for port %0d",port_num);
end
end
else if(packet_len == 1518) begin
if(BW_in_pkts < 0.8)
$display("BW_CALC : ERROR BW less than expected for port %0d",port_num);
end
else if(packet_len == 9588) begin
if(BW_in_pkts < 0.1301)
$display("BW_CALC : ERROR BW less than expected for port %0d",port_num);
end
end
else
nxt_state = 2'b10;
end
else begin
data_byte_cnt = data_byte_cnt + 1;
nxt_state = 2'b01;
end
end
2'b10 : begin
if((data == 8'hfb) && (enb == 1))
nxt_state = 2'b01;
else begin
ipg_byte_cnt = ipg_byte_cnt + 1;
avg_ipg_byte_cnt = ipg_byte_cnt/no_of_pkts;
nxt_state = 2'b10;
end
end
endcase
endtask
task calc_BW_1G;
input [1:0] bw_state;
input [7:0] data;
input enb;
input [1:0] port_num;
input [15:0] no_of_pkts;
input [15:0] pkt_len;
output [1:0] nxt_state;
case(bw_state)
2'b00 : begin
if(enb == 1'b1) begin
nxt_state = 2'b01;
bw_start_time = $time;
$display("BW_CALC_1G : START_TIME in BW %t for PORT %0d",bw_start_time,port_num);
end
else begin
nxt_state = 2'b00;
pkt_cnt = 0;
data_byte_cnt = 0;
ipg_byte_cnt = 0;
avg_ipg_byte_cnt = 0;
bw_start_time = 0;
bw_end_time = 0;
no_of_txpkts = no_of_pkts;
packet_len = pkt_len;
delta_time = 0;
count = 0;
end
end
2'b01 : begin // check for frame delimiter in this state
if(enb) begin
// $display("BW_CALC_1G : COUNT in BW %0d for PORT %0d",count,port_num);
// $display("BW_CALC_1G : data in BW %0h for PORT %0d",data,port_num);
if(count < 6) begin
nxt_state = 2'b01;
count = count + 1;
end
else if((data == 8'hd5) && (count == 6)) begin
nxt_state = 2'b10;
count = 0;
end
else begin
nxt_state = 2'b00;
bw_start_time = 0;
end
end
else nxt_state = 2'b00;
end
2'b10 : begin
if(enb == 1'b0) begin
pkt_cnt = pkt_cnt + 1;
if(pkt_cnt == no_of_txpkts) begin
nxt_state = 2'b00;
bw_end_time = $time;
delta_time = (bw_end_time - bw_start_time)/1000000;
delta_time1 = (bw_end_time - bw_start_time);
$display("BW_CALC_1G : END_TIME in BW %t for PORT %0d",bw_end_time,port_num);
avg_ipg_byte_cnt = ipg_byte_cnt/no_of_pkts;
$display("BW_CALC_1G : Avg_ipg_per_pkt is %0f for PORT %0d",avg_ipg_byte_cnt,port_num);
// print the BW calculated
BW = (8*no_of_pkts*1000)*(packet_len + 8 + avg_ipg_byte_cnt)/delta_time1;
$display("BW_CALC_1G : BW_ON_WIRE is %0f Gigabits/sec for Port %0d",BW,port_num);
BW_d = (8*no_of_pkts*1000*packet_len)/delta_time1;
$display("BW_CALC_1G : BW_DATA is %0f Gigabits/sec for Port %0d",BW_d,port_num);
BW_in_pkts = no_of_pkts/delta_time;
$display("BW_CALC_1G : BW_IN_PKTS for port %0d is %f Million_pkts/sec",port_num,BW_in_pkts);
if(packet_len == 64) begin
if(BW_in_pkts < 15)
$display("BW_CALC_1G : ERROR BW less than expected for port %0d",port_num);
end
else if(packet_len == 1518) begin
if(BW_in_pkts < 0.8)
$display("BW_CALC_1G : ERROR BW less than expected for port %0d",port_num);
end
end
else begin
nxt_state = 2'b11;
ipg_byte_cnt = ipg_byte_cnt + 1;
end
end
else begin
data_byte_cnt = data_byte_cnt + 1;
nxt_state = 2'b10;
end
end
2'b11 : begin
if(~enb) begin
nxt_state = 2'b11;
ipg_byte_cnt = ipg_byte_cnt + 1;
end
else
nxt_state = 2'b01;
end
endcase
endtask
endmodule // bw_calc
Full OpenSPARC design & verification tarball including full HDL.