increment.vbe

i need of vhdl code for 32-bit risc processor

ENTITY increment IS
PORT (
incinp : IN BIT;
incout : OUT bit_vector(7 downto 0)
);
END increment;

ARCHITECTURE increment_arch OF increment IS

BEGIN
with incinp select
incout <= b"00000001" when b"1",
       b"00000001" when b"0" ;
END;