From 4a73cdd59a4cfc1b19dab2142b19533194c1435a Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 29 Jan 2009 11:43:18 +0100
Subject: [PATCH] Use uniqueName to make component instantiations unique.

---
 Translator.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 = 
-- 
2.30.2