From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 22 Jan 2009 19:32:18 +0000 (+0100)
Subject: Look up the port names in the session when generating an architecture.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;ds=inline;h=358a33adc0f4328d1908938952d2edef85e75546;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Look up the port names in the session when generating an architecture.
---

diff --git a/Translator.hs b/Translator.hs
index 94f99f8..c96bebc 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -205,17 +205,13 @@ getArchitecture sess (NonRec var expr) =
 		-- Use unsafe for now, to prevent pulling in ForSyDe error handling
 		(AST.NSimple (AST.unsafeVHDLBasicId name))
 		[]
-		(getInstantiations sess (Args inportnames) outport [] expr)
+		(getInstantiations sess (Args inports) outport [] expr)
 	where
 		name = (getOccString var)
-		ty = CoreUtils.exprType expr
-		(fargs, res) = Type.splitFunTys ty
-		--state = if length fargs == 1 then () else (last fargs)
-		ports = if length fargs == 1 then fargs else (init fargs)
-		inportnames = case ports of
-			[port] -> [getPortNameMapForTy "portin" port]
-			ps     -> getPortNameMapForTys "portin" 0 ps
-		outport = getPortNameMapForTy "portout" res
+		hwfunc = Maybe.fromMaybe
+			(error $ "Function " ++ name ++ "is unknown? This should not happen!")
+			(lookup name (funcs sess))
+		HWFunction (Args inports) outport = hwfunc
 
 data PortNameMap =
 	Args [PortNameMap] -- Each of the submaps represent an argument to the