Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / verif / env / ilu_peu / vera / strategy / ilupeuIngressTlpStrategy.vr

// ========== Copyright Header Begin ==========================================
// 
// OpenSPARC T2 Processor File: ilupeuIngressTlpStrategy.vr
// 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 ============================================
class ilupeuIngressTlpStrategy extends ilupeuTlpStrategyBase {
 
  //Inherited from ilupeuTlpStrategyBase 
  // CSRCollection     CSR;
  // ReportClass       Report;
  // ilupeuPodClass     Pod;
  // ilupeuScenario     Scenario;
  //Random Utilities
  // FNXRandomUtil RandUtil;
  //Transaction and Packet Types
  // FNXPCIEXactorTransaction TlpTrans;
  // FNXPCIEXactorPacket      TlpPkt;
  // bit [ILUPEU_TLP_HDR_WIDTH-1:0] tlpHdr = {ILUPEU_TLP_HDR_WIDTH{1'b0}};
  // LPUXtrDataTLP            LPUXtrTlpPkt;
  //Payload arrays
  // bit [7:0] pyldByteAry[*];
  // bit [31:0] pyldDWAry[*];
  // bit [31:0] pyldDW;
  // integer dataSpec = 0;

//#ifdef  N2_FC
  //After constructing the class with new set the
  // variables below before calling Execute().
  //
  //  bit [7:0] pyldFirstByteValue = 0;
  //  bit [63:0] tlpAddr = 0;
//#endif


  //Constructor
  task new ( ReportClass      _Report,
             CSRCollection    _CSR,
             ilupeuPodClass   _Pod ,	//Xactors
             ilupeuScenario   _Scenario );   //Test Parameters

  //Public tasks
  task Execute();

}
 
// class constructor
task ilupeuIngressTlpStrategy::new ( ReportClass     _Report,
                                     CSRCollection   _CSR,
                                     ilupeuPodClass  _Pod,
                                     ilupeuScenario  _Scenario )
{
  super.new( _Report,
             _CSR,
             _Pod,
             _Scenario );
 

}



task ilupeuIngressTlpStrategy::Execute() 
{

    integer driveCompleteTO = 1000*Scenario.EgrTlpMaxActiveStrats;
    integer expectCompleteTO;
    bit driveComplete = 0;

    //Set the value of the 1st byte of payload -
#ifdef  N2_FC
    //
    dataSpec = pyldFirstByteValue;
#else
    dataSpec = RandUtil.Rand32( 0, 8'hff );
#endif

    //Generate a random Ingress FNXPCIEXactorTransaction TLP - TlpTrans
    GenRandomPCIEXtrTlp( ILUPEU_INGRESS_TRANS,
                         dataSpec );
    
    //Convert the FNXPCIEXactorTransaction to Header format
    // tlpHdr is filled in according to Tlp type generated in GenRandomPCIEXtrTLP
    ConvertPcieTlp2Hdr(); //Fills in tlpHdr


    //Now Convert the Header and Payload to LPUXtr packet
    // Instantiate a new LPUXtr packet and move data from tlpHdr into LPUXtrTlpPkt
//    ConvertHdr2LpuXtrTlpPkt();
    //Set LPUXtrTlpPkt CTTransactionID
//    LPUXtrTlpPkt.SetID( ID );

    //Set expect to = time to transmit a packet that size + a little overhead depending on the link width
    //Read the Denali Link Status Register
    denRegTmpData = regTrans.ReadDenaliReg( PCIE_REG_DEN_LINK_ST );
    expectCompleteTO = ((xtrLen*4)/denRegTmpData[FNX_PCIE_XTR_REG_DEN_LINK_ST_LINK_WIDTH_SLC]) + 50;

    QuickReport( Report,
                 RTYP_INFO,
                 "%s ilupeuIngressTlpStrategy:Call TlpTrans.Drive() expectCompleteTO=%0d ",ID.GetString(),expectCompleteTO );


    fork
    {
       TlpTrans.Drive();
       driveComplete = 1;
    }
    {
        //Timeout if transaction can't be driven by Denali then this is an error 
        //review - Deal with retraining here
        while( driveCompleteTO && !driveComplete ){
            @(posedge CLOCK);
            driveCompleteTO--;
        }

    }
    join any

    if( !driveComplete ){
       QuickReport( Report,
                    RTYP_TEST_ERROR,
                    "%s ilupeuEgressTlpStrategy: Denali TlpTrans.Drive() timed out trying to drive TlpPkt ",ID.GetString() );
    }

// MAQ: PEU
#ifdef	N2_FC
#else
    Pod.DMUXtr.recv( tlpHdr,dataSpec ); 
#endif
// MAQ: PEU

    //Free up the unique tag if one was used
    if( uniqueTagSet ){
       FreeUniqueTag( TlpPkt.ReqTag );
    } 

    QuickReport( Report,
                 RTYP_INFO,
                 "%s ilupeuIngressTlpStrategy:Strategy complete!",ID.GetString() );

    repeat(10) @(posedge CLOCK);

}