jens/vhdl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Cleaned up

Browse Source 
git-svn-id: http://moon:8086/svn/vhdl/trunk@162 cc03376c-175c-47c8-b038-4cd826a8556b
This commit is contained in:
jens
2008-12-28 16:49:28 +00:00
parent 64cb0bb426
commit f3c6c4c644
1 changed files with 0 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/radio/nco/src/nco_pkg.vhd
-28
View File
@@ -11,11 +11,6 @@ package nco_pkg is
constant tpd : time := 0 ns;
-- Global set arithmetic rounding mode
-- constant pi : real := 3.141592653589793e+000;
-- constant sqrt2 : real := 1.414213562373095e+000;
-- constant sqrt2_inv : real := 7.071067811865475e-001;
type real_array_t is array (natural range <>) of real;
type natural_array_t is array (natural range <>) of natural;
type phase_relation_t is (phase_90deg, phase_270deg);
@@ -57,14 +52,6 @@ package nco_pkg is
function sin_tbl(nsamples : integer; omega, phi_in : real) return real_array_t;
function cos_tbl(nsamples : integer; omega, phi_in : real) return real_array_t;
-------------------------------------------------------------
-- Constructor helpers
-- Use: variable v8u6 : ufixed_t(ufixed(8,6)'range);
-- function uproto (nbits : integer; nbits_frac : integer) return ufixed;
-- Use: variable v8s6 : sfixed_t(sfixed(8,6)'range);
-- function sproto (nbits : integer; nbits_frac : integer) return sfixed;
end; -- package nco_pkg;
-------------------------------------------------------------------------------
@@ -99,20 +86,5 @@ package body nco_pkg is
return tbl;
end cos_tbl;
-------------------------------------------------------------
-- Constuctor helpers
-- function uproto (nbits : integer; nbits_frac : integer) return ufixed is
-- constant result : ufixed (nbits-nbits_frac-1 downto -nbits_frac) := (others => '0');
-- begin
-- return result(nbits-nbits_frac-1 downto -nbits_frac);
-- end uproto;
-------------------------------------------------------------
-- function sproto (nbits : integer; nbits_frac : integer) return sfixed is
-- constant result : sfixed (nbits-nbits_frac downto -nbits_frac+1) := (others => '0');
-- begin
-- return result(nbits-nbits_frac downto -nbits_frac+1);
-- end sproto;
-------------------------------------------------------------------------------
end; -- package nco_pkg;