bitextend.vbe

i need of vhdl code for 32-bit risc processor

ENTITY bitextend IS
PORT (
inpbit : IN BIT;
outvec : OUT BIT_VECTOR(4 downto 0)
);
END bitextend;

ARCHITECTURE bitextend_arch OF bitextend IS

BEGIN

with inpbit select
outvec <= b"00000" when b"0",
	  b"11111" when b"1";
END;