Subversion Repositories pcie_ds_dma

-------------------------------------------------------------------------------

--

-- Title       : stend_sp605_wishbone 

-- Author      : Dmitry Smekhov

-- Company     : Instrumental Systems

-- E-mail      : dsmv@insys.ru

--

-- Version     : 1.2

--

-------------------------------------------------------------------------------

--

-- Description : Stend for test stend_sp605_wishbone

--

-------------------------------------------------------------------------------

--

--  Version 1.2  01.02.2013 Dmitry Smekhov

--      Add parameters: test_id, test_log

--

-------------------------------------------------------------------------------

--

--  Version 1.1 (25.10.2011) Kuzmi4

--      Description: add "assert" for stop simulation after TEST finished.

--

-------------------------------------------------------------------------------

library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_textio.all;

library work;

use work.cmd_sim_pkg.all;

use work.block_pkg.all;

use work.sp605_lx45t_wishbone_pkg.all;

use work.xilinx_pcie_rport_m2_pkg.all;

use work.test_pkg.all;

use std.textio.all;

use std.textio;

entity stend_sp605_wishbone is

        generic(

                test_id                 : in integer:=3;        -- идентификатор теста

                test_log                : in string:="src\testbench\log\file_id_"       -- имя файла отчёта

        );

end stend_sp605_wishbone;

architecture stend_sp605_wishbone of stend_sp605_wishbone is

--

--function set_file_name( test_log : in string; test_id: in integer ) return string is

--variable      str             : line;

--variable      ret             : string( 255 downto 1 );

--begin

--

--      write( str, test_log );

--      write( str, string'("_id_") );

--      write( str, test_id );

--      

--      ret:=conv_string( str );

--      return ret;

--      

--      

--end set_file_name;

constant        fname_test_log  : string:= test_log & integer'image(test_id) & ".log";

signal  clk125                  : std_logic:='0';

signal  clk125p                 : std_logic;

signal  clk125n                 : std_logic;

signal  clk100                  : std_logic:='0';

signal  clk100p                 : std_logic;

signal  clk100n                 : std_logic;

signal  reset                   : std_logic;

signal  txp                             : std_logic_vector( 0 downto 0 ):=(others=>'0');

signal  txn                             : std_logic_vector( 0 downto 0 ):=(others=>'1');

signal  rxp                             : std_logic_vector( 0 downto 0 ):=(others=>'0');

signal  rxn                             : std_logic_vector( 0 downto 0 ):=(others=>'1');

signal  rp_txp                  : std_logic_vector( 0 downto 0 ):=(others=>'0');

signal  rp_txn                  : std_logic_vector( 0 downto 0 ):=(others=>'1');

signal  rp_rxp                  : std_logic_vector( 0 downto 0 ):=(others=>'0');

signal  rp_rxn                  : std_logic_vector( 0 downto 0 ):=(others=>'1');

signal  tp                              : std_logic_vector( 3 downto 1 );

signal  led1                    : std_logic;

signal  led2                    : std_logic;

signal  led3                    : std_logic;

signal  led4                    : std_logic;

signal  cmd                             : bh_cmd;       -- команда

signal  ret                             : bh_ret;       -- ответ

--

-- Additional TEST signals:

--

signal  s_spy_fifo_clk              :   std_logic:='0';

signal  s_spy_fifo_wr_ena           :   std_logic:='0';

signal  s_spy_fifo_final            :   std_logic:='0';

signal  si_wb_outgoing_fifo_counter :   integer:=0;

begin

 dut: sp605_lx45t_wishbone

        generic map(

                is_simulation   => 2    -- 0 - синтез, 1 - моделирование ADM, 2 - моделирование pcie_core  

        )

        port map(

                ---- PCI-Express ----

                pci_exp_txp                     => txp,

                pci_exp_txn                     => txn,

                pci_exp_rxp                     => rxp,

                pci_exp_rxn                     => rxn,

                sys_clk_p                       => clk125p,   -- тактовая частота 125 MHz от PCI_Express

                sys_clk_n                       => clk125n,

                sys_reset_n                     => reset,       -- 0 - сброс                                               

                ---- Светодиоды ----

                gpio_led1                       => led1,

                gpio_led2                       => led2,

                gpio_led3                       => led3,

                gpio_led0                       => led4

        );

rp : xilinx_pcie_rport_m2

generic map (

      REF_CLK_FREQ => 0,

      ALLOW_X8_GEN2 => FALSE,

      PL_FAST_TRAIN => TRUE,

      LINK_CAP_MAX_LINK_SPEED => X"1",

      DEVICE_ID => X"6011",

      LINK_CAP_MAX_LINK_WIDTH => X"01",

      LINK_CAP_MAX_LINK_WIDTH_int => 1,

      LINK_CTRL2_TARGET_LINK_SPEED => X"1",

      LTSSM_MAX_LINK_WIDTH => X"01",

      DEV_CAP_MAX_PAYLOAD_SUPPORTED => 2,

      VC0_TX_LASTPACKET => 29,

      VC0_RX_RAM_LIMIT => X"7FF",

      VC0_TOTAL_CREDITS_PD => (308),

      VC0_TOTAL_CREDITS_CD => (308),

      USER_CLK_FREQ => 1

)

port map (

                sys_clk => clk100,

                sys_reset_n => reset,

                pci_exp_txn => rp_txn,

                pci_exp_txp => rp_txp,

                pci_exp_rxn => rp_rxn,

                pci_exp_rxp => rp_rxp,

                cmd                     => cmd, -- команда

                ret                     => ret  -- ответ

);

clk125 <= not clk125 after 4 ns;

clk125p <= clk125;

clk125n <= not clk125;

clk100 <= not clk100 after 5 ns;

clk100p <= clk100;

clk100n <= not clk100;

rxp(0) <= rp_txp(0);

rxn(0) <= rp_txn(0);

rp_rxp(0) <= txp(0);

rp_rxn(0) <= txn(0);

reset <= '0', '1' after 5002 ns;

pr_main: process

variable        data    : std_logic_vector( 31 downto 0 );

variable        str     : LINE;         -- pointer to string

begin

        --   test_init( "test.log" );

    test_init( fname_test_log );

    wait for 180 us;

        case( test_id ) is

                when 0 => test_dsc_incorrect( cmd, ret );

        when 1 => test_read_4kb( cmd, ret );      -- was original

        when 2 => test_adm_read_8kb( cmd, ret );

        when 3 => test_read_reg( cmd, ret );

        --when 3 => test_adm_read_16kb( cmd, ret );

        --when 4 => test_adm_write_16kb( cmd, ret );

        --when 5 => test_block_main( cmd, ret );           

                when others => null;

        end case;

    --test_num_1(cmd, ret);

    --test_num_2(cmd, ret);

    --test_wb_1(cmd, ret);

    --test_wb_2(cmd, ret);

    test_close;

    --

    -- Print Final Banner

--    report "Init END OF TEST" severity WARNING;

--    assert false

--    report "End of TEST; Ending simulation (not a Failure)"

--    severity FAILURE;

    wait;

end process pr_main;

end stend_sp605_wishbone;