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:
cbf28d6
)
Use basic identifiers for builtins.
author
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Mon, 6 Apr 2009 13:58:15 +0000
(15:58 +0200)
committer
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Mon, 6 Apr 2009 13:58:15 +0000
(15:58 +0200)
VHDL.hs
patch
|
blob
|
history
diff --git
a/VHDL.hs
b/VHDL.hs
index 263bae867f85138f3d77fc72e1bbd31972903c3b..836f06b38c69def7f7263be62f9db2156722535b 100644
(file)
--- a/
VHDL.hs
+++ b/
VHDL.hs
@@
-444,7
+444,7
@@
data BuiltIn = BuiltIn String [PortMap] PortMap
mkBuiltins :: [BuiltIn] -> SignatureMap
mkBuiltins = Map.fromList . map (\(BuiltIn name args res) ->
(HsFunction name (map useAsPort args) (useAsPort res),
mkBuiltins :: [BuiltIn] -> SignatureMap
mkBuiltins = Map.fromList . map (\(BuiltIn name args res) ->
(HsFunction name (map useAsPort args) (useAsPort res),
- Entity (VHDL.mkVHDL
Ext
Id name) (map toVHDLSignalMap args) (toVHDLSignalMap res))
+ Entity (VHDL.mkVHDL
Basic
Id name) (map toVHDLSignalMap args) (toVHDLSignalMap res))
)
builtin_hsfuncs = Map.keys builtin_funcs
)
builtin_hsfuncs = Map.keys builtin_funcs
@@
-459,4
+459,4
@@
builtin_funcs = mkBuiltins
-- | Map a port specification of a builtin function to a VHDL Signal to put in
-- a VHDLSignalMap
toVHDLSignalMap :: HsValueMap (String, AST.TypeMark) -> VHDLSignalMap
-- | Map a port specification of a builtin function to a VHDL Signal to put in
-- a VHDLSignalMap
toVHDLSignalMap :: HsValueMap (String, AST.TypeMark) -> VHDLSignalMap
-toVHDLSignalMap = fmap (\(name, ty) -> Just (mkVHDL
Ext
Id name, ty))
+toVHDLSignalMap = fmap (\(name, ty) -> Just (mkVHDL
Basic
Id name, ty))