Subversion Repositories core_arm

library ieee;

use ieee.std_logic_1164.all;

-- PREFIX: acpsc_xxx

package armsctrl is

constant ACPSC_R0_OP0 : std_logic_vector(31 downto 0) := (others => '0');  -- id

constant ACPSC_R0_OP1 : std_logic_vector(31 downto 0) := (others => '0');  -- cache

type acpsc_r1 is record

  mmu    : std_logic;

end record;

function acpsc_r1tostd (

  r1 : acpsc_r1

) return std_logic_vector;

procedure acpsc_stdtor1 (

  data : in std_logic_vector(31 downto 0);

  r1   : inout acpsc_r1

);

type acpsc_regs is record

  r1 : acpsc_r1;

  r2 : std_logic_vector(31 downto 0);   -- mmu_base

end record;

end armsctrl;

package body armsctrl is

constant ACPS_R1_M_C : integer := 0;

-- sysctrl register 1

function acpsc_r1tostd (

  r1 : acpsc_r1

) return std_logic_vector is

  variable tmp : std_logic_vector(31 downto 0);

begin

  tmp := (others => '0');

  tmp(ACPS_R1_M_C) := r1.mmu;

  return tmp;

end;

procedure acpsc_stdtor1 (

  data : in std_logic_vector(31 downto 0);

  r1   : inout acpsc_r1

) is

begin

  r1.mmu := data(ACPS_R1_M_C);

end;

end armsctrl;