From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 29 Jan 2009 10:43:18 +0000 (+0100)
Subject: Use uniqueName to make component instantiations unique.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=4a73cdd59a4cfc1b19dab2142b19533194c1435a;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Use uniqueName to make component instantiations unique.
---

diff --git a/Translator.hs b/Translator.hs
index 713698c..fe264f7 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -147,8 +147,9 @@ getInstantiations args outs binds app@(App expr arg) = do
       return $ concat insts
     else do
       HWFunction inports outport <- getHWFunc name
+      appname <- uniqueName "app"
       let comp = AST.CompInsSm
-            (AST.unsafeVHDLBasicId "app")
+            (AST.unsafeVHDLBasicId appname)
             (AST.IUEntity (AST.NSimple (AST.unsafeVHDLBasicId name)))
             (AST.PMapAspect ports)
           ports =