From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Mon, 16 Feb 2009 12:05:18 +0000 (+0100)
Subject: Make application names unique.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=f8f2ec1ccc1821b4b0f0f80d5a28e49b413a6e19;hp=454503106eef8deb32481d4f67a3d510950118e5;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Make application names unique.
---

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