Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV] / verif / env / ilu_peu / vera / N2str / ilupeuIngressDmaWrStr.vr
CommitLineData
86530b38
AT
1// ========== Copyright Header Begin ==========================================
2//
3// OpenSPARC T2 Processor File: ilupeuIngressDmaWrStr.vr
4// Copyright (C) 1995-2007 Sun Microsystems, Inc. All Rights Reserved
5// 4150 Network Circle, Santa Clara, California 95054, U.S.A.
6//
7// * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
8//
9// This program is free software; you can redistribute it and/or modify
10// it under the terms of the GNU General Public License as published by
11// the Free Software Foundation; version 2 of the License.
12//
13// This program is distributed in the hope that it will be useful,
14// but WITHOUT ANY WARRANTY; without even the implied warranty of
15// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16// GNU General Public License for more details.
17//
18// You should have received a copy of the GNU General Public License
19// along with this program; if not, write to the Free Software
20// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21//
22// For the avoidance of doubt, and except that if any non-GPL license
23// choice is available it will apply instead, Sun elects to use only
24// the General Public License version 2 (GPLv2) at this time for any
25// software where a choice of GPL license versions is made
26// available with the language indicating that GPLv2 or any later version
27// may be used, or where a choice of which version of the GPL is applied is
28// otherwise unspecified.
29//
30// Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
31// CA 95054 USA or visit www.sun.com if you need additional information or
32// have any questions.
33//
34// ========== Copyright Header End ============================================
35class DmaWrPEUStr extends PEUStrBase
36 {
37 integer f_len; // The packet's payload length
38 bit[3:0] f_firstDWBE; // It's "first DWBE" field
39 bit[3:0] f_lastDWBE; // It's "last DWBE" field
40 integer f_bndy; // The address' boundary
41 bit f_lenSpecified; // Was a length specified?
42 bit f_firstSpecified; // Was a "firstDWBE" specified?
43 bit f_lastSpecified; // Was a "lastDWBE" specified?
44 bit f_bndySpecified; // Was an addr bndy specified?
45
46 task new( PEUTestEnv a_env )
47 {
48 super.new( a_env );
49 f_lenSpecified = 0;
50 f_firstSpecified = 0;
51 f_lastSpecified = 0;
52 f_bndySpecified = 0;
53 }
54 task SetLen( integer a_len )
55 {
56 f_len = a_len;
57 f_lenSpecified = 1;
58 }
59 task SetFirstDWBE( bit[3:0] a_dwbe )
60 {
61 f_firstDWBE = a_dwbe;
62 f_firstSpecified = 1;
63 }
64 task SetLastDWBE( bit[3:0] a_dwbe )
65 {
66 f_lastDWBE = a_dwbe;
67 f_lastSpecified = 1;
68 }
69 task SetAddrBndy( integer a_bndy )
70 {
71 f_bndy = a_bndy;
72 f_bndySpecified = 1;
73 }
74 task Execute()
75 {
76 bit[PEC_PCI__HDR] ingressHdr; // The ingress TLP's header
77 integer ingressData; // A payload descriptor
78 bit[7:0] ingressTag; // The tag for the TLP
79
80 // First, get in line for a DMA tag...
81 f_env.allocDmaTag( ingressTag );
82
83 // Then build a TLP
84 if ( f_lenSpecified )
85 f_env.genIngressWrReq( ingressTag, ingressHdr, ingressData, f_len );
86 else
87 f_env.genIngressWrReq( ingressTag, ingressHdr, ingressData );
88
89 // ...and set fields as requested
90 // by the caller.
91 if ( f_firstSpecified )
92 ingressHdr[PEC_PCI__FIRST_DWBE] = f_firstDWBE;
93 if ( f_lastSpecified )
94 ingressHdr[PEC_PCI__LAST_DWBE] = f_lastDWBE;
95 if ( f_bndySpecified )
96 f_env.setAddrBndy( ingressHdr, f_bndy, 64 );
97
98 f_env.reserveIngressCredits( ingressHdr );
99 f_env.drivePCIE( ingressHdr, ingressData );
100 f_env.consumeIngressCredits( ingressHdr );
101 f_env.expectILU( ingressHdr, ingressData );
102 f_env.freeDmaTag( ingressTag );
103 } /* end Execute */
104 } /* end DmaWrPECStr */