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:
ac34849
)
Update module name in error message.
author
Matthijs Kooijman
<matthijs@stdin.nl>
Wed, 3 Mar 2010 09:51:54 +0000
(10:51 +0100)
committer
Matthijs Kooijman
<matthijs@stdin.nl>
Wed, 3 Mar 2010 09:51:54 +0000
(10:51 +0100)
cλash/CLasH/VHDL/VHDLTools.hs
patch
|
blob
|
history
diff --git
a/cλash/CLasH/VHDL/VHDLTools.hs
b/cλash/CLasH/VHDL/VHDLTools.hs
index 8b963f53ed3415885649b50bd09633693f4c927d..263d364d021b5b3dbe4ff086c60523c2694cc74d 100644
(file)
--- a/
cλash/CLasH/VHDL/VHDLTools.hs
+++ b/
cλash/CLasH/VHDL/VHDLTools.hs
@@
-533,7
+533,7
@@
getFieldLabels ty = do
case Map.lookup htype types of
Just (Just (_, Just (Left (AST.TDR (AST.RecordTypeDef elems))))) -> return $ map (\(AST.ElementDec id _) -> id) elems
Just Nothing -> return [] -- The type is empty
case Map.lookup htype types of
Just (Just (_, Just (Left (AST.TDR (AST.RecordTypeDef elems))))) -> return $ map (\(AST.ElementDec id _) -> id) elems
Just Nothing -> return [] -- The type is empty
- _ -> error $ "\nVHDL.getFieldLabels: Type not found or not a record type? This should not happen! Type: " ++ (show htype)
+ _ -> error $ "\nVHDL
Tools
.getFieldLabels: Type not found or not a record type? This should not happen! Type: " ++ (show htype)
mktydecl :: (AST.VHDLId, Maybe (Either AST.TypeDef AST.SubtypeIn)) -> Maybe AST.PackageDecItem
mytydecl (_, Nothing) = Nothing
mktydecl :: (AST.VHDLId, Maybe (Either AST.TypeDef AST.SubtypeIn)) -> Maybe AST.PackageDecItem
mytydecl (_, Nothing) = Nothing