pack.vbe

i need of vhdl code for 32-bit risc processor

ENTITY pack IS
PORT(
mantissa : IN BIT_VECTOR (4 downto 0) ;
exp : IN BIT_VECTOR (2 downto 0) ;
sig : IN BIT;
fpout : OUT BIT_VECTOR(7 downto 0) 
);
END pack;

ARCHITECTURE pack_arch OF pack IS

begin
fpout(0) <= mantissa(0);
fpout(1) <= mantissa(1);
fpout(2) <= mantissa(2);
fpout(3) <= mantissa(3);
fpout(4) <= exp(0);
fpout(5) <= exp(1);
fpout(6) <= exp(2);
fpout(7) <= sig;
end;