Please wait until document has finished loading (reload)

[Donate]

-- $(lic)
-- $(help_generic)
-- $(help_local)

library IEEE;
use IEEE.std_logic_1164.all;
use IEEE.std_logic_unsigned."+";
use IEEE.std_logic_arith.conv_unsigned;
use work.amba.all;
use work.memdef.all;
use work.int.all;
use work.bus_comp.all;

entity ahbmst_mp is
  generic ( AHBMST_PORTS : integer := 4 );
  port (
    rst   : in  std_logic;
    clk   : in  std_logic;
    i     : in  ahbmst_mp_in_a(AHBMST_PORTS-1 downto 0);
    o     : out ahbmst_mp_out_a(AHBMST_PORTS-1 downto 0);
    ahbi  : in  ahb_mst_in_type;
    ahbo  : out ahb_mst_out_type
  );
end;

architecture rtl of ahbmst_mp is

  constant AHBMST_PORTS_BITSZ : integer := lin_log2x(AHBMST_PORTS);
  constant NBO_ZERO : std_logic_vector(AHBMST_PORTS-1 downto 0) := (others => '0');
  
  type ahbmst_mp_tmp_type is record
    ahbo   : ahb_mst_out_type;
    bo_i,nbo_i   : integer;
    o_ready, o_grant, o_mexc : std_logic_vector(AHBMST_PORTS-1 downto 0);   
    o_retry, o_cache, hold, nboreq : std_logic_vector(AHBMST_PORTS-1 downto 0);   
    nbo : std_logic_vector(AHBMST_PORTS_BITSZ-1 downto 0);
    num : std_logic_vector(AHBMST_PORTS_BITSZ-1 downto 0);
  end record;
  type ahbmst_mp_reg_type is record
     retry, cache : std_logic;
     bo    : std_logic_vector(AHBMST_PORTS_BITSZ-1 downto 0);
     ba, bg : std_logic;
  end record;
  type ahbmst_mp_dbg_type is record
     dummy : std_logic;
     -- pragma translate_off
     dbg : ahbmst_mp_tmp_type;
     -- pragma translate_on
  end record;
  signal r, c       : ahbmst_mp_reg_type;
  signal rdbg, cdbg : ahbmst_mp_dbg_type;

begin
  
  p0 : process(ahbi, r, rst, i)
    variable v    : ahbmst_mp_reg_type;
    variable t    : ahbmst_mp_tmp_type;
    variable vdbg : ahbmst_mp_dbg_type;
  begin

    -- $(init(t:ahbmst_mp_tmp_type))

    v := r;

    t.o_ready := (others => '0');
    t.o_grant := (others => '0');
    t.o_retry := (others => '0');
    t.o_cache := (others => '0');
    t.o_mexc := (others => '0'); 

    -- owner hold 
    t.num := (others => '0');
    t.hold := (others => '0');
    for j in AHBMST_PORTS-1 downto 0 loop
      t.num := std_logic_vector(conv_unsigned(j, AHBMST_PORTS_BITSZ));
      if (r.ba = '1') and
         (i(j).req = '1') and
         (r.bo = t.num) then
        t.hold(j) := '1';
      end if;
    end loop;  -- i
    
    -- next bus owner req
    for k in AHBMST_PORTS-1 downto 0 loop
      t.nboreq(k) := i(k).req;
      for j in AHBMST_PORTS-1 downto 0 loop
        if k /= j then
          if t.hold(j) = '1' then
            t.nboreq(k) := '0';
          end if;
        end if;
      end loop;
    end loop;

    -- priority 
    t.nbo_i := 0;
l1: for j in AHBMST_PORTS-1 downto 0 loop
      if t.nboreq(j) = '1' then
        t.nbo_i := j;
        exit l1;
      end if;
    end loop;

    -- lock (only per ahb)
    t.ahbo.hlock := '0';
    for j in AHBMST_PORTS-1 downto 0 loop
      if i(j).lock = '1' then
        t.ahbo.hlock := '1';
      end if;
    end loop;
    
    -- ahb signals
    t.ahbo.hbusreq := '0';
    t.ahbo.htrans  := HTRANS_IDLE;
    t.ahbo.haddr   := i(0).address;
    
    if not (t.nboreq = NBO_ZERO) then
      
      t.nbo := std_logic_vector(conv_unsigned(t.nbo_i, AHBMST_PORTS_BITSZ));
      t.ahbo.hbusreq := i(t.nbo_i).req;
      t.ahbo.haddr   := i(t.nbo_i).address;
      t.ahbo.htrans  := HTRANS_NONSEQ;
      t.ahbo.hwrite  := not i(t.nbo_i).read;
      t.ahbo.hsize   := lmd_toamba(i(t.nbo_i).size);
      t.ahbo.hburst := HBURST_SINGLE;
      if i(t.nbo_i).burst = '1' then
        t.ahbo.hburst := HBURST_INCR; 
      end if;

      -- burst
      if (r.bo = t.nbo) then
        if (i(t.nbo_i).req = '1') and (r.ba = '1')  then
          if ((not r.retry) = '1') then
            if i(t.nbo_i).burst = '1' then
              t.ahbo.htrans := HTRANS_SEQ;
              -- todo: 1k boundary check
              t.ahbo.hburst := HBURST_INCR; 
            end if;
          end if;
        end if;
      end if;
      
      -- grant
      if (r.bg = '1') then
        if (ahbi.hready = '1') and (i(t.nbo_i).req = '1') then
          if ((not r.retry) = '1') then
            t.o_grant(t.nbo_i) := '1';
          end if;
        end if;
      end if;
    
    end if;

    -- retry
    v.retry := '0';
    if (r.ba = '1') and 
       ((ahbi.hresp = HRESP_RETRY) or
        (ahbi.hresp = HRESP_SPLIT))
    then
      v.retry := not ahbi.hready;
    end if;
    if r.retry = '1' then
      t.ahbo.htrans := HTRANS_IDLE;
    end if;

    -- ahb return
    t.bo_i := lin_convint(r.bo);
    t.ahbo.hwdata := i(t.bo_i).data;
    if r.ba = '1' then
      t.o_cache(t.bo_i) := r.cache;
      if ahbi.hready = '1' then
        case ahbi.hresp is
	  when HRESP_OKAY => t.o_ready(t.bo_i) := '1'; 
	  when HRESP_RETRY | HRESP_SPLIT=> t.o_retry(t.bo_i) := '1'; 
	  when others => t.o_ready(t.bo_i) := '1'; t.o_mexc(t.bo_i) := '1'; 
        end case;
      end if;
    end if;

    -- next
    if ahbi.hready = '1' then
      v.bo := t.nbo;
      v.bg := ahbi.hgrant;
      v.ba := '0';
      if (t.ahbo.htrans = HTRANS_NONSEQ) or (t.ahbo.htrans = HTRANS_SEQ) then
	v.ba := r.bg;
      end if;
    end if;
    
    -- reset
    if rst = '0' then
      v.retry := '0';
      v.cache := '0';
      v.bo := (others => '0');
      v.ba := '0';
      v.bg := '0';
    end if;
    
    c <= v;

    for i in AHBMST_PORTS-1 downto 0 loop
      o(i).grant <= t.o_grant(i);
      o(i).ready <= t.o_ready(i);
      o(i).mexc <=  t.o_mexc(i);
      o(i).retry <= t.o_retry(i);
      o(i).data  <= ahbi.hrdata;
    end loop;
    
    ahbo   <= t.ahbo;
    
    -- pragma translate_off
    vdbg := rdbg;
    vdbg.dbg := t;
    cdbg <= vdbg;
    -- pragma translate_on  end process p0;

  end process p0;


  pregs : process (clk, c)
  begin
    if rising_edge(clk) then
      r <= c;
      -- pragma translate_off
      rdbg <= cdbg;
      -- pragma translate_on
    end if;
  end process;


end;

File /tmp/build_html/vhdl/bus/amba.vhd used by /tmp/build_html/vhdl/libs/memdef.vhd used by /tmp/build_html/vhdl/core/ctrl/ctrl_comp.vhd used by /tmp/build_html/vhdl/core/ctrl/irqctrl.vhd used by /tmp/build_html/vhdl/core/ctrl/irqctrl2.vhd used by /tmp/build_html/vhdl/core/ctrl/timers.vhd used by /tmp/build_html/vhdl/core/core_config.vhd used by /tmp/build_html/vhdl/peripherals/serial/peri_serial_comp.vhd used by /tmp/build_html/vhdl/peripherals/io/peri_io_comp.vhd used by /tmp/build_html/vhdl/peripherals/mem/sdmctrl.vhd used by /tmp/build_html/vhdl/peripherals/mem/mctrl.vhd used by /tmp/build_html/vhdl/peripherals/mem/mctrl.vhd used by /tmp/build_html/vhdl/bus/bus_comp.vhd used by /tmp/build_html/vhdl/mem/cache/libs/genwb_lib.vhd used by /tmp/build_html/vhdl/mem/cache/gendc.vhd used by /tmp/build_html/vhdl/arm/libs/armpctrl.vhd used by /tmp/build_html/vhdl/arm/armiu.vhd used by /tmp/build_html/vhdl/bus/ahbarb.vhd used by /tmp/build_html/vhdl/bus/apbmst.vhd used by /tmp/build_html/vhdl/bus/apbmst.vhd used by /tmp/build_html/vhdl/peripherals/io/ioport.vhd used by /tmp/build_html/vhdl/peripherals/mem/wprot.vhd used by /tmp/build_html/vhdl/peripherals/net/eth_oc.vhd used by /tmp/build_html/vhdl/peripherals/serial/uart.vhd used by /tmp/build_html/vhdl/sparc/acache.vhd used by /tmp/build_html/vhdl/sparc/ahbmst.vhd used by /tmp/build_html/vhdl/sparc/ahbram.vhd used by /tmp/build_html/vhdl/sparc/ahbstat.vhd used by /tmp/build_html/vhdl/sparc/ahbtest.vhd used by /tmp/build_html/vhdl/sparc/ambacomp.vhd used by /tmp/build_html/vhdl/sparc/cache.vhd used by /tmp/build_html/vhdl/sparc/dcache.vhd used by /tmp/build_html/vhdl/sparc/dcom.vhd used by /tmp/build_html/vhdl/sparc/dcom_uart.vhd used by /tmp/build_html/vhdl/sparc/dma.vhd used by /tmp/build_html/vhdl/sparc/dsu.vhd used by /tmp/build_html/vhdl/sparc/icache.vhd used by /tmp/build_html/vhdl/sparc/lconf.vhd used by /tmp/build_html/vhdl/sparc/mcore.vhd used by /tmp/build_html/vhdl/sparc/mmu_acache.vhd used by /tmp/build_html/vhdl/sparc/mmu_cache.vhd used by /tmp/build_html/vhdl/sparc/mmu_dcache.vhd used by /tmp/build_html/vhdl/sparc/mmu_icache.vhd used by /tmp/build_html/vhdl/sparc/pci.vhd used by /tmp/build_html/vhdl/sparc/pci_arb.vhd used by /tmp/build_html/vhdl/sparc/pci_gr.vhd used by /tmp/build_html/vhdl/sparc/pci_is.vhd used by /tmp/build_html/vhdl/sparc/pci_oc.vhd used by /tmp/build_html/vhdl/sparc/pci_oc.vhd used by /tmp/build_html/vhdl/sparc/proc.vhd

File /tmp/build_html/vhdl/libs/memdef.vhd used by /tmp/build_html/vhdl/config.vhd used by /tmp/build_html/vhdl/bus/bus_comp.vhd used by /tmp/build_html/vhdl/bus/ahbmst_mp.vhd used by /tmp/build_html/vhdl/mem/cache/libs/gendc_lib.vhd used by /tmp/build_html/vhdl/mem/cache/libs/genwb_lib.vhd used by /tmp/build_html/vhdl/mem/cache/genic.vhd used by /tmp/build_html/vhdl/mem/cache/genwb.vhd used by /tmp/build_html/vhdl/mem/cache/gendc.vhd used by /tmp/build_html/vhdl/arm/libs/armshiefter.vhd used by /tmp/build_html/vhdl/arm/armiu_festg.vhd used by /tmp/build_html/vhdl/arm/libs/armcmd.vhd used by /tmp/build_html/vhdl/arm/armcmd_sm.vhd used by /tmp/build_html/vhdl/arm/armcmd_cr.vhd used by /tmp/build_html/vhdl/arm/armcmd_cs.vhd used by /tmp/build_html/vhdl/arm/armiu_rsstg.vhd used by /tmp/build_html/vhdl/arm/cp/armcp_sctrl.vhd used by /tmp/build_html/soft/doc/test/.config.vhd

File /tmp/build_html/vhdl/libs/int.vhd used by /tmp/build_html/vhdl/core/ctrl/irqctrl.vhd used by /tmp/build_html/vhdl/bus/ahbmst_mp.vhd used by /tmp/build_html/vhdl/mem/cache/libs/gencmem_lib.vhd used by /tmp/build_html/vhdl/mem/cache/libs/gendc_lib.vhd used by /tmp/build_html/vhdl/mem/cache/libs/genic_lib.vhd used by /tmp/build_html/vhdl/mem/cache/genic.vhd used by /tmp/build_html/vhdl/mem/cache/genwbfifo.vhd used by /tmp/build_html/vhdl/mem/cache/genwbfifo.vhd used by /tmp/build_html/vhdl/mem/cache/setrepl.vhd used by /tmp/build_html/vhdl/mem/cache/gendc.vhd used by /tmp/build_html/vhdl/arm/arm_comp.vhd used by /tmp/build_html/vhdl/arm/armiu_festg.vhd used by /tmp/build_html/vhdl/arm/libs/armcmd.vhd used by /tmp/build_html/vhdl/arm/armcmd_cr.vhd used by /tmp/build_html/vhdl/arm/armcmd_cs.vhd used by /tmp/build_html/vhdl/arm/armiu_drstg.vhd used by /tmp/build_html/vhdl/arm/armiu_rsstg.vhd used by /tmp/build_html/vhdl/arm/cp/armcp_comp.vhd used by /tmp/build_html/soft/doc/test/.config.vhd

File /tmp/build_html/vhdl/bus/bus_comp.vhd used by /tmp/build_html/vhdl/bus/ahbmst_mp.vhd used by /tmp/build_html/vhdl/mem/cache/cache_comp.vhd used by /tmp/build_html/vhdl/mem/cache/genic.vhd used by /tmp/build_html/vhdl/mem/cache/genwb.vhd used by /tmp/build_html/vhdl/mem/cache/gendc.vhd used by /tmp/build_html/vhdl/mem/cache/gendc.vhd used by /tmp/build_html/vhdl/arm/armcache.vhd used by /tmp/build_html/vhdl/arm/libs/armpctrl.vhd used by /tmp/build_html/vhdl/arm/armiu.vhd used by /tmp/build_html/vhdl/core/soc_gen.vhd

File /tmp/build_html/vhdl/bus/ahbmst_mp.vhd

Constant lin_log2x defined in /tmp/build_html/vhdl/libs/int.vhd constant lin_log2x : lin_log2arr := (1,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4, 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,others =>

Constant AHBMST_PORTS_BITSZ defined in /tmp/build_html/vhdl/bus/ahbmst_mp.vhd constant AHBMST_PORTS_BITSZ : integer := lin_log2x(AHBMST_PORTS);

Constant NBO_ZERO defined in /tmp/build_html/vhdl/bus/ahbmst_mp.vhd constant NBO_ZERO : std_logic_vector(AHBMST_PORTS-1 downto 0) := (others =>

Type ahbmst_mp_tmp_type defined in /tmp/build_html/vhdl/bus/ahbmst_mp.vhd type ahbmst_mp_tmp_type is record ahbo : ahb_mst_out_type; bo_i,nbo_i : integer; o_ready, o_grant, o_mexc : std_logic_vector(AHBMST_PORTS-1 downto 0); o_retry, o_cache, hold, nboreq : std_logic_vector(AHBMST_PORTS-1 downto 0); nbo : std_logic_vector(AHBMST_PORTS_BITSZ-1 downto 0); num : std_logic_vector(AHBMST_PORTS_BITSZ-1 downto 0); end record;

Enum slavestate defined in /tmp/build_html/vhdl/sparc/ahbtest.vhd type slavestate is (idle, error, split, retry, ws1);

File /tmp/build_html/vhdl/sparc/cache.vhd

Type ahbmst_mp_reg_type defined in /tmp/build_html/vhdl/bus/ahbmst_mp.vhd type ahbmst_mp_reg_type is record retry, cache : std_logic; bo : std_logic_vector(AHBMST_PORTS_BITSZ-1 downto 0); ba, bg : std_logic; end record;

Type ahbmst_mp_dbg_type defined in /tmp/build_html/vhdl/bus/ahbmst_mp.vhd type ahbmst_mp_dbg_type is record dummy : std_logic; -- pragma translate_off dbg : ahbmst_mp_tmp_type; -- pragma translate_on end record;

Enum ahbmst_state_type defined in /tmp/build_html/vhdl/sparc/pci_oc.vhd type ahbmst_state_type is (idle, req, respond);

Function priority defined in /tmp/build_html/vhdl/core/ctrl/irqctrl2.vhd function priority(v : std_logic_vector(31 downto 0)) return std_logic_vector is begin if v(31) = '1' then return("11111"); elsif v(30) = '1' then return("11110"); elsif v(29) = '1' then return("11101"); elsif v(28) = '1' then return("11100"); elsif v(27) = '1' then return("11011"); elsif v(26) = '1' then return("11010"); elsif v(25) = '1' then return("11001"); elsif v(24) = '1' then return("11000"); elsif v(23) = '1' then return("10111"); elsif v(22) = '1' then return("10110"); elsif v(21) = '1' then return("10101"); elsif v(20) = '1' then return("10100"); elsif v(19) = '1' then return("10011"); elsif v(18) = '1' then return("10010"); elsif v(17) = '1' then return("10001"); elsif v(16) = '1' then return("10000"); elsif v(15) = '1' then return("01111"); elsif v(14) = '1' then return("01110"); elsif v(13) = '1' then return("01101"); elsif v(12) = '1' then return("01100"); elsif v(11) = '1' then return("01011"); elsif v(10) = '1' then return("01010"); elsif v( 9) = '1' then return("01001"); elsif v( 8) = '1' then return("01000"); elsif v( 7) = '1' then return("00111"); elsif v( 6) = '1' then return("00110"); elsif v( 5) = '1' then return("00101"); elsif v( 4) = '1' then return("00100"); elsif v( 3) = '1' then return("00011"); elsif v( 2) = '1' then return("00010"); elsif v( 1) = '1' then return("00001"); else return ("00000"); end if; end;

Constant HTRANS_IDLE defined in /tmp/build_html/vhdl/bus/amba.vhd constant HTRANS_IDLE: Std_Logic_Vector(1 downto 0) := "00";

Constant HTRANS_NONSEQ defined in /tmp/build_html/vhdl/bus/amba.vhd constant HTRANS_NONSEQ: Std_Logic_Vector(1 downto 0) := "10";

Enum lmd_memsize defined in /tmp/build_html/vhdl/libs/memdef.vhd type lmd_memsize is ( lmd_word, lmd_byte, lmd_half, lmd_dbl );

Enum txfsmtype defined in /tmp/build_html/vhdl/sparc/dcom_uart.vhd type txfsmtype is (idle, data, stopbit);

Enum lmd_byteorder defined in /tmp/build_html/vhdl/libs/memdef.vhd type lmd_byteorder is (lmd_big, lmd_little);

Function lmd_convert defined in /tmp/build_html/vhdl/libs/memdef.vhd function lmd_convert ( data : std_logic_vector(31 downto 0); intype : lmd_byteorder; outtype : lmd_byteorder ) return std_logic_vector is variable tmp : std_logic_vector(31 downto 0); begin tmp := data; if intype /= outtype then tmp := tmp(7 downto 0) & tmp(15 downto 8) & tmp(23 downto 16) & tmp(31 downto 24); end if; return tmp; end;

Constant HSIZE_WORD defined in /tmp/build_html/vhdl/bus/amba.vhd constant HSIZE_WORD: Std_Logic_Vector(2 downto 0) := "010";

Constant HSIZE_BYTE defined in /tmp/build_html/vhdl/bus/amba.vhd constant HSIZE_BYTE: Std_Logic_Vector(2 downto 0) := "000";

Constant HSIZE_HWORD defined in /tmp/build_html/vhdl/bus/amba.vhd constant HSIZE_HWORD: Std_Logic_Vector(2 downto 0) := "001";

Function lmd_toamba defined in /tmp/build_html/vhdl/libs/memdef.vhd function lmd_toamba ( size : lmd_memsize ) return Std_Logic_Vector; -- endianess converter function lmd_convert ( data : std_logic_vector(31 downto 0); intype : lmd_byteorder; outtype : lmd_byteorder ) return std_logic_vector; end memdef; package body memdef is function lmd_toamba ( size : lmd_memsize ) return Std_Logic_Vector is variable tmp : std_logic_vector(2 downto 0); begin tmp := HSIZE_WORD; case size is when lmd_byte => tmp := HSIZE_BYTE; when lmd_half => tmp := HSIZE_HWORD; when lmd_word => tmp := HSIZE_WORD; when others => null; end case; return tmp; end;

Constant HBURST_SINGLE defined in /tmp/build_html/vhdl/bus/amba.vhd constant HBURST_SINGLE: Std_Logic_Vector(2 downto 0) := "000";

Constant HBURST_INCR defined in /tmp/build_html/vhdl/bus/amba.vhd constant HBURST_INCR: Std_Logic_Vector(2 downto 0) := "001";

Constant HTRANS_SEQ defined in /tmp/build_html/vhdl/bus/amba.vhd constant HTRANS_SEQ: Std_Logic_Vector(1 downto 0) := "11";

Constant HRESP_RETRY defined in /tmp/build_html/vhdl/bus/amba.vhd constant HRESP_RETRY: Std_Logic_Vector(1 downto 0) := "10";

Constant HRESP_SPLIT defined in /tmp/build_html/vhdl/bus/amba.vhd constant HRESP_SPLIT: Std_Logic_Vector(1 downto 0) := "11";

Function lin_convint defined in /tmp/build_html/vhdl/libs/int.vhd function lin_convint ( op : in std_logic_vector ) return integer is variable tmp : integer; begin tmp := 0; -- pragma translate_off if not (is_x(op)) then -- pragma translate_on tmp := conv_integer(op); -- pragma translate_off end if; -- pragma translate_on return tmp; end;

Constant HRESP_OKAY defined in /tmp/build_html/vhdl/bus/amba.vhd constant HRESP_OKAY: Std_Logic_Vector(1 downto 0) := "00";

Enum unit_status_type defined in /tmp/build_html/vhdl/sparc/fp1eu.vhd type unit_status_type is (free, started, ready);

If you have question mail to: Konrad Eisele<eiselekd@web.de>, created: Wed Apr 14 13:07:33 WEDT 2004 ;
This is part of the Core distribution