1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
---------------------------------------------------------------------------------------------------
-- Filename : mt_toolbox.vhd
-- Project : maintech IP-Core toolbox
-- Purpose : maintech toolbox package
--
-- Description : declaration of common types, functions and attributes
-- used throughout the toolbox
---------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------
-- Copyright (C) 2012 maintech GmbH, Otto-Hahn-Str. 15, 97204 Hoechberg, Germany --
-- written by Matthias Kleffel --
-- --
-- This program is free software; you can redistribute it and/or modify --
-- it under the terms of the GNU General Public License as published by --
-- the Free Software Foundation as version 3 of the License, or --
-- --
-- This program is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --
-- GNU General Public License V3 for more details. --
-- --
-- You should have received a copy of the GNU General Public License --
-- along with this program. If not, see <http://www.gnu.org/licenses/>. --
-----------------------------------------------------------------------------------
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
package mt_toolbox is
--
-- basic types
--
subtype slv8_t is std_logic_vector(7 downto 0);
subtype slv16_t is std_logic_vector(15 downto 0);
subtype slv32_t is std_logic_vector(31 downto 0);
subtype byte_t is unsigned(7 downto 0);
subtype word_t is unsigned(15 downto 0);
subtype dword_t is unsigned(31 downto 0);
type slv8_array_t is array (natural range<>) of slv8_t;
type slv16_array_t is array (natural range<>) of slv16_t;
type slv32_array_t is array (natural range<>) of slv32_t;
type byte_array_t is array (natural range<>) of byte_t;
type word_array_t is array (natural range<>) of word_t;
type dword_array_t is array (natural range<>) of dword_t;
--
-- simple helper functions
--
function log2(x: natural) return positive;
--
-- type conversion helper
--
function to_slv8(x: std_logic) return std_logic_vector;
function to_slv8(x: std_logic_vector) return std_logic_vector;
function to_slv8(x: unsigned) return std_logic_vector;
function to_slv8(x: signed) return std_logic_vector;
function to_slv8(x: natural) return std_logic_vector;
function to_slv16(x: std_logic) return std_logic_vector;
function to_slv16(x: std_logic_vector) return std_logic_vector;
function to_slv16(x: unsigned) return std_logic_vector;
function to_slv16(x: signed) return std_logic_vector;
function to_slv16(x: natural) return std_logic_vector;
function to_slv32(x: std_logic) return std_logic_vector;
function to_slv32(x: std_logic_vector) return std_logic_vector;
function to_slv32(x: unsigned) return std_logic_vector;
function to_slv32(x: signed) return std_logic_vector;
function to_slv32(x: natural) return std_logic_vector;
--
-- common attributes
--
attribute syn_keep : boolean;
attribute syn_ramstyle : string;
attribute syn_romstyle : string;
end mt_toolbox;
package body mt_toolbox is
--
-- simple helper functions
--
-- calculate ceiling base 2 logarithm (returns always >=1)
function log2(x: natural) return positive is
variable x_tmp: natural;
variable y: positive;
begin
x_tmp := x-1;
y := 1;
while x_tmp > 1 loop
y := y+1;
x_tmp := x_tmp/2;
end loop;
return y;
end;
-- to_slv8 (pack basic types into "std_logic_vector(7 downto 0)")
function to_slv8(x: std_logic) return std_logic_vector is
variable res : std_logic_vector(7 downto 0);
begin
res := (0=>x,others=>'0');
return res;
end to_slv8;
function to_slv8(x: std_logic_vector) return std_logic_vector is
variable res : std_logic_vector(7 downto 0);
begin
res := (others=>'0');
res(x'length-1 downto 0) := x;
return res;
end to_slv8;
function to_slv8(x: unsigned) return std_logic_vector is
begin
return to_slv8(std_logic_vector(x));
end to_slv8;
function to_slv8(x: signed) return std_logic_vector is
begin
return to_slv8(std_logic_vector(x));
end to_slv8;
function to_slv8(x: natural) return std_logic_vector is
begin
return to_slv8(to_unsigned(x,8));
end to_slv8;
-- to_slv16 (pack basic types into "std_logic_vector(15 downto 0)")
function to_slv16(x: std_logic) return std_logic_vector is
variable res : std_logic_vector(15 downto 0);
begin
res := (0=>x,others=>'0');
return res;
end to_slv16;
function to_slv16(x: std_logic_vector) return std_logic_vector is
variable res : std_logic_vector(15 downto 0);
begin
res := (others=>'0');
res(x'length-1 downto 0) := x;
return res;
end to_slv16;
function to_slv16(x: unsigned) return std_logic_vector is
begin
return to_slv16(std_logic_vector(x));
end to_slv16;
function to_slv16(x: signed) return std_logic_vector is
begin
return to_slv16(std_logic_vector(x));
end to_slv16;
function to_slv16(x: natural) return std_logic_vector is
begin
return to_slv16(to_unsigned(x,16));
end to_slv16;
-- to_slv32 (pack basic types into "std_logic_vector(31 downto 0)")
function to_slv32(x: std_logic) return std_logic_vector is
variable res : std_logic_vector(31 downto 0);
begin
res := (0=>x,others=>'0');
return res;
end to_slv32;
function to_slv32(x: std_logic_vector) return std_logic_vector is
variable res : std_logic_vector(31 downto 0);
begin
res := (others=>'0');
res(x'length-1 downto 0) := x;
return res;
end to_slv32;
function to_slv32(x: unsigned) return std_logic_vector is
begin
return to_slv32(std_logic_vector(x));
end to_slv32;
function to_slv32(x: signed) return std_logic_vector is
begin
return to_slv32(std_logic_vector(x));
end to_slv32;
function to_slv32(x: natural) return std_logic_vector is
begin
return to_slv32(to_unsigned(x,32));
end to_slv32;
end mt_toolbox;
|
