Subversion Repositories core_arm

-- $(lic)
-- $(help_generic)
-- $(help_local)
 
library ieee;
use ieee.std_logic_1164.all;
use work.armshiefter.all;
use work.armpctrl.all;
use work.armctrl.all;
use work.armpmodel.all;
use work.armdecode.all;
use work.arm_comp.all;
 
entity armiu_rsstg is
  port ( 
    rst     : in  std_logic;
    clk     : in  std_logic;
    i       : in  armiu_rsstg_typ_in;
    o       : out armiu_rsstg_typ_out
    );
end armiu_rsstg;
 
architecture rtl of armiu_rsstg is
 
  type armiu_rsstg_tmp_type is record
    o       : armiu_rsstg_typ_out;
    commit : std_logic;
    shieftout      : std_logic_vector(31 downto 0);
    cond_fail : std_logic;
  end record;
  type armiu_rsstg_reg_type is record
    pctrl : apc_pctrl;
    buf1 : std_logic_vector(31 downto 0);
    buf2 : std_logic_vector(31 downto 0);
  end record;
  type armiu_rsstg_dbg_type is record
     dummy : std_logic;
     -- pragma translate_off
     dbg : armiu_rsstg_tmp_type;
     -- pragma translate_on
  end record;
  signal r, c       : armiu_rsstg_reg_type;
  signal rdbg, cdbg : armiu_rsstg_dbg_type;
 
begin  
 
  p0: process (clk, rst, r, i  )
    variable v    : armiu_rsstg_reg_type;
    variable t    : armiu_rsstg_tmp_type;
    variable vdbg : armiu_rsstg_dbg_type;
  begin 
 
    -- $(init(t:armiu_rsstg_tmp_type))
 
    v := r;
    t.commit := not i.flush_v;
 
    aas_shieft( r.pctrl.insn.insn,
                r.pctrl.rs.rsop_sdir,
                r.pctrl.rs.rsop_styp,
                r.pctrl.data1,
                r.pctrl.data2,
                i.pstate.fromEX_cpsr_r.ex.c,
                t.shieftout,
                v.pctrl.rs.rs_shieftcarryout
                );
 
    -- reset
    if ( rst = '0' ) then
    end if;
 
    -- pipeline propagation
    t.o.pctrl_r := r.pctrl;
    t.o.toEX_pctrl_v := v.pctrl;
 
    -- pipeline flush
    if not (t.commit = '1') then
      t.o.toEX_pctrl_v.valid := '0';
    end if;
 
    case r.pctrl.rs.rsop_op1_src is
      when apc_opsrc_through => t.o.toEX_pctrl_v.data1 := r.pctrl.data1;
      when apc_opsrc_buf     => t.o.toEX_pctrl_v.data1 := r.buf1;
      when apc_opsrc_alures  => t.o.toEX_pctrl_v.data1 := i.fromEX_alures_v;
      when apc_opsrc_none    =>
      when others => 
    end case;
 
    case r.pctrl.rs.rsop_op2_src is
      when apc_opsrc_through => t.o.toEX_pctrl_v.data2 := t.shieftout;
      when apc_opsrc_buf     => t.o.toEX_pctrl_v.data2 := r.buf2;
      when apc_opsrc_alures  => t.o.toEX_pctrl_v.data2 := i.fromEX_alures_v;
      when apc_opsrc_none    =>
      when others => 
    end case;
 
    case r.pctrl.rs.rsop_buf1_src is
      when apc_bufsrc_through => v.buf1 := r.pctrl.data1;
      when apc_bufsrc_alures  => v.buf1 := i.fromEX_alures_v;
      when apc_bufsrc_none    =>
      when others => 
    end case;
 
    case r.pctrl.rs.rsop_buf2_src is
      when apc_bufsrc_through => v.buf2 := t.shieftout;
      when apc_bufsrc_alures  => v.buf2 := i.fromEX_alures_v;
      when apc_bufsrc_none    =>
      when others => 
    end case;
 
    t.cond_fail := '0';                 -- tmp for dbg
    if act_checkcond(i.fromEX_cpsr_v,r.pctrl.insn.insn(ADE_COND_U downto ADE_COND_D)) = '0' then
      t.cond_fail := '1';                 -- tmp for dbg
      t.o.toEX_pctrl_v.valid := '0';
    end if;
 
    -- todo: add pctrl owner propagation
 
    if i.pstate.hold_r.hold = '0' then
      if apc_is_valid(i.fromRR_pctrl_v) then
        v.pctrl := i.fromRR_pctrl_v;
      else
        if not apc_is_straddr(r.pctrl) then
          v.pctrl := i.fromRR_pctrl_v;
        else
          -- wait for store data (coming after this one)
          t.o.toEX_pctrl_v.valid := '0';
        end if;
      end if;
    end if;
 
    c <= v;
 
    o <= t.o;
 
    -- pragma translate_off
    vdbg := rdbg;
    vdbg.dbg := t;
    cdbg <= vdbg;
    -- pragma translate_on  
 
  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 rtl;