QUARTUS II 13.1，VHDL代码，一直同一个报错

代码是这样的

library IEEE;
use IEEE.std_logic_1164.all;
use IEEE.std_logic_arith.all;
package cpu is
    subtype t_shift is unsigned (3 downto 0);
    constant shftpass :unsigned (3 downto 0):="0000";
    constant sftl :unsigned (3 downto 0):="0001";
    constant sftr:unsigned (3 downto 0):="0010";
    constant rotl:unsigned (3 downto 0):="0011";
    constant rotr:unsigned (3 downto 0):="0100";

    subtype t_alu is unsigned (3 downto 0);
    constant alupass:unsigned (3 downto 0):="0000";
    constant andOp :unsigned(3 downto 0):="0001";
    constant orOp:unsigned(3 downto 0):="0010";
    constant notOp :unsigned(3 downto 0):="0011";
    constant xorOp :unsigned(3 downto 0):="0100";
    constant plus :unsigned(3 downto 0):="0101"; 
    constant alusub :unsigned(3 downto 0):="0110"; 
    constant inc :unsigned(3 downto 0):="0111";
    constant dec :unsigned(3 downto 0):="1000"; 
    constant zero:unsigned(3 downto 0):="1001";

    subtype t_comp is unsigned (2 downto 0); 
    constant eq :unsigned(2 downto 0):="000"; 
    constant neq :unsigned(2 downto 0):="001"; 
    constant gt:unsigned(2 downto 0):="010"; 
    constant gte :unsigned(2 downto 0):="011";
    constant lt :unsigned(2 downto 0):="100"; 
    constant lte :unsigned(2 downto 0):="101";

    subtype t_reg is std_logic_vector(2 downto 0);

    type state is (reset1,reset2,reset3,reset4,reset5,reset6,execute,nop,load,store,move,load2,load3,load4,store2,store3,store4,move2,move3,move4, incPc,incPc2,incPc3,incPc4,incPc5,incPc6,loadPc,loadPc2,loadPc3,loadPc4, bgtI2,bgtI3,bgtI4,bgtI5,bgtI6,bgtI7,bgtI8,bgtI9,bgtI10,braI2,braI3,braI4,braI5,braI6,loadI2,loadI3,loadI4,loadI5,loadI6,inc2,inc3,inc4);

    subtype bit16 is std_logic_vector(15 downto 0); 
end  cpu;

然后一直报错Error (12007): Top-level design entity "cpu" is undefined
工程名和文件名都改成一样的了
真给整不会了

pkg里面没有声明？