Skip to content

Commit 3fdfa3e

Browse files
author
Ed Komp
committed
Removed IEEE.STD_LOGIC_UNSIGNED.ALL from imports.
IEEE.NUMERIC_STD.ALL is the current standard and contains the functionality of STD_LOGIC_UNSIGNED
1 parent 8f69a1d commit 3fdfa3e

File tree

1 file changed

+2
-3
lines changed

1 file changed

+2
-3
lines changed

netlist-to-vhdl/Language/Netlist/GenVHDL.hs

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,6 @@ genVHDL m = imports $$
2727
imports = vcat $ [
2828
text "library IEEE" <> semi,
2929
text "use IEEE.STD_LOGIC_1164.ALL" <> semi,
30-
text "use IEEE.STD_LOGIC_UNSIGNED.ALL" <> semi,
3130
text "use IEEE.NUMERIC_STD.ALL" <> semi,
3231
text "use work.all" <> semi
3332
]
@@ -129,7 +128,7 @@ inst gensym (InitProcessDecl s) = Just $
129128
where senlist = parens empty
130129

131130
-- TODO: get multline working
132-
inst _ (CommentDecl msg) = Just $
131+
inst _ (CommentDecl msg) = Just $
133132
(vcat [ text "--" <+> text m | m <- lines msg ])
134133

135134
inst _ d = Nothing
@@ -172,7 +171,7 @@ stmt (Case d ps def) =
172171
expr (ExprNum i) = int $ fromIntegral i
173172
expr (ExprBit x) = quotes (int x)
174173
-- expr (ExprLit 1 val) = quotes (integer val) -- AJG: 1 element arrays are still arrays.
175-
expr (ExprLit size val) = doubleQuotes
174+
expr (ExprLit size val) = doubleQuotes
176175
$ text
177176
$ map (\ x -> if x then '1' else '0')
178177
$ map odd

0 commit comments

Comments
 (0)