lilian
/
fir_vhdl
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
A simple vhdl fir description.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
5 Commits
2 Branches
33KB
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
fir_vhdl/general_includes.vhd

264 lines
11KB
Raw Permalink Blame History 

  1. LIBRARY ieee;

  2. USE ieee.std_logic_1164.ALL;

  3. USE ieee.numeric_std.ALL;

  4. USE ieee.std_logic_unsigned.ALL;

  5. USE ieee.std_logic_signed.ALL;

  6. 

  7. PACKAGE GENERAL_INCLUDES IS

  8. 

  9. 

  10. 

  11.   FUNCTION log2_sup_integer (number : natural) RETURN natural;

  12.   FUNCTION log2_inf_integer (number : natural) RETURN natural;

  13. 

  14.   -- -- CONSTANTS -- --

  15. 

  16.   -- ADC

  17.   CONSTANT cst_w_in : natural := 6;     -- ADC in bitwidth

  18.   CONSTANT cst_w_out : natural := 19;

  19. 

  20.   CONSTANT cst_nb_samples_adc_in : natural := 10;  -- ADC in nb samples

  21. 

  22.   -- FILTER

  23.   --coefficients

  24.   CONSTANT cst_w_coeff             : natural := 8;  -- coeffs bitwidth

  25.   CONSTANT cst_nb_coeffs_filter_in : natural := 20*10;

  26.   CONSTANT cst_log2_sup_nb_coeffs_subfilter_in: natural:= 5;

  27. 

  28.   -- FIR

  29.   -- POLYPHASE FILTER

  30.   CONSTANT cst_nb_subfilters : natural := 10;

  31. 

  32.   -- -- CALCULATIONS -- --

  33. 

  34.   -- SHIFT REG

  35. 

  36.   CONSTANT cst_nb_coeffs_subfilter_in      : natural := cst_nb_coeffs_filter_in/cst_nb_subfilters;

  37.   CONSTANT cst_nb_samples_shiftreg_temp_in : natural := cst_nb_coeffs_subfilter_in + cst_nb_samples_adc_in;

  38.   -- mult

  39.   CONSTANT cst_w_mult_out       : natural := cst_w_coeff+cst_w_in;

  40.   -- adder

  41.   CONSTANT cst_log2_adder_stages : natural := cst_log2_sup_nb_coeffs_subfilter_in;

  42.   -- fir

  43.   CONSTANT cst_w_fir_adder_out : natural := cst_w_mult_out+cst_log2_adder_stages;

  44. 

  45.   -- TYPES

  46. 

  47.   -- ADC

  48.   SUBTYPE smpl_adc_data_in IS std_logic_vector(cst_w_in-1 DOWNTO 0);

  49.   SUBTYPE smpl_fir_data_out IS std_logic_vector(cst_w_out-1 DOWNTO 0);

  50. 

  51. 

  52.   -- SHIFT REG

  53. 

  54.   TYPE vect_adc_data_out IS ARRAY (0 TO cst_nb_samples_adc_in-1) OF smpl_adc_data_in;

  55.   TYPE vect_fir_data_in IS ARRAY(0 TO cst_nb_coeffs_subfilter_in-1) OF smpl_adc_data_in;

  56.   TYPE vect_reg_data IS ARRAY(0 TO cst_nb_samples_shiftreg_temp_in-1) OF smpl_adc_data_in;

  57. 

  58.   TYPE matrix_reg_data_out IS ARRAY(0 TO cst_nb_coeffs_subfilter_in-1) OF vect_fir_data_in;

  59. 

  60.   -- FILTER

  61. 

  62.   SUBTYPE smpl_coeff IS std_logic_vector(cst_w_coeff-1 DOWNTO 0);

  63. 

  64.   -- mult

  65.   SUBTYPE smpl_mult_data_out IS std_logic_vector(cst_w_mult_out-1 DOWNTO 0);

  66.   SUBTYPE smpl_mult_data_out_signed IS signed(cst_w_mult_out-1 DOWNTO 0);

  67.   SUBTYPE smpl_coeffs_signed IS signed(cst_w_coeff-1 DOWNTO 0);

  68.   SUBTYPE smpl_mult_data_in_signed IS signed(cst_w_in-1 DOWNTO 0);

  69. 

  70.   TYPE vect_data_mult_in_signed IS ARRAY(0 TO cst_nb_coeffs_subfilter_in-1) OF smpl_mult_data_in_signed;

  71.   TYPE vect_fir_coeffs_in IS ARRAY(0 TO cst_nb_coeffs_subfilter_in-1) OF smpl_coeff ;

  72.   TYPE vect_mult_coeffs_signed IS ARRAY(0 TO cst_nb_coeffs_subfilter_in-1) OF smpl_coeffs_signed;

  73.   TYPE vect_mult_data_out IS ARRAY(0 TO cst_nb_coeffs_subfilter_in-1) OF smpl_mult_data_out;

  74.   TYPE vect_mult_data_out_signed IS ARRAY(0 TO cst_nb_coeffs_subfilter_in-1) OF smpl_mult_data_out_signed;

  75. 

  76.   -- adder

  77.   TYPE vect_adder_generic IS ARRAY(0 TO 2**(cst_log2_adder_stages)-1) OF std_logic_vector(cst_w_fir_adder_out-1 DOWNTO 0);

  78.   TYPE vect_adder_generic_signed IS ARRAY(0 TO 2**(cst_log2_adder_stages)-1) OF signed(cst_w_fir_adder_out-1 DOWNTO 0);

  79.   TYPE matrix_adder_generic IS ARRAY(0 TO cst_log2_adder_stages) OF vect_adder_generic;

  80.   TYPE matrix_adder_generic_signed IS ARRAY(0 TO cst_log2_adder_stages) OF vect_adder_generic_signed;

  81. 

  82.   -- fir

  83.   SUBTYPE smpl_fir_adder_data_out IS std_logic_vector(cst_w_fir_adder_out-1 DOWNTO 0);

  84.   TYPE vect_fir_adder_data_out IS ARRAY (0 TO cst_nb_samples_adc_in-1) OF smpl_fir_adder_data_out;

  85.   TYPE vect_fir_data_out IS array(0 TO cst_nb_samples_adc_in-1) OF smpl_fir_data_out;

  86. 

  87.   -- POLYPHASE FILTER

  88. 

  89.   -- TYPE matrix_coeffs_polyphase_filter                IS array(0 to cst_nb_subfilters) OF vect_mult_coeffs;

  90. 

  91. 

  92. 

  93. 

  94. 

  95. 

  96. 

  97. --      ---- CONSTANTS ----

  98. --      

  99. --      -- data

  100. --      CONSTANT w_x                                                            : natural               := 6;                   -- input samples bitwidth

  101. --      CONSTANT w_y                                            : natural               := 6;                   -- output data bitwidth

  102. --

  103. --      

  104. --      -- filter

  105. --      CONSTANT filer_nb_coeffs                                : natural               := 1000;                -- total nb coefficients

  106. --      CONSTANT filter_nb_channels                     : natural               := 20;          -- nb subfilters

  107. --      CONSTANT w_coeffs                                                       : natural               := 8;                   -- 

  108. --      

  109. --      -- signal processing properties

  110. --      CONSTANT downsampling_factor                    : natural               := 8;

  111. --      

  112. --      

  113. --      

  114. --      ---- CALCULATIONS ----

  115. --      

  116. --      

  117. --      VARIABLE subfilter_coeffs_nb_temp       : natural               := filer_nb_coeffs/filter_nb_channels;

  118. --      if(2**(log2_sup_integer(subfilter_coeffs_nb_temp)) != subfilter_coeffs_nb_temp) then -- if not power of 2

  119. --              CONSTANT subfilter_coeffs_nb            : natural               := 2**(log2_sup_integer(subfilter_coeffs_nb_temp);

  120. --      else

  121. --              CONSTANT subfilter_coeffs_nb            : natural               := subfilter_coeffs_nb_temp;

  122. --      end if;

  123. --      

  124. --      CONSTANT log_subfilter_coeffs_nb                : natural               := log2_sup_integer(subfilter_coeffs_nb);

  125. --      

  126. --      -- FIR

  127. --      --multplier

  128. --      CONSTANT data_mult_in_w                                 : natural               := w_x;

  129. --      CONSTANT data_mult_out_w                                : natural               := w_x+w_coeffs+1;

  130. --      --adder

  131. --      CONSTANT data_add_in_w                                  : natural               := data_mult_out_w;

  132. --      CONSTANT data_P_G_stages                                : natural               := natural(conv_std_logic_vector(data_add_in_w)'LENGTH) -- ca marche?

  133. --      CONSTANT data_add_out_w                                 : natural               := data_add_in_w+log_subfilter_coeffs_nb;

  134. --      

  135. --      

  136. --      ---- TYPES ----

  137. --      

  138. --      -- filter coeffs

  139. --      TYPE coeff                                                      IS              std_logic_vector(w_coeffs-1 downto 0);

  140. --      TYPE coeff_signed                                       IS              signed(w_coeffs-1 downto 0);

  141. --      TYPE subfilter_coefficients     IS              array(0 to subfilter_coeffs_nb-1) OF coeff;

  142. --      TYPE polyphase_filter_matrix    IS              array(0 to filter_nb_channels-1) OF subfilter_coefficients;

  143. --      

  144. --      -- polyphase fill

  145. --      polyphase_filter_matrix(others =>(others => 0); -- init;

  146. --      

  147. --      for subfilter_nth_coeff in (0 to subfilter_coeffs_nb-1) loop -- fill subfilters

  148. --              for lines in (0 to filter_nb_channels-1) loop

  149. --                      polyphase_filter_matrix(lines => (subfilter_nth_coeff => filter(lines*filter_nb_channels+subfilter_nth_coeff));

  150. --              end loop;

  151. --      end loop;

  152. --      

  153. --      -- FIR

  154. --      TYPE fir_data_in                                        IS              std_logic_vector(w_x-1 downto 0);

  155. --      TYPE fir_data_out                                       IS              std_logic_vector(w_x+log_subfilter_coeffs_nb-1 downto 0);

  156. --      --reg

  157. --      TYPE data_reg_in                                        IS              data_in;

  158. --      --multiplier

  159. --      TYPE data_mult_in                                       IS              std_logic_vector(data_mult_in_w-1 downto 0);

  160. --      TYPE data_mult_in_signed                IS              signed(data_mult_in_w-1 downto 0);

  161. --      TYPE data_mult_out                              IS              std_logic_vector(data_mult_out_w-1 downto 0);

  162. --      TYPE data_mult_out_signed               IS              signed(data_mult_out_w-1 downto 0);

  163. --      --adder

  164. --      TYPE data_add_in                                        IS      data_mult_out;

  165. --      TYPE data_add_out                                       IS      STD_LOGIC_VECTOR(data_add_out_w-1 downto 0);

  166. --      --tree

  167. --      TYPE mult_add_stage_array               IS              array(0 to subfilter_coeffs_nb-1) OF data_add_out;

  168. --      TYPE mult_add_tree_matrix               IS              array(0 to log_subfilter_coeffs_nb) OF mult_add_stage_array;

  169. --      --DFT

  170. --      TYPE input_DFT_data                             IS      data_add_out;

  171. --      TYPE output_DFT_data                            IS              

  172. --      

  173. --      --TYPE step_nb_channels                         IS      array (0 to filter_nb_channels-1) of signed (w_x-1 downto 0);

  174. --      --TYPE filter_coeffs                            IS              array (0 to filer_nb_coeffs-1) of signed (w_x-1 downto 0);

  175. --      --TYPE type_data_fir                            IS              signed(w_x-1 downto 0);

  176. --      --TYPE type_coeff_fir                           IS              signed

  177. 

  178. 

  179. END;

  180. 

  181. PACKAGE BODY GENERAL_INCLUDES IS

  182. 

  183. 

  184.   --functions

  185.   FUNCTION log2_sup_integer (number : natural) RETURN natural IS

  186.     VARIABLE result : natural;

  187.   BEGIN

  188. 

  189.     IF(number <= 1) THEN

  190.       result := 0;

  191.     ELSIF(number = 2) THEN

  192.       result := 1;

  193.     ELSIF(number > 2 AND number <= 4) THEN

  194.       result := 2;

  195.     ELSIF(number > 4 AND number <= 8) THEN

  196.       result := 3;

  197.     ELSIF(number > 8 AND number <= 16) THEN

  198.       result := 4;

  199.     ELSIF(number > 16 AND number <= 32) THEN

  200.       result := 5;

  201.     ELSIF(number > 32 AND number <= 64) THEN

  202.       result := 6;

  203.     ELSIF(number > 64 AND number <= 128) THEN

  204.       result := 7;

  205.     ELSIF(number > 128 AND number <= 256) THEN

  206.       result := 8;

  207.     ELSIF(number > 256 AND number <= 512) THEN

  208.       result := 9;

  209.     ELSIF(number > 512 AND number <= 1024) THEN

  210.       result := 10;

  211.     ELSIF(number > 1024 AND number <= 2048) THEN

  212.       result := 11;

  213.     ELSIF(number > 2048 AND number <= 4096) THEN

  214.       result := 12;

  215.     ELSIF(number > 4096 AND number <= 8192) THEN

  216.       result := 13;

  217.     ELSIF(number > 8192 AND number <= 16384) THEN

  218.       result := 14;

  219.     ELSIF(number > 16384 AND number <= 32768) THEN

  220.       result := 15;

  221.     END IF;

  222.     RETURN result;

  223.   END FUNCTION;

  224. 

  225.   FUNCTION log2_inf_integer (number : natural) RETURN natural IS

  226.     VARIABLE result : natural;

  227.   BEGIN

  228. 

  229.     IF(number < 2) THEN

  230.       result := 0;

  231.     ELSIF(number >= 2 AND number < 4) THEN

  232.       result := 1;

  233.     ELSIF(number >= 4 AND number < 8) THEN

  234.       result := 2;

  235.     ELSIF(number >= 8 AND number < 16) THEN

  236.       result := 3;

  237.     ELSIF(number >= 16 AND number < 32) THEN

  238.       result := 4;

  239.     ELSIF(number >= 32 AND number < 64) THEN

  240.       result := 5;

  241.     ELSIF(number >= 64 AND number < 128) THEN

  242.       result := 6;

  243.     ELSIF(number >= 128 AND number < 256) THEN

  244.       result := 7;

  245.     ELSIF(number >= 256 AND number < 512) THEN

  246.       result := 8;

  247.     ELSIF(number >= 512 AND number < 1024) THEN

  248.       result := 9;

  249.     ELSIF(number >= 1024 AND number < 2048) THEN

  250.       result := 10;

  251.     ELSIF(number >= 2048 AND number < 4096) THEN

  252.       Result := 11;

  253.     ELSIF(Number >= 4096 AND number < 8192) THEN

  254.       result := 12;

  255.     ELSIF(number >= 8192 AND number < 16384) THEN

  256.       result := 13;

  257.     ELSIF(number >= 16384 AND number < 32768) THEN

  258.       result := 14;

  259.     END IF;

  260.     RETURN result;

  261.   END FUNCTION;

  262. 

  263. END PACKAGE BODY;