Subversion Repositories wdsp

 
library IEEE; 
USE ieee.std_logic_1164.ALL; 
USE ieee.std_logic_arith.ALL; 
 
package fft_pkg is 
  type ioarray is array (integer range <>) of               std_logic_vector(255 downto 0); 
  function log2(A: integer) return integer; 
end; 
 
package body fft_pkg is 
    function log2(A: integer) return integer is 
    begin 
       for I in 1 to 30 loop  -- Works for up to 32 bit integers 
          if            (2**I > A) then return(I-1); 
          end if; 
      end loop; 
    return(30); 
     end; 
end;