pulse counting

Code :

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
entity pulsegen is
	
	generic (
	
		pulse_to_count	 : unsigned(7 downto 0) := "00001000"
	 
	);
   
   port(
      clk				: in std_logic;
      reset 				: in std_logic;
      ratio_freq			: in unsigned(19 downto 0);	 
      en_in 				: in std_logic;             			 
      pulse			 	: out std_logic;				 			 
      toggle_pulse	 	: out std_logic				 		    
   );
	
end pulsegen ;
architecture arch of pulsegen is 
signal pulse_tick			: std_logic 		     :='0';
signal pulse_dir			: std_logic 		     :='0';
signal pulse_counter		: unsigned(19 downto 0) := (others => '0');
signal counter_dir		: unsigned(7 downto 0)   := (others => '0');
begin
	pulse               <= pulse_tick; 
	toggle_pulse    <= pulse_dir;
pulsegen : process (clk) 
begin
	if rising_edge (clk) then
		if reset = '0' then
		
			pulse_counter		<= (others => '0');
			pulse_tick			<= '0';
			pulse_dir			<= '0';	
			
		else
		
			if (en_in <= '1') then
				
				if pulse_counter = ratio_freq then
				
					pulse_counter 	<= (others => '0');
					pulse_tick 		<= not pulse_tick;
					counter_dir	<= counter_dir +1;
					
					if (counter_dir = pulse_to_count)  then 
						
						counter_dir <= (others => '0') ;
						pulse_dir	 <= not pulse_dir ;
								
					end if ;
					
				else
				
					pulse_counter 	<= pulse_counter + 1;
					
				end if;
				
			else
				
				pulse_counter	<= (others => '0');
				pulse_tick		<= '0';		
				
			end if;
		end if;
	end if;
end process pulsegen;
end arch; 

library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
entity tb is
end tb;
architecture behavior of tb is
    component pulsegen  
   	generic (
					pulse_to_count	 : unsigned(7 downto 0) := "00001000"
					);
		
		port(
			clk					: in std_logic;
			reset 				: in std_logic;
			ratio_freq			        : in unsigned(19 downto 0);	 
			en_in 				: in std_logic;             			 
			pulse 				: out std_logic;				 			 
			toggle_pulse 		        : out std_logic				 		    
			);
	
    end component;
 
   signal clk : std_logic								:= '0';
	signal reset : std_logic							:= '0';
	signal en_in : std_logic							:= '0';
	signal pulse : std_logic							:= '0';
	signal toggle_pulse : std_logic					        := '0';
	
	signal ratio_freq : unsigned(19 downto 0) 		                := "00000000000011111010";	--determines pulse output frequency
	constant pulse_to_count : unsigned(7 downto 0) 	                := "00001000";				--toggles every 8 pulses from pulse output
        constant clk_period : time 							:= 20 ns;					--50MHz
	
	begin
	
	
	uut: pulsegen  generic map(pulse_to_count=>pulse_to_count)
			      port map(clk=>clk, reset=>reset,ratio_freq =>ratio_freq, en_in=>en_in,pulse=>pulse,toggle_pulse=>toggle_pulse);  
	
   clk_process : process
   begin
   
        clk <= '0';
        wait for clk_period/2; 
        clk <= '1';
        wait for clk_period/2; 
   
   end process;
   stim_rx_proc: process
	
	begin
	
		wait for 100 ns;
		reset <= '1';
		wait for 200 ns;
		en_in <= '1';
		wait;
   end process;
end;