projects
/
matthijs
/
master-project
/
cλash.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bea4694
)
getFieldLabels has better error messages
author
christiaanb
<christiaan.baaij@gmail.com>
Thu, 17 Jun 2010 14:19:12 +0000
(16:19 +0200)
committer
christiaanb
<christiaan.baaij@gmail.com>
Thu, 17 Jun 2010 14:19:12 +0000
(16:19 +0200)
clash/CLasH/VHDL/VHDLTools.hs
patch
|
blob
|
history
diff --git
a/clash/CLasH/VHDL/VHDLTools.hs
b/clash/CLasH/VHDL/VHDLTools.hs
index 8cb2f5e5881ebf022d91dd829de2707f2d0ebe7f..ab3360b8126c44950c2f9cabddf71f73f38ef0ee 100644
(file)
--- a/
clash/CLasH/VHDL/VHDLTools.hs
+++ b/
clash/CLasH/VHDL/VHDLTools.hs
@@
-571,8
+571,8
@@
getFields ::
getFields htype dc_i = case htype of
(AggrType name _ fieldss)
| dc_i >= 0 && dc_i < length fieldss -> fieldss!!dc_i
getFields htype dc_i = case htype of
(AggrType name _ fieldss)
| dc_i >= 0 && dc_i < length fieldss -> fieldss!!dc_i
- | otherwise -> error $ "Invalid constructor index: " ++ (show dc_i) ++ ". No such constructor in HType: " ++ (show htype)
- _ -> error $ "Can't get fields from non-aggregate HType: " ++ show htype
+ | otherwise -> error $ "
VHDLTool.getFields:
Invalid constructor index: " ++ (show dc_i) ++ ". No such constructor in HType: " ++ (show htype)
+ _ -> error $ "
VHDLTool.getFields:
Can't get fields from non-aggregate HType: " ++ show htype
-- Finds the field labels for an aggregation type, as VHDLIds.
getFieldLabels ::
-- Finds the field labels for an aggregation type, as VHDLIds.
getFieldLabels ::