entity
compteur is
port(hor : in
bit ;
compte : out
bit_vector(15 downto 0)) ;
function incremente (e : in
bit_vector)
-- suite de la définition de la fonction
end incremente ;
end compteur ;
architecture
fonc of compteur is
signal cpt : bit_vector(15 downto
0) ;
begin
compte <= cpt ;
process
begin
wait until hor = '1' ;
cpt <= incremente(cpt)
;
end process ;
end fonc ;