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:
43f37e2
)
Make getPortMapEntry accept a PortNameMap.
author
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Thu, 22 Jan 2009 16:37:14 +0000
(17:37 +0100)
committer
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Thu, 22 Jan 2009 16:37:14 +0000
(17:37 +0100)
Translator.hs
patch
|
blob
|
history
diff --git
a/Translator.hs
b/Translator.hs
index 1b2d24bf13aac610423c22983bd18373519c36ff..b18a86fd1cd939b6850a246a45f7feec49c2a651 100644
(file)
--- a/
Translator.hs
+++ b/
Translator.hs
@@
-82,7
+82,7
@@
findBind lookfor =
-- Accepts a port name and an argument to map to it.
-- Returns the appropriate line for in the port map
-- Accepts a port name and an argument to map to it.
-- Returns the appropriate line for in the port map
-getPortMapEntry binds
portname
(Var id) =
+getPortMapEntry binds
(Port portname)
(Var id) =
(Just (AST.unsafeVHDLBasicId portname)) AST.:=>: (AST.ADName (AST.NSimple (AST.unsafeVHDLBasicId signalname)))
where
Port signalname = Maybe.fromMaybe
(Just (AST.unsafeVHDLBasicId portname)) AST.:=>: (AST.ADName (AST.NSimple (AST.unsafeVHDLBasicId signalname)))
where
Port signalname = Maybe.fromMaybe
@@
-148,7
+148,7
@@
getInstantiations sess args outs binds app@(App expr arg) =
(lookup compname (funcs sess))
HWFunction inports outports = hwfunc
ports =
(lookup compname (funcs sess))
HWFunction inports outports = hwfunc
ports =
- zipWith (getPortMapEntry binds) [
"portin0",
"portin1"] fargs
+ zipWith (getPortMapEntry binds) [
Port "portin0", Port
"portin1"] fargs
++ mapOutputPorts outports outs
getInstantiations sess args outs binds expr =
++ mapOutputPorts outports outs
getInstantiations sess args outs binds expr =