Subversion Repositories pci

//////////////////////////////////////////////////////////////////////

////                                                              ////

////  File name "system.v"                                        ////

////                                                              ////

////  This file is part of the "PCI bridge" project               ////

////  http://www.opencores.org/cores/pci/                         ////

////                                                              ////

////  Author(s):                                                  ////

////      - Miha Dolenc (mihad@opencores.org)                     ////

////      - Tadej Markovic (tadej@opencores.org)                  ////

////                                                              ////

//////////////////////////////////////////////////////////////////////

////                                                              ////

//// Copyright (C) 2000 Miha Dolenc, mihad@opencores.org          ////

////                                                              ////

//// This source file may be used and distributed without         ////

//// restriction provided that this copyright statement is not    ////

//// removed from the file and that any derivative work contains  ////

//// the original copyright notice and the associated disclaimer. ////

////                                                              ////

//// This source file is free software; you can redistribute it   ////

//// and/or modify it under the terms of the GNU Lesser General   ////

//// Public License as published by the Free Software Foundation; ////

//// either version 2.1 of the License, or (at your option) any   ////

//// later version.                                               ////

////                                                              ////

//// This source 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 Lesser General Public License for more ////

//// details.                                                     ////

////                                                              ////

//// You should have received a copy of the GNU Lesser General    ////

//// Public License along with this source; if not, download it   ////

//// from http://www.opencores.org/lgpl.shtml                     ////

////                                                              ////

//////////////////////////////////////////////////////////////////////

//

// CVS Revision History

//

// $Log: not supported by cvs2svn $

// Revision 1.19  2003/08/21 21:00:38  tadejm

// Added support for WB B3. Some testcases were updated.

//

// Revision 1.18  2003/08/03 18:04:44  mihad

// Added limited WISHBONE B3 support for WISHBONE Slave Unit.

// Doesn't support full speed bursts yet.

//

// Revision 1.17  2003/07/29 08:19:47  mihad

// Found and simulated the problem in the synchronization logic.

// Repaired the synchronization logic in the FIFOs.

//

// Revision 1.16  2003/06/12 02:30:39  mihad

// Update!

//

// Revision 1.15  2003/03/14 15:33:55  mihad

// Updated acording to RTL changes.

//

// Revision 1.14  2003/01/30 22:01:33  mihad

// Updated synchronization in top level fifo modules.

//

// Revision 1.13  2003/01/21 16:06:50  mihad

// Bug fixes, testcases added.

//

// Revision 1.12  2002/10/21 13:04:30  mihad

// Changed BIST signal names etc..

//

// Revision 1.11  2002/10/11 12:03:12  mihad

// The testcase I just added in previous revision repaired

//

// Revision 1.10  2002/10/11 10:08:57  mihad

// Added additional testcase and changed rst name in BIST to trst

//

// Revision 1.9  2002/10/08 17:17:02  mihad

// Added BIST signals for RAMs.

//

// Revision 1.8  2002/09/25 09:54:47  mihad

// Added completion expiration test for WB Slave unit. Changed expiration signalling

//

// Revision 1.7  2002/08/22 09:20:16  mihad

// Oops, never before noticed that OC header is missing

//

//

`include "pci_constants.v"

`include "bus_commands.v"

`include "pci_testbench_defines.v"

`include "timescale.v"

`ifdef HOST

    `ifdef NO_CNF_IMAGE

    `else

        `define TEST_CONF_CYCLE_TYPE1_REFERENCE

    `endif

`else

    `define TEST_CONF_CYCLE_TYPE1_REFERENCE

`endif

`ifdef WB_CLOCK_FOLLOWS_PCI_CLOCK

    `define DO_CORNER_CASE_TESTS

`endif

`ifdef PCI_CLOCK_FOLLOWS_WB_CLOCK

    `define DO_CORNER_CASE_TESTS

`endif

module SYSTEM ;

`include "pci_blue_constants.vh"

`include "pci_blue_options.vh"

integer tests_successfull ;

integer tests_failed ;

integer tb_log_file ;

reg [799:0] test_name ;

reg pci_clock ;

reg wb_clock ;

reg reset ;

wire [4:0] arb_grant_out ;

wire [31:0] AD ;

wire [3:0]  CBE ;

wire INTA ;

pullup(INTA) ;

wire MAS0_REQ ;

wire MAS1_REQ ;

wire MAS2_REQ ;

wire MAS3_REQ ;

pullup(MAS0_REQ) ;

pullup(MAS1_REQ) ;

pullup(MAS2_REQ) ;

pullup(MAS3_REQ) ;

wire MAS0_GNT = ~arb_grant_out[0];

wire MAS1_GNT = ~arb_grant_out[1] ;

wire MAS2_GNT = ~arb_grant_out[2] ;

wire MAS3_GNT = ~arb_grant_out[3] ;

wire FRAME ;

wire IRDY ;

pullup(FRAME) ;

pullup(IRDY) ;

wire        TAR0_IDSEL = AD[`TAR0_IDSEL_INDEX] ;

wire DEVSEL, TRDY, STOP, PERR, SERR, LOCK ;

pullup(DEVSEL) ;

pullup(TRDY) ;

pullup(STOP) ;

wire   PAR ;

pullup(PERR) ;

pullup(SERR) ;

wire [3:0] MAS1_IDSEL ;

pullup lockpu ( LOCK ) ;

wire        RST_O ;

wire        INT_O ;

reg         INT_I ;

wire [31:0] ADR_I ;

wire [31:0] SDAT_I ;

wire [31:0] SDAT_O ;

wire [3:0]  SEL_I ;

wire        CYC_I ;

wire        STB_I ;

wire        WE_I ;

wire        CAB_I ;

wire [2:0]  CTI_I ;

wire [1:0]  BTE_I ;

wire        ACK_O ;

wire        RTY_O ;

wire        ERR_O ;

wire [31:0] ADR_O ;

wire [31:0] MDAT_I ;

wire [31:0] MDAT_O ;

wire [3:0]  SEL_O ;

wire        CYC_O ;

wire        STB_O ;

wire        WE_O ;

wire [2:0]  CTI_O ;

wire [1:0]  BTE_O ;

wire        CAB_O = 1'b0 ;

wire        ACK_I ;

wire        RTY_I ;

wire        ERR_I ;

wire        TAR1_IDSEL = AD[`TAR1_IDSEL_INDEX] ;

wire        TAR2_IDSEL = AD[`TAR2_IDSEL_INDEX] ;

wire        reset_wb ; // reset to Wb devices

`ifdef PCI_BIST

wire mbist_so_o ;

reg  mbist_si_i ;

reg  mbist_rst ;

reg  mbist_en_i ;

reg  mbist_clk ;

`endif

wire RST ;

`ifdef GUEST

    assign  RST = ~reset ;

    assign  reset_wb = RST_O ;

`else

    pullup(RST) ;

    assign  reset_wb = reset ;

`endif

`define PCI_BRIDGE_INSTANCE bridge32_top

reg tc_gnt_allow ;

initial tc_gnt_allow = 1'b0 ;

TOP `PCI_BRIDGE_INSTANCE

(

    .CLK    ( pci_clock),

    .AD     ( AD ),

    .CBE    ( CBE ),

    .RST    ( RST ),

    .INTA   ( INTA ),

    .REQ    ( MAS0_REQ ),

    .GNT    ( MAS0_GNT | tc_gnt_allow),

    .FRAME  ( FRAME ),

    .IRDY   ( IRDY ),

    .IDSEL  ( TAR0_IDSEL),

    .DEVSEL ( DEVSEL ),

    .TRDY   ( TRDY ),

    .STOP   ( STOP ),

    .PAR    ( PAR ),

    .PERR   ( PERR ),

    .SERR   ( SERR ),

    .CLK_I  ( wb_clock ),

    .RST_I  ( reset ),

    .RST_O  ( RST_O ),

    .INT_I  ( INT_I ),

    .INT_O  ( INT_O ),

    // WISHBONE slave interface

    .ADR_I  ( ADR_I ),

    .SDAT_I ( SDAT_I ),

    .SDAT_O ( SDAT_O ),

    .SEL_I  ( SEL_I ),

    .CYC_I  ( CYC_I ),

    .STB_I  ( STB_I ),

    .WE_I   ( WE_I ),

    .CAB_I  ( CAB_I),

    .CTI_I  ( CTI_I),

    .BTE_I  ( BTE_I),

    .ACK_O  ( ACK_O ),

    .RTY_O  ( RTY_O ),

    .ERR_O  ( ERR_O ),

    // WISHBONE master interface

    .ADR_O  ( ADR_O ),

    .MDAT_I ( MDAT_I ),

    .MDAT_O ( MDAT_O ),

    .SEL_O  ( SEL_O ),

    .CYC_O  ( CYC_O ),

    .STB_O  ( STB_O ),

    .WE_O   ( WE_O ),

    .CTI_O  ( CTI_O),

    .BTE_O  ( BTE_O),

    .ACK_I  ( ACK_I ),

    .RTY_I  ( RTY_I ),

    .ERR_I  ( ERR_I )

`ifdef PCI_BIST

    ,

    // bist chain signals

    .mbist_si_i   (mbist_si_i),

    .mbist_so_o   (mbist_so_o),

    .mbist_ctrl_i   ({mbist_en_i, mbist_clk, mbist_rst})

`endif

) ;

WB_MASTER_BEHAVIORAL wishbone_master

(

    .CLK_I(wb_clock),

    .RST_I(reset_wb),

    .TAG_I(`WB_TAG_WIDTH'd0),

    .TAG_O({CTI_I, BTE_I}),

    .ACK_I(ACK_O),

    .ADR_O(ADR_I),

    .CYC_O(CYC_I),

    .DAT_I(SDAT_O),

    .DAT_O(SDAT_I),

    .ERR_I(ERR_O),

    .RTY_I(RTY_O),

    .SEL_O(SEL_I),

    .STB_O(STB_I),

    .WE_O (WE_I),

    .CAB_O(CAB_I)

);

WB_SLAVE_BEHAVIORAL wishbone_slave

(

    .CLK_I              (wb_clock),

    .RST_I              (reset_wb),

    .ACK_O              (ACK_I),

    .ADR_I              (ADR_O),

    .CYC_I              (CYC_O),

    .DAT_O              (MDAT_I),

    .DAT_I              (MDAT_O),

    .ERR_O              (ERR_I),

    .RTY_O              (RTY_I),

    .SEL_I              (SEL_O),

    .STB_I              (STB_O),

    .WE_I               (WE_O),

    .CTI_I              (CTI_O),

    .BTE_I              (BTE_O)

);

integer wbu_mon_log_file_desc ;

integer pciu_mon_log_file_desc ;

WB_BUS_MON wbu_wb_mon(

                    .CLK_I(wb_clock),

                    .RST_I(reset_wb),

                    .ACK_I(ACK_O),

                    .ADDR_O(ADR_I),

                    .CYC_O(CYC_I),

                    .DAT_I(SDAT_O),

                    .DAT_O(SDAT_I),

                    .ERR_I(ERR_O),

                    .RTY_I(RTY_O),

                    .SEL_O(SEL_I),

                    .STB_O(STB_I),

                    .WE_O (WE_I),

                    .TAG_I({`WB_TAG_WIDTH{1'b0}}),

                    .TAG_O({CTI_I, BTE_I}),

                    .CAB_O(CAB_I),

                    .check_CTI(1'b0),

                    .log_file_desc ( wbu_mon_log_file_desc )

                  ) ;

WB_BUS_MON pciu_wb_mon(

                    .CLK_I(wb_clock),

                    .RST_I(reset_wb),

                    .ACK_I(ACK_I),

                    .ADDR_O(ADR_O),

                    .CYC_O(CYC_O),

                    .DAT_I(MDAT_I),

                    .DAT_O(MDAT_O),

                    .ERR_I(ERR_I),

                    .RTY_I(RTY_I),

                    .SEL_O(SEL_O),

                    .STB_O(STB_O),

                    .WE_O (WE_O),

                    .TAG_I({`WB_TAG_WIDTH{1'b0}}),

                    .TAG_O({CTI_O, BTE_O}),

                    .CAB_O(1'b0),

                    .check_CTI(1'b1),

                    .log_file_desc( pciu_mon_log_file_desc )

                  ) ;

// some aditional signals are needed here because of the arbiter

reg [3:0] pci_ext_req_prev ;

always@(posedge pci_clock)

begin

    pci_ext_req_prev <= {~MAS3_REQ, ~MAS2_REQ, ~MAS1_REQ, ~MAS0_REQ} ;

end

reg pci_frame_prev ;

always@(posedge pci_clock)

begin

    pci_frame_prev <= FRAME ;

end

reg pci_irdy_prev ;

always@(posedge pci_clock)

begin

    pci_irdy_prev <= IRDY ;

end

pci_blue_arbiter pci_arbiter

(

  .pci_int_req_direct(1'b0),

  .pci_ext_req_prev(pci_ext_req_prev),

  .pci_int_gnt_direct_out(arb_grant_out[4]),

  .pci_ext_gnt_direct_out(arb_grant_out[3:0]),

  .pci_frame_prev(~pci_frame_prev),

  .pci_irdy_prev(~pci_irdy_prev),

  .pci_irdy_now(~IRDY),

  .arbitration_enable(1'b1),

  .pci_clk(pci_clock),

  .pci_reset_comb(~RST)

);

reg [31:0] target_message ;

// define output enable signals for monitor inputs

// real output enable signals

//{frame_oe, irdy_oe, devsel_t_s_oe, ad_oe, cbe_oe, perr_oe}

`ifdef ACTIVE_LOW_OE

wire devsel_t_s_oe = `PCI_BRIDGE_INSTANCE.DEVSEL_en && `PCI_BRIDGE_INSTANCE.TRDY_en && `PCI_BRIDGE_INSTANCE.STOP_en ;

wire ad_oe         = &(`PCI_BRIDGE_INSTANCE.AD_en) ;

wire cbe_oe        = &(`PCI_BRIDGE_INSTANCE.CBE_en) ;

wire [5:0] r_oe_sigs = {!`PCI_BRIDGE_INSTANCE.FRAME_en,

                        !`PCI_BRIDGE_INSTANCE.IRDY_en,

                        !devsel_t_s_oe,

                        !ad_oe,

                        !cbe_oe,

                        !`PCI_BRIDGE_INSTANCE.PERR_en}

                        ;

`else

`ifdef ACTIVE_HIGH_OE

wire devsel_t_s_oe = `PCI_BRIDGE_INSTANCE.DEVSEL_en || `PCI_BRIDGE_INSTANCE.TRDY_en || `PCI_BRIDGE_INSTANCE.STOP_en ;

wire ad_oe         = |(`PCI_BRIDGE_INSTANCE.AD_en) ;

wire cbe_oe        = |(`PCI_BRIDGE_INSTANCE.CBE_en) ;

wire [5:0] r_oe_sigs = {`PCI_BRIDGE_INSTANCE.FRAME_en,

                        `PCI_BRIDGE_INSTANCE.IRDY_en,

                        devsel_t_s_oe,

                        ad_oe,

                        cbe_oe,

                        `PCI_BRIDGE_INSTANCE.PERR_en}

                        ;

`endif

`endif

/*wire [5:0] oe_sigs_0 = {1'b0,

                        1'b0,

                        pci_target32.ctl_enable | pci_target32.r_ctl_enable,

                        pci_target32.ad_enable,

                        1'b0,

                        pci_target32.err_enable | pci_target32.r_err_enable

                       } ;

*/

wire [5:0] oe_sigs_2 ;

wire [5:0] oe_sigs_1 ;

// signals which are used by test modules to know what to do

triand  test_accepted_l_int, error_event_int;

pullup  (test_accepted_l_int), (error_event_int);

wire    pci_reset_comb  = ~RST;

wire    pci_ext_clk     = pci_clock;

integer pci_mon_log_file_desc ;

pci_bus_monitor monitor32

(

    .pci_ext_ad                 (AD),

    .pci_ext_cbe_l              (CBE),

    .pci_ext_par                (PAR),

    .pci_ext_frame_l            (FRAME),

    .pci_ext_irdy_l             (IRDY),

    .pci_ext_devsel_l           (DEVSEL),

    .pci_ext_trdy_l             (TRDY),

    .pci_ext_stop_l             (STOP),

    .pci_ext_perr_l             (PERR),

    .pci_ext_serr_l             (SERR),

    .pci_real_req_l             (MAS0_REQ),

    .pci_real_gnt_l             (MAS0_GNT | tc_gnt_allow),

    .pci_ext_req_l              ({1'b1, MAS3_REQ, MAS2_REQ, MAS1_REQ}),

    .pci_ext_gnt_l              (~arb_grant_out[4:1]),

    .test_error_event           (error_event_int),

    .test_observe_r_oe_sigs     (r_oe_sigs),

    .test_observe_0_oe_sigs     (6'h00),

    .test_observe_1_oe_sigs     (oe_sigs_1),

    .test_observe_2_oe_sigs     (oe_sigs_2),

    .test_observe_3_oe_sigs     (6'h00),

    .pci_ext_reset_l            (RST),

    .pci_ext_clk                (pci_clock),

    .log_file_desc              (pci_mon_log_file_desc)

) ;

reg [2:0]  test_master_number ;

reg [31:0] test_address ;

reg [3:0]  test_command ;

reg [31:0] test_data ;

reg [3:0]  test_byte_enables_l ;

reg [9:0]  test_size ;

reg        test_make_addr_par_error ;

reg        test_make_data_par_error ;

reg [3:0]  test_master_initial_wait_states ;

reg [3:0]  test_master_subsequent_wait_states ;

reg [3:0]  test_target_initial_wait_states ;

reg [3:0]  test_target_subsequent_wait_states ;

reg [1:0]  test_target_devsel_speed ;

reg        test_fast_back_to_back ;

reg [2:0]  test_target_termination ;

reg        test_expect_master_abort ;

reg        test_start ;

reg [25:0] test_target_response ;

wire [31:0] master2_received_data ;

wire        master2_received_data_valid ;

reg         master2_check_received_data ;

pci_behaviorial_device pci_behaviorial_device2

(

    .pci_ext_ad(AD),

    .pci_ext_cbe_l(CBE),

    .pci_ext_par(PAR),

    .pci_ext_frame_l(FRAME),

    .pci_ext_irdy_l(IRDY),

    .pci_ext_devsel_l(DEVSEL),

    .pci_ext_trdy_l(TRDY),

    .pci_ext_stop_l(STOP),

    .pci_ext_perr_l(PERR),

    .pci_ext_serr_l(SERR),

    .pci_ext_idsel(TAR2_IDSEL),

    .pci_ext_inta_l(INTA),

    .pci_ext_req_l(MAS2_REQ),

    .pci_ext_gnt_l(MAS2_GNT),

    .pci_ext_reset_l(RST),

    .pci_ext_clk(pci_clock),

// Signals used by the test bench instead of using "." notation

    .test_observe_oe_sigs               (oe_sigs_2[5:0]),               //

    .test_master_number                 (test_master_number[2:0]),

    .test_address                       (test_address[PCI_BUS_DATA_RANGE:0]),

    .test_command                       (test_command[3:0]),

    .test_data                          (test_data[PCI_BUS_DATA_RANGE:0]),

    .test_byte_enables_l                (test_byte_enables_l[PCI_BUS_CBE_RANGE:0]),

    .test_size                          (test_size),

    .test_make_addr_par_error           (test_make_addr_par_error),

    .test_make_data_par_error           (test_make_data_par_error),

    .test_master_initial_wait_states    (test_master_initial_wait_states[3:0]),

    .test_master_subsequent_wait_states (test_master_subsequent_wait_states[3:0]),

    .test_target_initial_wait_states    (test_target_initial_wait_states[3:0]),

    .test_target_subsequent_wait_states (test_target_subsequent_wait_states[3:0]),

    .test_target_devsel_speed           (test_target_devsel_speed[1:0]),

    .test_fast_back_to_back             (test_fast_back_to_back),

    .test_target_termination            (test_target_termination[2:0]),

    .test_expect_master_abort           (test_expect_master_abort),

    .test_start                         (test_start),

    .test_accepted_l                    (test_accepted_l_int),

    .test_error_event                   (error_event_int),

    .test_device_id                     (`Test_Master_2),

    .test_target_response               (test_target_response),

    .master_received_data               (master2_received_data),

    .master_received_data_valid         (master2_received_data_valid),

    .master_check_received_data         (master2_check_received_data)

);

wire [31:0] master1_received_data ;

wire        master1_received_data_valid ;

reg         master1_check_received_data ;

pci_behaviorial_device pci_behaviorial_device1

(

    .pci_ext_ad(AD),

    .pci_ext_cbe_l(CBE),

    .pci_ext_par(PAR),

    .pci_ext_frame_l(FRAME),

    .pci_ext_irdy_l(IRDY),

    .pci_ext_devsel_l(DEVSEL),

    .pci_ext_trdy_l(TRDY),

    .pci_ext_stop_l(STOP),

    .pci_ext_perr_l(PERR),

    .pci_ext_serr_l(SERR),

    .pci_ext_idsel(TAR1_IDSEL),

    .pci_ext_inta_l(INTA),

    .pci_ext_req_l(MAS1_REQ),

    .pci_ext_gnt_l(MAS1_GNT),

    .pci_ext_reset_l(RST),

    .pci_ext_clk(pci_clock),

// Signals used by the test bench instead of using "." notation

    .test_observe_oe_sigs           (oe_sigs_1[5:0]),               //

    .test_master_number                 (test_master_number[2:0]),

    .test_address                               (test_address[PCI_BUS_DATA_RANGE:0]),

    .test_command                       (test_command[3:0]),

    .test_data                          (test_data[PCI_BUS_DATA_RANGE:0]),

    .test_byte_enables_l                (test_byte_enables_l[PCI_BUS_CBE_RANGE:0]),

    .test_size                          (test_size),

    .test_make_addr_par_error           (test_make_addr_par_error),

    .test_make_data_par_error           (test_make_data_par_error),

    .test_master_initial_wait_states    (test_master_initial_wait_states[3:0]),

    .test_master_subsequent_wait_states (test_master_subsequent_wait_states[3:0]),

    .test_target_initial_wait_states    (test_target_initial_wait_states[3:0]),

    .test_target_subsequent_wait_states (test_target_subsequent_wait_states[3:0]),

    .test_target_devsel_speed           (test_target_devsel_speed[1:0]),

    .test_fast_back_to_back             (test_fast_back_to_back),

    .test_target_termination            (test_target_termination[2:0]),

    .test_expect_master_abort           (test_expect_master_abort),

    .test_start                         (test_start),

    .test_accepted_l                    (test_accepted_l_int),

    .test_error_event                   (error_event_int),

    .test_device_id                     (`Test_Master_1),

    .test_target_response               (test_target_response),

    .master_received_data               (master1_received_data),

    .master_received_data_valid         (master1_received_data_valid),

    .master_check_received_data         (master1_check_received_data)

);

pci_unsupported_commands_master ipci_unsupported_commands_master

(

    .CLK    ( pci_clock),

    .AD     ( AD ),

    .CBE    ( CBE ),

    .RST    ( RST ),

    .REQ    ( MAS3_REQ ),

    .GNT    ( MAS3_GNT ),

    .FRAME  ( FRAME ),

    .IRDY   ( IRDY ),

    .DEVSEL ( DEVSEL ),

    .TRDY   ( TRDY ),

    .STOP   ( STOP ),

    .PAR    ( PAR )

) ;

`ifdef HOST

reg     [1:0]   conf_cyc_type1_target_response ;

reg     [31:0]  conf_cyc_type1_target_data ;

reg     [7:0]   conf_cyc_type1_target_bus_num ;

wire    [31:0]  conf_cyc_type1_target_data_from_PCI ;

pci_behavioral_pci2pci_bridge i_pci_behavioral_pci2pci_bridge

(

    .CLK              ( pci_clock),

    .AD               ( AD ),

    .CBE              ( CBE ),

    .RST              ( RST ),

    .FRAME            ( FRAME ),

    .IRDY             ( IRDY ),

    .DEVSEL           ( DEVSEL ),

    .TRDY             ( TRDY ),

    .STOP             ( STOP ),

    .PAR              ( PAR ),

    .response         ( conf_cyc_type1_target_response ),

    .data_out         ( conf_cyc_type1_target_data ),

    .data_in          ( conf_cyc_type1_target_data_from_PCI ),

    .devsel_speed     ( test_target_response[`TARGET_ENCODED_DEVSEL_SPEED] ),

    .wait_states      ( test_target_response[`TARGET_ENCODED_INIT_WAITSTATES] ),

    .bus_number       ( conf_cyc_type1_target_bus_num )

);

`endif

// pci clock generator

`ifdef PCI_CLOCK_FOLLOWS_WB_CLOCK

    always@(posedge wb_clock)

        #`PCI_CLOCK_FOLLOWS_WB_CLOCK pci_clock = 1'b1 ;

    always@(negedge wb_clock)

        #`PCI_CLOCK_FOLLOWS_WB_CLOCK pci_clock = 1'b0 ;

`else

    always

    `ifdef PCI33

        #15 pci_clock = ~pci_clock ;

    `else

    `ifdef PCI66

        #7.5 pci_clock = ~pci_clock ;

    `endif

    `endif

`endif

// WISHBONE clock generation

`ifdef WB_CLOCK_FOLLOWS_PCI_CLOCK

always@(posedge pci_clock)

    #`WB_CLOCK_FOLLOWS_PCI_CLOCK wb_clock = 1'b1 ;

always@(negedge pci_clock)

    #`WB_CLOCK_FOLLOWS_PCI_CLOCK wb_clock = 1'b0 ;

`else

    always

        #(`WB_PERIOD/2) wb_clock = !wb_clock ;

`endif

// Make test name visible when the Master starts working on it

reg     [79:0] present_test_name;

reg     [79:0] next_test_name;