Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / verif / env / fnx / vlib / XactorComponents / src / XactorListDupExpect.vr

// ========== Copyright Header Begin ==========================================
// 
// OpenSPARC T2 Processor File: XactorListDupExpect.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 ============================================
#include "XactorList.vrh"
 
class XactorListDupExpect extends XactorList {

 // Deletes all nodes that match i
 virtual protected task DeleteDup (XactorBasePacket i,
                                   var ListNode NodePtr,
                                   var bit Success
                                   );

 // Deletes the node with the specified value
 virtual task Delete (XactorBasePacket i,
                      var bit Success
                      );
 
 // Deletes all nodes that match i
 virtual protected task WCDeleteDup (XactorBasePacket i,
                                     var ListNode NodePtr,
                                     var bit Success
                                     );
 
 // Deletes multiple nodes with the specified value
 // Accepts wildcards
 virtual task WildCardDelete1 (XactorBasePacket i,
                               var bit Success
                               );
}

 ////////////////
// Definitions
////////////////

// Deletes all nodes that match i
task XactorListDupExpect::DeleteDup (XactorBasePacket i,
                                    var ListNode NodePtr,
                                    var bit Success
                                    ) {
 
 if (i.PktCompare("===", NodePtr.Item)) {
   i.SetID(NodePtr.Item.GetID());

   if(Success == 1'b1) // check if this is not the first node deleted.
     NodePtr.Item.PktDisplay(RTYP_XACTOR_FMWORK_DUP_WILDCARD_EXPECT_WARN, 
                             "Sampled Transaction satisfies duplicated Expect"
                             );
   trigger(ON, NodePtr.RemoveEvents[XACT_COMP_EXPECT_REMOVED_EVENT]); // Remove event
   trigger(ON, NodePtr.RemoveEvents[XACT_COMP_EXPECT_REMOVED_BY_XACTOR_EVENT]); // Removed by xactor
   NodePtr = NodePtr.Next;
   Success = 1'b1;
   if(NodePtr != null) {
     DeleteDup(i, 
               NodePtr, 
               Success
               );
   }
 }
 else {              
   if(NodePtr.Next != null) {
     DeleteDup(i, 
               NodePtr.Next, 
               Success
               );
   }
 }
}

// Deletes multiple nodes with the specified value
// Accepts wildcards
task XactorListDupExpect::Delete (XactorBasePacket i,
                                 var bit Success
                                 ) {
 Success = 1'b0;  
 
 if (Head == null) {
   Success = 1'b0;
 }
 else {
   DeleteDup(i, 
             Head, 
             Success
             );
 }
}

// Deletes all nodes that match i
task XactorListDupExpect::WCDeleteDup (XactorBasePacket i,
                                      var ListNode NodePtr,
                                      var bit Success
                                      ) {
 
 if (i.PktCompare("=?=", NodePtr.Item)) {
   i.SetID(NodePtr.Item.GetID());
   NodePtr.Item.PktCopy(i); // Copy sampled packet to expected packet

   if(Success == 1'b1) // check if this is not the first node deleted.
     NodePtr.Item.PktDisplay(RTYP_XACTOR_FMWORK_DUP_WILDCARD_EXPECT_WARN, 
                             "Sampled Transaction satisfies duplicated Expect"
                             );
   trigger(ON, NodePtr.RemoveEvents[XACT_COMP_EXPECT_REMOVED_EVENT]); // Remove event
   trigger(ON, NodePtr.RemoveEvents[XACT_COMP_EXPECT_REMOVED_BY_XACTOR_EVENT]); // Removed by xactor
   NodePtr = NodePtr.Next;
   Success = 1'b1;
   if(NodePtr != null) {
     WCDeleteDup(i, 
                 NodePtr, 
                 Success
                 );
   }
 }
 else {              
   if(NodePtr.Next != null) {
     WCDeleteDup(i, 
                 NodePtr.Next, 
                 Success
                 );
   }
 }
}

// Deletes multiple nodes with the specified value
// Accepts wildcards
task XactorListDupExpect::WildCardDelete1 (XactorBasePacket i,
                                          var bit Success
                                          ) {
 Success = 1'b0;  
 
 if (Head == null) {
   Success = 1'b0;
 }
 else {
   WCDeleteDup(i, 
               Head, 
               Success
               );
 }
}