projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Almost finished support for 'map'
[matthijs/master-project/cλash.git]
/
Generate.hs
diff --git
a/Generate.hs
b/Generate.hs
index 6405a6e620fb18e78ff41978f11e4370f2064eff..f81d7692434a7247325f1d1fdc3f1292d23df9b7 100644
(file)
--- a/
Generate.hs
+++ b/
Generate.hs
@@
-27,10
+27,9
@@
genExprFCall fName args =
genMapCall ::
Int -- | The length of the vector
-> Entity -- | The entity to map
genMapCall ::
Int -- | The length of the vector
-> Entity -- | The entity to map
- -> AST.VHDLId -- | The input vector
- -> AST.VHDLId -- | The output vector
+ -> [AST.VHDLId] -- | The vectors
-> AST.GenerateSm -- | The resulting generate statement
-> AST.GenerateSm -- | The resulting generate statement
-genMapCall len entity
arg res
= genSm
+genMapCall len entity
[arg, res]
= genSm
where
label = AST.unsafeVHDLBasicId "mapVector"
nPar = AST.unsafeVHDLBasicId "n"
where
label = AST.unsafeVHDLBasicId "mapVector"
nPar = AST.unsafeVHDLBasicId "n"