a_block.vst

i need of vhdl code for 32-bit risc processor

ENTITY a_block IS
PORT (
ai : IN BIT;
bi : IN BIT;
ci : IN BIT;
si : OUT BIT;
gi : OUT BIT;
pi : OUT BIT);
END a_block ;

ARCHITECTURE ablock_arch OF a_block IS

COMPONENT xorgate
PORT ( a1 : IN BIT;
       b1 : IN BIT;
       c1 : IN BIT;
       d1 : OUT BIT );
END COMPONENT;

COMPONENT andgate 
PORT ( a2 : IN BIT;
       b2 : IN BIT;
       c2 : OUT BIT );
END COMPONENT; 

COMPONENT orgate
PORT ( a3 : IN BIT;
       b3 : IN BIT;
       c3 : OUT BIT );
END COMPONENT;


BEGIN
xor3 : xorgate PORT MAP(ai,bi,ci,si);
and2 : andgate PORT MAP(a2=>ai,b2=>bi,c2=>gi);
or2  : orgate PORT MAP(a3=>ai,b3=>bi,c3=>pi);
END;