type operator full select support

This commit is contained in:
Zachary Snow
2020-01-11 22:52:12 -05:00
parent 22d6ba4927
commit e62074c756
4 changed files with 59 additions and 12 deletions
-8
View File
@@ -125,14 +125,6 @@ convertBits (Right e) =
foldl (BinOp Add) (Number "0") $
map (convertBits . Right) $
exprs
Range expr mode range ->
simplify $ BinOp Mul size
(convertBits $ Right $ Bit expr (Number "0"))
where
size = case mode of
NonIndexed -> rangeSize range
IndexedPlus -> snd range
IndexedMinus -> snd range
Stream _ _ exprs -> convertBits $ Right $ Concat exprs
Number n ->
case elemIndex '\'' n of