unpack.vbe

i need of vhdl code for 32-bit risc processor

ENTITY unpack IS
PORT(
fpval : IN BIT_VECTOR(7 downto 0);
sign : OUT BIT;
exp : OUT BIT_VECTOR(2 downto 0);
mantissa : OUT BIT_VECTOR(4 downto 0)
);
END unpack;

ARCHITECTURE unpack_arch OF unpack IS

begin
sign <= fpval(7);
exp(2) <= fpval(6);
exp(1) <= fpval(5);
exp(0) <= fpval(4);
mantissa(4) <= b"1";
mantissa(3) <= fpval(3);
mantissa(2) <= fpval(2);
mantissa(1) <= fpval(1);
mantissa(0) <= fpval(0);
end;