library ieee;
use ieee.std_logic_1164.all;

package mine is
   procedure count (vec : in std_logic_vector;
                    num0, num1 : out integer);
end mine;

package body mine is
   procedure count (vec : in std_logic_vector;
                    num0, num1 : out integer )is
      variable t0, t1 : integer := 0;
   begin
      for i in vec'range loop
         if (vec(i) = '1') then
            t0 := t0 + 1;
         elsif (vec(i) = '0') then
            t1 := t1 + 1;
         end if;
      end loop;
      num0 := t0;
      num1 := t1;
   end count;
end mine;