From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Tue, 23 Jun 2009 13:07:12 +0000 (+0200)
Subject: Use varToVHDLExpr in mkConcSm.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=dc283627ed31bc4ea22ae99669ce6bdf3fb95ac5;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Use varToVHDLExpr in mkConcSm.

Previously, this used some custom set of functions. Using varToVHDLExpr
allows us to support constants for datacons later on.
---

diff --git a/VHDL.hs b/VHDL.hs
index b2d5b30..2c20663 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -298,9 +298,8 @@ mkConcSm (bndr, app@(CoreSyn.App _ _))= do
         Just (arg_count, builder) ->
           if length valargs == arg_count then
             let
-              sigs = map (bndrToString.varBndr) valargs
-              sigsNames = map (\signal -> (AST.PrimName (AST.NSimple (mkVHDLExtId signal)))) sigs
-              func = builder sigsNames
+              sigs = map (varToVHDLExpr.varBndr) valargs
+              func = builder sigs
               src_wform = AST.Wform [AST.WformElem func Nothing]
               dst_name = AST.NSimple (mkVHDLExtId (bndrToString bndr))
               assign = dst_name AST.:<==: (AST.ConWforms [] src_wform Nothing)