From f8f2ec1ccc1821b4b0f0f80d5a28e49b413a6e19 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Mon, 16 Feb 2009 13:05:18 +0100
Subject: [PATCH] Make application names unique.

---
 VHDL.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/VHDL.hs b/VHDL.hs
index 38a3bd6..9c130d4 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -140,9 +140,9 @@ mkCompInsSm app = do
         (error $ "Using function '" ++ (prettyShow hsfunc) ++ "' without entity declaration? This should not happen!")
         (funcEntity fdata)
   let entity_id = ent_id entity
-  return $ AST.CompInsSm label (AST.IUEntity (AST.NSimple entity_id)) (AST.PMapAspect portmaps)
+  label <- uniqueName (AST.fromVHDLId entity_id)
+  return $ AST.CompInsSm (mkVHDLId label) (AST.IUEntity (AST.NSimple entity_id)) (AST.PMapAspect portmaps)
   where
-    label     = mkVHDLId "app"
     portmaps  = []
 
 -- | Extracts the generated entity id from the given funcdata
-- 
2.30.2