to integer function vhdl

to_integer.vhd

function to_integer(sig : std_logic_vector) return integer is
  variable num : integer := 0;  -- descending sig as integer
begin
  for i in sig'range loop
    if sig(i)='1' then
      num := num*2+1;
    else
      num := num*2;
    end if;
  end loop;  -- i
  return num;
end function to_integer;

vai dentro de architecture