diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-31 19:39:57 +0100 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-31 19:39:57 +0100 |
commit | 50f0039fb733cef73a749c098b63fff202641ea1 (patch) | |
tree | e5dfa5ced08cf0fa0510796f006d9d27faf4ace2 /src | |
parent | 6610c9a341c568ea369049a7a3d33b64ab4f2815 (diff) | |
download | verismith-50f0039fb733cef73a749c098b63fff202641ea1.tar.gz verismith-50f0039fb733cef73a749c098b63fff202641ea1.zip |
Add missing case in function
Diffstat (limited to 'src')
-rw-r--r-- | src/Test/VeriFuzz/Verilog/CodeGen.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Test/VeriFuzz/Verilog/CodeGen.hs b/src/Test/VeriFuzz/Verilog/CodeGen.hs index 3c1f958..11b9743 100644 --- a/src/Test/VeriFuzz/Verilog/CodeGen.hs +++ b/src/Test/VeriFuzz/Verilog/CodeGen.hs @@ -165,6 +165,8 @@ genLVal (RegExpr id expr) = id ^. getIdentifier <> " [" <> genExpr expr <> "]" genLVal (RegSize id msb lsb) = id ^. getIdentifier <> " [" <> genConstExpr msb <> ":" <> genConstExpr lsb <> "]" +genLVal (RegConcat e) = + "{" <> comma (genExpr <$> e) <> "}" genConstExpr :: ConstExpr -> Text genConstExpr (ConstExpr num) = showT num |